Indy idHTTP - Downloadprozess - Wert für IOHandler ist ungültig

[Premaider]

Hey Leute.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Ziel: string;
  Ziel2: String;
  URL: String;
  URL2: String;
  Name1: String;
  Name2: String;
  lStream: TFileStream;
  lStream2: TFileStream;
  Pfad: String;
begin
lStream.Free;
lStream2.Free;
  Name1:='Premaidercraft '+Memo3.Lines[0]+'.zip';
  Name2:='mcpatcher-'+Memo3.Lines[1]+'.exe';
  Pfad := IncludeTrailingPathDelimiter(UserAppData) + '.minecraft\texturepacks';
  Ziel := IncludeTrailingPathDelimiter(Pfad) + Name1;
  Ziel2 := IncludeTrailingPathDelimiter(Pfad) + Name2;
  URL:=Memo2.lines[0];
  URL2:=Memo2.Lines[1];
try
 lStream:=TFileStream.Create(Ziel, fmCreate);
finally
 try
   idHTTP1.Get(URL, lStream);
   idHTTP1.Get(URL2, lStream);
finally
lStream.Free;
lStream2.Free;
If CheckBox1.checked=true Then ShellExecute(Application.Handle,'open',PChar(Pfad + Memo3.Lines[0] + '.exe'),nil,PChar(Pfad),sw_ShowNormal);
end;
end;
Memo1.Lines[17]:='skin:Premaidercraft '+Memo3.lines[0]+'.zip';
Memo1.Lines.SaveToFile(UserAppData + '\.minecraft\options.txt');
end;

Wie ihr seht will ich, wenn auf Button1 geklickt wird 2 Datein heruntergeladen werden. Dieser Downloadprozess soll in einer ProgressBar angezeigt werden. Ich habe meinen Code von hier

Bei mir kommt aber beim downloaden der zweiten Datei ein Fehler. "Wert für IOHandler ist ungülig". Warum ?

[DeddyH]

Wieso gibst Du Objekte frei, die Du gar nicht erzeugst? Und die Verwendung von try-finally ist ein wenig, na sagen wir mal "kreativ". Ich würde Dir raten: schreibe Dir eine Methode zum Herunterladen, der Du die Quell-URL und die Zieldatei als Parameter übergibst. Dann rufst Du nur noch diese auf.

[Premaider]

Meinst du ich soll anstatt lStream meinen Dateipfad reinschreiben ? Sorry bin noch ein ziemlicher Anfänger und verstehe nicht genau was du meinst

[DeddyH]

Ich meinte etwas in der Art:

Delphi-Quellcode:

function TForm1.DownloadFile(const SrcURL, DestFile: string): Boolean;
begin
  //Code
end;


...
DownloadFile(URL, Ziel);
DownloadFile(URL2, Ziel2);

[Premaider]

aber dann funktionert doch die ProgressBar nicht mehr ??

[DeddyH]

Und wieso sollte sie nicht? Du kannst doch in der DownloadFile-Methode weiterhin den Indy-HTTP-Client benutzen.

[mjustin]

Zitat von Premaider:

Hey Leute.

Delphi-Quellcode:

try
 lStream:=TFileStream.Create(Ziel, fmCreate);
finally
 try
   idHTTP1.Get(URL, lStream);
   idHTTP1.Get(URL2, lStream);
finally
...

Beide GET Prozeduren verwenden den gleichen Filestream (schreiben also nacheinander in die gleiche Datei).

Vermutlich schliesst Indy aber automatisch den Stream sobald das (erste) GET abgeschlossen ist.