TZipmaster: LoadFromStream(Zip-Datei) und dann Datei entpacken

[nahpets]

Hallo,

habe mal noch ein bisserl gestöbert und dabei ist folgende, ungetestete, Funktion rausgekommen (nur so als Idee):

Delphi-Quellcode:

function GetZipContent(DBMemo : TDBMemo; sFileNameImZip : String) : String;
var
    st        : TZipStream;
begin
  DBMemo.Lines.SaveToStream(st);
  st.Position := 0;
  ZipMaster1.ZipStream.LoadFromStream(st);
  st.Clear;
  st := ZipMaster1.ExtractFileToStream(sFileNameImZip);
  if ZipMaster1.SuccessCnt <> 0 then begin
    if st.Size > 0 then begin
      st.Position := 0;
      SetLength(sContent, st.size);
      st.Read(sContent[1], st.size);
    end else begin
      Result := 'Die Datei ' + sFileNameImZip + ' hat keinen Inhalt.';
    end;
  end else begin
    Result := 'Die Datei ' + sFileNameImZip + ' wurde nicht gefunden.';
  end;
end;

Eventuell ist's ja ein Ansatz.