Hey Leute,
ich habe mir ein kleines Programm zum Downloaden programmiert. Doch beim
Downloaden erscheint bei mir immer ein Error und ich weiß nicht warum. Ein Bild vom
Error ist im Anhang.
Ein klein bisschen Quellcode:
Delphi-Quellcode:
procedure Download(
Url, Filename: AnsiString);
var
FileStream: TFileStream;
begin
FileStream := TFileStream.Create(Filename, fmCreate);
try
Form1.IdHTTP1.Get(
Url, FileStream);
except
on E:
Exception do
Exception.Create('
Error while downloading' + #13#10 + E.
Message);
end;
FileStream.Free;
end;
procedure StartDownloading;
begin
//Form1.B_Download.Picture.loadfromfile(Objekte[9].pfad);
Download(PChar(L_Main+Objektnamen[5]),Objekte[5].pfad);
//Pfade und Links stimmen
end;
Kann mir jemand helfen ?
P.S. Ich weiß nicht genau welche
Indy-Version ich habe (War bei D7 Enterprise dabei). Das war aber glaube ich 9 ^^