ANTICHAT — форум по информационной безопасности, OSINT и технологиям

function TMyForm.LoadImage(const url: string; var tmpname: string): Boolean; var fs: TFileStream; begin
IdHTTP1.ReadTimeout := 4000;
tmpname := 'temp' + ExtractFileExt(url); fs := TFileStream.Create(tmpname, fmCreate);
try IdHTTP1.get(url, fs) except fs.Free;
Result := False;
Exit;
end;
Result := True;
fs.Free; end;

procedure TMyForm.Button1Click(Sender: TObject);
var img: TImage;
i, y, x: Byte;
filename: string;
begin

y := 10;
x := 25;


for i := Low(Links) to High(Links) do
begin

if LoadImage(Links[i], filename) then
begin
img := TImage.Create(MyForm);
img.Parent := MyForm;
img.AutoSize := False;

try
img.Picture.LoadFromFile(filename);
finally
img.Left := x;
img.Top := y;
y := y + img.Height + 20;
DeleteFile(filename)
end;
end;
end;

end;