Hallo, wie der Titel schon sagt, wird die gewünschte Datei nicht gelöscht, könnt ihr mir mal bitte sagen wieso?
Delphi-Quellcode:
procedure TfrmBankenDownload.ZIPAusführen;
var
sExePfad, sZIPPfad:
String;
begin
sZIPPfad := ExtractFilePath(ParamStr(0))+'
Bankdaten.zip';
TRY
ftpDateiDownload.Get('
Bankdaten.zip',sZIPPfad, true);
EXCEPT
on E:
Exception do
ShowMessage('
Beim Download der ZIP Datei ist ein Fehler aufgetreten.' + sLineBreak +
'
Exception class name = '+E.ClassName + sLineBreak +
'
Exception message = '+E.
Message);
END;
TRY
begin
sExePfad := ExtractFilePath(Application.ExeName);
AbZIPEntpacken.FileName := sZIPPfad;
AbZIPEntpacken.BaseDirectory := (sExePfad+'
Bankdaten');
AbZIPEntpacken.ExtractFiles('
*.*');
Application.ProcessMessages;
SysUtils.DeleteFile(sZIPPfad);
// <------- ZIP Datei wird nicht gelöscht.
end;
EXCEPT
on E:
Exception do
begin
ShowMessage('
Es ist ein Fehler beim Entpacken der ZIP Datei aufgetreten.' + sLineBreak +
'
Exception class name = '+E.ClassName + sLineBreak +
'
Exception message = '+E.
Message);
end;
END;
AbZIPEntpacken.Free;
end;
Desweiteren erhalte ich, nachdem ich die Anwendung zur Laufzeit ein zweites mal ausführe (Button klicken --> Anweisungen werden ausgeführt, nochmal Button klicken --> selbe Anweisungen nochmal ausführen) eine Zugriffsverletzung in Zeile
AbZIPEntpacken.FileName := sZIPPfad;
Vielleicht kann mir da noch weitergeholfen werden, ohne ein neues Thema zu eröffnen