Sevezip.pas [ISO]

[s.h.a.r.k]

Habs mir jetzt mal etwas genauer angeschaut, nur werde ich daraus leider nicht wirklich schlau. InArchive.Open(...) liefert hier halt eine 1 zurück, was eigentlich eine 0 sein sollte. 0: heißt alles okay, 1: keine Ahnung was für ein Fehler.

Delphi-Quellcode:

// 7Zip plugin von http://www.progdigy.com/
// Zeile 1032
procedure T7zInArchive.OpenFile(const filename: string); stdcall;
var
  strm: IInStream;
begin
  strm := T7zStream.Create(TFileStream.Create(filename, fmOpenRead or fmShareDenyNone), soOwned);
  try
    RINOK(
      InArchive.Open(
        strm,
          @MAXCHECK, self as IArchiveOpenCallBack
        )
      );
  finally
    strm := nil;
  end;
end;

Und das Interface wird dabei angesprungen:

Delphi-Quellcode:

IInArchive = interface
  ['{23170F69-40C1-278A-0000-000600600000}']
    function Open(stream: IInStream; const maxCheckStartPosition: PInt64;
        openArchiveCallback: IArchiveOpenCallback): HRESULT; stdcall;

Tjo, und jetzt wäre eine Dokumentation recht, warum denn überhaupt diese 1 geliefert wird...

[-Phantom-]

wie kann man den verhindern das er eine "1" liefert?

[DeddyH]

Wenn das nicht dokumentiert ist, hast Du schlechte Karten.

Zitat von s.h.a.r.k:

Tjo, und jetzt wäre eine Dokumentation recht, warum denn überhaupt diese 1 geliefert wird...

[-Phantom-]

Was soll das den heißten "Dukomentiert"? Eine andere Frage. Ich doch bestimmt nicht der einzige hier der mit der sevenzip.pas jemals gearbeitet hat. Du muss dann ja das selbe Problem haben

[DeddyH]

Was heißt wohl "dokumentiert"? Dass jemand aufgeschrieben hat, wie die Routinen zu benutzen sind und was die Rückgabewerte bedeuten. Das kann eine README.txt oder sonst ein Dokument sein.

[himitsu]

Zitat von s.h.a.r.k:

InArchive.Open(...) liefert hier halt eine 1 zurück, was eigentlich eine 0 sein sollte. 0: heißt alles okay, 1: keine Ahnung was für ein Fehler.

Tjo, und jetzt wäre eine Dokumentation recht, warum denn überhaupt diese 1 geliefert wird...

Zitat von HRESULT:

S_OK = $00000000;
S_FALSE = $00000001;
...

aber Genaueres weis man nicht

[-Phantom-]

Also ne Readme oder ähnliches war nicht dabei.

[Luckie]

Und auf der Homepage, gibt es da eine Dokumentation?

[-Phantom-]

Auf http://www.7-zip.de/index.html finde ich nicht wirklich was

//http://sourceforge.net/projects/cdisplayex/ (Delphi API für 7-Zip Plugins (7z, ZIP, RAR ...))


// Dort ist auch eine 7z.dll mit 160 KB mehr als meine // hat aber nichts gebracht


// Nun bin icht total verwirrt. Ich hab garde mit IZArc eine .lzh erstellt weil dieser "Cdisplayex" von 7zip eig. auch lzh-Archiv entpacken kann aber es geht nicht "Cannot load file ...". Dieser "Cdisplayerex" kann auch nur genau die selben Archiv entpacken die ich auch nur entpacken kann