Einzelnen Beitrag anzeigen

Premaider

Registriert seit: 31. Mär 2012
160 Beiträge
 
#1

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

  Alt 9. Mai 2012, 13:38
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 ?
  Mit Zitat antworten Zitat