Du hast keinen Plan, was du machst oder?
Download könnte so aussehen:
Delphi-Quellcode:
procedure TForm2.Download(
Url, Filename: AnsiString);
var
FileStream: TFileStream;
begin
FileStream := TFileStream.Create(Filename, fmCreate);
try
try
IdHTTP1.Get(
Url, FileStream);
except
on E:
Exception do
Exception.Create('
Fehler beim Runterladen!' + #13#10 + E.
Message);
end
finally
FileStream.Free;
end;
end;