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.