Hmmm... Nicht gerade einfach der Code ^^
Zu der 7zVCL Komponente:
Wenn ich das wie oben mache und nur den Dateinamen setzte, dann funktionierts immer noch nicht, weil
i <> 0 ist
Warum muss man das auch so benutzerunfreundlich machen.
Delphi-Quellcode:
[...]
updateOpenCallback := TMyArchiveOpenCallback.Create( self );
i := inA.Open( ms, nil, updateOpenCallback );
if i <> 0 then begin
Result := -1;
ErrCode:=FFileNotFound; //FHO 21.01.2007
if assigned( onMessage ) then
onMessage( self,FFileNotFound, c7zipResMsg[FFileNotFound],FSevenZipFileName );
ms.Free; //FHO crash at wrong pw 25.01.2007
Exit;
end;
[...]
(Extract-Prozedur)
MfG
xZise