Delphi-Quellcode:
procedure TfrmBankenDownload.ZIPAusführen;
var
sExePfad, sZIPPfad:
String;
AbZIPEntpacken : TAbUnZipper;
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
AbZIPEntpacken := TAbUnZipper.Create(Self);
sExePfad := ExtractFilePath(Application.ExeName);
AbZIPEntpacken.FileName := sZIPPfad;
AbZIPEntpacken.BaseDirectory := (sExePfad+'
Bankdaten');
AbZIPEntpacken.ExtractFiles('
*.*');
Application.ProcessMessages;
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;
SysUtils.DeleteFile(sZIPPfad);
ftpDateiDownload.Disconnect;
end;
also so wie's aussieht, lag schon von himitsu vermutet, an der ZIP Komponente, hab sie jetzte mal zur Laufzeit erzeugt und siehe da, es funktioniert !
Vielen Dank für die Hilfe !
