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

[Premaider]

Zitat von Luckie:

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;

Form1.download ?? Download wird mir als Fehler angezeigt. Das gibt es nicht. Auch wenn ich das Procedure nur Download nenne und es anpasse kommt der selbe Fehler (Handler irgendwas). Geht es nicht 2 Downloads bei idHTTP zu verwenden oder wie ??

Zitat von 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.

Auch wenn ich die Filestreams lStream1 und lStream2 nenne kommt der selbe Fehler wie ohne.

[EDIT]
Habe jetzt 2 procedures (Download1 und Download2) in denen jeweils eine der 2 Datein heruntergeladen wird. Trotzdem der Fehler "Wert für IOHandler ist ungültig"

Hier der Code:

Delphi-Quellcode:

procedure Download1;
var
  FileStream: TFileStream;
  URL: String;
  Name: String;
  Pfad: String;
begin
  Pfad := (UserAppData) + '\.minecraft\texturepacks\';
  ForceDirectories(Pfad);
  Name:='Premaidercraft '+Form1.Memo3.Lines[0]+'.zip';
  URL:=Form1.Memo2.lines[0];
  FileStream := TFileStream.Create(Pfad + Name, fmCreate);
  try
    try
      Form1.IdHTTP1.Get(Url, FileStream);
    except
      on E: Exception do
        Exception.Create('Fehler beim Runterladen!' + #13#10 + E.Message);
    end
  finally
    FileStream.Free;
  end;
end;

procedure Download2;
var
  FileStream: TFileStream;
  URL: String;
  Name: String;
  Pfad: String;
begin
  Pfad := IncludeTrailingPathDelimiter(UserAppData) + '\.minecraft\texturepacks\';
  Name:='mcpatcher-'+Form1.Memo3.Lines[1]+'.exe';
  URL:=Form1.Memo2.lines[1];
  FileStream := TFileStream.Create(Pfad + Name, fmCreate);
  try
    try
      Form1.IdHTTP1.Get(Url, FileStream);
    except
      on E: Exception do
        Exception.Create('Fehler beim Runterladen!' + #13#10 + E.Message);
    end
  finally
    FileStream.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Pfad: String;
begin
Download1;
Download2;
Pfad := IncludeTrailingPathDelimiter(UserAppData) + '.minecraft\texturepacks';
If CheckBox1.checked=true Then ShellExecute(Application.Handle,'open',PChar(Pfad + Memo3.Lines[0] + '.exe'),nil,PChar(Pfad),sw_ShowNormal);
Memo1.Lines[17]:='skin:Premaidercraft '+Memo3.lines[0]+'.zip';
Memo1.Lines.SaveToFile(UserAppData + '\.minecraft\options.txt');
end;