Hallo Delphi-Freunde*innen,
ich bin noch mit TZipFile zu Gange Ihr (Himitsu u.a.) hattet mir schon im letzten Sommer erklärt, dass ich eine Datei aus einem Zip-Archiv ohne den Umweg über die Festplatte Virtuell öffnen kann. Jetzt will ich das lernen.
Ich habe mir das Folgende überlegt:
Delphi-Quellcode:
procedure TForm1.Button7Click(Sender: TObject);
var
ms: TMemoryStream;
Data: TBytes;
ss: string;
i: Integer;
begin
if fod.Execute then begin
ms := TMemoryStream.Create;
try
ms.LoadFromFile(fod.FileName);
MyZip.Open(ms, zmRead);
MyZip.Read(0, Data); //Index 0 erste Datei im Archiv
finally
ms.Free;
end;
ss := '';
for i:=Low(Data) to High(Data) do
ss := ss + Chr(Data[i]);
Memo1.Text := ss;
MyZip.Close;
end;
end;
hier mit einem Textfile. Ist das der richtige Weg? Index liefert die lfd. Nr. aus dem Archiv.
Kalte Grüße Willie.