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.

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

[mjustin]

Zitat:

Zitat von Premaider (Beitrag 1165609)

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.

[Premaider]

Zitat:

Zitat von Luckie (Beitrag 1165698)

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:

Zitat von mjustin (Beitrag 1165702)

Zitat:

Zitat von Premaider (Beitrag 1165609)

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:

Zitat von Luckie (Beitrag 1165709)

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?

[Premaider]

Zitat:

Zitat von Luckie (Beitrag 1165715)

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?

Die habe ich nicht gelöscht. Die habe ich ganz einfach vergessen xD
Aber wenn ich den jetzt wieder einsetze, kommt nach dem Downloaden der Fehler
"Wert für IOHandler ist ungültig". Wie ganz am Anfang auch :(
Was ja auch bei deinem Beispiel beim Downloaden kam

[Luckie]

Auch wenn du die Exe ausgeführt hast?

[Premaider]

Zitat:

Zitat von Luckie (Beitrag 1165718)

Auch wenn du die Exe ausgeführt hast?

Dann kommt zwar kein Fehler aber die Datei hat 0KB.
Bei mir hat nur die exe (zweite Datei) 0KB. Die erste stimmt. Ich denke auch deswegen wird die exe danach nicht
ausgeführt.

[Klaus01]

.. wenn Du die zwei Dateien manuell per Webbrowser lädtst, sind dann beide in Ordnung?
Mag ja sein, dass die zweite Datei auf dem Server auch nur 0KByte hat.
Kann schonmal passieren, wenn eine Binärdatei im Ascii-Mode hochgeladen wird.

Grüße
Klaus

[Premaider]

Zitat:

Zitat von Klaus01 (Beitrag 1165721)

.. wenn Du die zwei Dateien manuell per Webbrowser lädtst, sind dann beide in Ordnung?
Mag ja sein, dass die zweite Datei auf dem Server auch nur 0KByte hat.
Kann schonmal passieren, wenn eine Binärdatei im Ascii-Mode hochgeladen wird.

Grüße
Klaus

Sind eigendlich beide in Ordnung. Der eine Links ist halt per https aber ich denke mal nicht, dass das eine Rolle spielt
Edit:
Gerade nachgeschaut. Auch per http-Links (der im Webbrowser funktioniert) hat die exe 0KB

[Klaus01]

Zitat:

Zitat von Premaider (Beitrag 1165723)

Sind eigendlich beide in Ordnung. Der eine Links ist halt per https aber ich denke mal nicht, dass das eine Rolle spielt
Edit:
Gerade nachgeschaut. Auch per http-Links (der im Webbrowser funktioniert) hat die exe 0KB

http - geht auf port 80
https - geht auf port 443
bei https ist die Übertragung per SSL/TLS verschlüsselt.

Überprüfe einmal die Dateien auf dem Server (per FTP) auf Größe.

Grüße
Klaus

[Premaider]

Danke dir. Habs jetzt auf meinem Webspace geladen. Da geht es prima :D
Werde es jetzt einem Praxistest unterziehen. Falls dort nochmal Fragen aufkommen
melde ich mich :D

LG

[Andreas L.]

Damit TIdHTTP vom https laden kann, muss der TIdOpenSSLIOHandler der IOHandler-Eigenschaft zugewiesen werden. Außerdem müssen die OpenSSL-Dlls im Programmverzeichnis liegen. Vermutlich hast du das nicht gemacht und deshalb kommt der Fehler wegen falschen IO-Handler.