Ich downloade Dateien mit dieser Procedure.
Delphi-Quellcode:
procedure Downloaden(Datei :
String; Dest :
String);
var
Download: TFilestream;
begin
Download := TFileStream.Create(Dest,fmCreate);
try
try
Form1.IDHTTP1.Get(
Url + Datei, download);
ShowMessage(SysErrorMessage(GetLastError));
except
Form1.Progressbar1.Position := 0;
ShowMessage('
Download fehlgeschlagen !');
end;
finally
Download.Free;
end;
end;
Also Textdateien funktionieren aber wenn die Datei größer werden dann kommt der Fehler.
Das seltsame ist : Wenn ich mir mit GetLastError den letzten Fehler anzeigen lasse dann bekomme ich die Meldung : "Das Fenster hat keine Bildaufleiste" -.-
Was hat das bitteschön mit dem downloaden zu tun ?
