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

[Premaider]

Okay ich werd mal schaun :O

[Premaider]

Ne, DownloadFile gibt es anscheind bei Delphi7 garnicht ??

[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;

[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;

[Luckie]

Ich habe es geahnt und habe das ganze Projekt schon mal gepackt.

[Premaider]

Zitat von Luckie:

Ich habe es geahnt und habe das ganze Projekt schon mal gepackt.

Danke dafür. Aber wenn ich mit deinem Programm etwas herunterlade kommt der selbe Fehler wie bei mir Oo

Also bei mir sieht es inzwischen so aus:

Delphi-Quellcode:

procedure TForm1.Download(Url, Filename: AnsiString);
var
  FileStream: TFileStream;
begin
  try
      IdHTTP1.Get(Url, FileStream);
    except
      on E: Exception do
        Exception.Create('Fehler beim Runterladen!' + #13#10 + E.Message);
    end;
FileStream.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Pfad: String;
  Name1: String;
  Name2: String;
  Ziel1: String;
  Ziel2: String;
begin
Button1.Caption:='Installing...';
Pfad := IncludeTrailingPathDelimiter(UserAppData) + '\.minecraft\texturepacks\';
Name1 :='Premaidercraft '+Memo3.Lines[0]+'.zip';
Name2 :='mcpatcher-'+Memo3.Lines[1]+'.exe';
Ziel1 := Pfad + Name1;
Ziel2 := Pfad + Name2;
try
     Download(Memo2.Lines[0], Ziel1);
     Download(Memo2.Lines[1], Ziel2);
    except
     on E: Exception do
       Button1.Caption:='Error while downloading';
    end;
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;

Ich bekomme bei idHTTP.get eine "Zugriffsverletzung"

[Luckie]

Also da noch was kaputt zu machen ist schon eine Kunst. Warum hast du die Zeile gelöscht in der das FileStream Objekt erzeugt wird?