Abbrevia , TZipfile oder Zipmaster

[jziersch]

Ich verwende TZipFile für den DocX import und export in WPTools,
es hat keine Problem ein ZIP in einem memory stream zu lesen oder zu erzeugen:

function TWPIoZIPInterfaceDelphi.OpenRead( Stream : TStream ) : Boolean;
begin
FreeAndNil(FZipFile);
FZipFile := TZipFile.Create;
FZipFile.Open(Stream, zmRead);
FZIPStreamSize := Stream.Size;
Result := true;
end;

function TWPIoZIPInterfaceDelphi.OpenWrite( Stream : TStream ) : Boolean;
begin
FreeAndNil(FZipFile);
FZipFile := TZipFile.Create;
FZipFile.Open(Stream, zmWrite);
Result := true;
end;

Für ältere Delphi Versionen bindet mein Wrapper dann Abbrevia ein.