12.02.2019, 02:04
|
Модератор
|
|
Регистрация: 17.04.2008
Сообщения: 8,015
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
|
|
Ну тогда уж так:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
http: TIdHttp;
potok: TFileStream;
i:integer;
begin
http := TIdHTTP.Create(nil);
try
for i:= 1 to 97 do
try
potok := TFileStream.Create('c:/'+inttostr(i)+'.jpg',fmCreate);
http.Get('http://img.gdz-online.ws/29032018fdfsrt13/'+inttostr(i)+'.jpg', potok);
finally
potok.free;
end;
finally
http.Free;
end;
end;
|