Bei dem Button "Download" hab ich nun das stehen:
Delphi-Quellcode:
procedure TForm3.Button2Click(Sender: TObject);
var
ini : Tinifile;
begin
button2.Enabled := false;
createdir(edit1.Text);
speicherpfad := edit1.Text;
ini := Tinifile.Create(speicherpfad+'Einstellungen.ini');
responseStream := TFileStream.Create(speicherpfad+'Phantom_Zip_v2.exe', fmCreate);
try
IdHTTP1.Get('http://phantomzip.ph.funpic.de/Phantom_Zip_v2.exe', responseStream);
finally
responseStream.free;
Und das bei idhttp1.onwork
Delphi-Quellcode:
procedure TForm3.IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCount: Integer);
begin
sgauge1.Progress := AworkCount;
if abbrechen then begin
sgauge1.Progress := 100;
Application.ProcessMessages;
deletefile(speicherpfad+'Phantom_Zip_v2.exe');
end;
end;
So was mache ich falsch es kommt immer noch die Fehlermedlung