Guten Abend...
folgendermaßen geändert.
Delphi-Quellcode:
UDateiListe.Add(Ziel);
try
fStream:= TFileStream.Create(Ziel,fmCreate or fmShareDenyNone);
try
idHTTP1.Get(Quelle, fStream);
except
MessageDlg('Update fehlgeschlagen...(Datei herunterladen)',mtError,[mbOK],0);
for A := 0 to UDateiListe.Count - 1 do
begin
DeleteFile(UDateiliste.Strings[A]);
end;
FUMain.Close;
end;
finally
fStream.Free;
end;
except und finally vertauscht, Application.Terminate (warum auch immer ich das so gemacht habe) gegen Close getauscht ...
Danke an alle.
