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;

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

[Premaider]

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

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 von Luckie:

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

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 von Premaider:

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