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 ?