Forum: Sonstige Fragen zu Delphi
Delphi
by -Phantom-,
6. Nov 2010
Ich hab es nun so gemacht with CreateInArchive(CLSID_CFormatZip) do
begin
openfile(openpfad);
entsave.Execute();
for i := 0 to Dateilist.Items.Count - 1 do
begin
if Dateilist.Items.Selected then
begin
dateiname := Dateilist.Items.Caption;
createdir(entsave.FileName);
Forum: Sonstige Fragen zu Delphi
Delphi
by -Phantom-,
6. Nov 2010
Ich hab es nun so gemacht
var
i : Integer;
datei : TfileStream;
dateiname : String;
begin
with CreateInArchive(CLSID_CFormatZip) do
begin
openfile(openpfad);
Forum: Sonstige Fragen zu Delphi
Delphi
by -Phantom-,
6. Nov 2010
Muss bei
fs := TFileStream.Create(openpfad+*itempfad*, fmOpenread );?
der Archivpfad+der Dateipfad im Archiv?
Hab ich so gemacht:
dateipfad := openpfad+'/'+dateilist.Items.subitems
TFileStream.Create(dateipfad, fmOpenread )
Dann kommt "Das System konnte den angegebenen Pfad nicht finden"
Forum: Sonstige Fragen zu Delphi
Delphi
by -Phantom-,
6. Nov 2010
Ich hab es nun so versucht :
var
i : Integer;
datei : TStream;
begin
with CreateInArchive(CLSID_CFormatZip) do
begin
datei := TFileStream.Create(openpfad, fmOpenRead);
Forum: Sonstige Fragen zu Delphi
Delphi
by -Phantom-,
6. Nov 2010
Müsste eigentlich schon das richtige sein.
Nun ist die frage wie mache ich das?!
Denn " procedure ExtractItem(const item: Cardinal; Stream: TStream; test: longbool); stdcall;" erfordert ja einen Stream.
Mein Ansatz
var
i : Integer;
begin
Forum: Sonstige Fragen zu Delphi
Delphi
by -Phantom-,
6. Nov 2010
Hallo Leute,
ich weiß nun nicht ob das die richtige Schublade ist, falls nicht bitte ich um Entschuldigung.
Zu meinem Problem: Ich möchte mit der Sevenzip.pas ein Archiv entpacken. Klappt auch wunderbar.
with CreateInArchive(CLSID_CFormatZip) do
begin
openfile(*FILE*);
createdir(*File*);
Extractto(*File*);