Горизонт
Основная информация
Время обучения: Суббота 11.40-13.40
Дополнительное занятие: Вторник 17.20
АрсКодер 4 месяца назад #
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, SHDocVw, Vcl.OleCtrls,
Vcl.ExtCtrls, IdHTTP, IdSSLOpenSSL, IdBaseComponent, IdComponent,
IdTCPConnection, IdTCPClient, System.Net.HttpClient, System.Net.URLClient,
System.Net.HttpClientComponent;
uses System.Net.HttpClient, System.Net.URLClient;
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, SHDocVw, Vcl.OleCtrls,
Vcl.ExtCtrls, IdHTTP, IdSSLOpenSSL, IdBaseComponent, IdComponent,
IdTCPConnection, IdTCPClient, System.Net.HttpClient, System.Net.URLClient,
System.Net.HttpClientComponent;
uses System.Net.HttpClient, System.Net.URLClient;
procedure TForm1.Button5Click(Sender: TObject);
var
Client: TNetHTTPClient;
Response: IHTTPResponse;
HTML: string;
begin
Client := TNetHTTPClient.Create(nil);
try
// Отправляем GET-запрос
Response := Client.Get('https://primgorod.ru');
// Получаем содержимое страницы
HTML := Response.ContentAsString();
// Выводим результат
memo1.text:=HTML;
finally
Client.Free;
end;
end;
Компонент: NetHTTPClient1
АрсКодер 5 месяцев назад #
Теперь у нас есть "Еженедельный квест"
Разные задачи, разные условия и разные награды. Не пропускаем. Иногда квестов будет больше одного.
Сейчас активен квест про поиск слона.
