Hey Leute.

zusammenfalten · markieren

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 ?

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.

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

Ich meinte etwas in der Art:

markieren

Delphi-Quellcode:

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


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

aber dann funktionert doch die ProgressBar nicht mehr ??

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

Okay ich werd mal schaun :O

Ne, DownloadFile gibt es anscheind bei Delphi7 garnicht ??

Du hast keinen Plan, was du machst oder?

Download könnte so aussehen:

zusammenfalten · markieren

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;

Zitat von Premaider:

Hey Leute.

markieren

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.