Урок на Делфи 66. Скачать файл по HTTPS протоколу

задание на delphi. Скачать файл по https
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, IdBaseComponent,
IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, IdIOHandler,
IdIOHandlerSocket, IdIOHandlerStack, IdSSL, IdSSLOpenSSL, IdAuthentication;
type
TForm1 = class(TForm)
Button1: TButton;
IdHTTP1: TIdHTTP;
IdSSLIOHandlerSocketOpenSSL1: TIdSSLIOHandlerSocketOpenSSL;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
mfile:TMemoryStream;
url:string;
begin
mfile:=TMemoryStream.Create;
url:='https://images.ru.prom.st/892936788_w640_h640_fotooboi-panno-freska.jpg';
IdHTTP1.IOHandler:=IdSSLIOHandlerSocketOpenSSL1;
IdHTTP1.Get(url,mfile);
mfile.SaveToFile('c:\temp\file.jpg');
FreeAndNil(mfile);
end;
end.



Скачать