AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Sevezip.pas [ISO]

Ein Thema von -Phantom- · begonnen am 22. Nov 2010 · letzter Beitrag vom 26. Nov 2010
Antwort Antwort
Benutzerbild von s.h.a.r.k
s.h.a.r.k

Registriert seit: 26. Mai 2004
3.159 Beiträge
 
#1

AW: Sevezip.pas [ISO]

  Alt 26. Nov 2010, 02:17
Ja klar, darin sind alle Funktionsaufrufe der DLL definiert. Woher hast denn überhaupt die pas-Datei? Vielleicht gibts dazu ja eine Doku?!
»Remember, the future maintainer is the person you should be writing code for, not the compiler.« (Nick Hodges)
  Mit Zitat antworten Zitat
-Phantom-

Registriert seit: 26. Nov 2009
Ort: Bockhorst
319 Beiträge
 
Delphi 7 Enterprise
 
#2

AW: Sevezip.pas [ISO]

  Alt 26. Nov 2010, 02:25
Ja gibt es die hab ich auch. Die sevenpis.pas hab ich vor ca. 2 Monaten irgendwo runtergeladen wogenau weiß ich auch nicht mehr soll ich die für dich hoch laden?
Mathias Jansen
  Mit Zitat antworten Zitat
Benutzerbild von s.h.a.r.k
s.h.a.r.k

Registriert seit: 26. Mai 2004
3.159 Beiträge
 
#3

AW: Sevezip.pas [ISO]

  Alt 26. Nov 2010, 02:32
Naja, vielleicht passt die ja nicht mehr zur DLL. Es wäre sinnvoller, wenn du mal ein minimales Projekt hochladen würdest, samt einer ISO-Testdatei, der DLL und der pas-Datei! Dann können wir das, wenn wir Zeit haben, den Fehler nachvollziehen und das ganze mal testen. Natürlich sollte jede Datei so klein wie möglich sein, um den Download klein zu halten!
»Remember, the future maintainer is the person you should be writing code for, not the compiler.« (Nick Hodges)
  Mit Zitat antworten Zitat
-Phantom-

Registriert seit: 26. Nov 2009
Ort: Bockhorst
319 Beiträge
 
Delphi 7 Enterprise
 
#4

AW: Sevezip.pas [ISO]

  Alt 26. Nov 2010, 02:33
Alles klar bin schon am Tippen^^
Mathias Jansen
  Mit Zitat antworten Zitat
-Phantom-

Registriert seit: 26. Nov 2009
Ort: Bockhorst
319 Beiträge
 
Delphi 7 Enterprise
 
#5

AW: Sevezip.pas [ISO]

  Alt 26. Nov 2010, 02:54
So inhalt : ISO-Testdatei, sevenzip.pas/dcu. 3 dll's und das mini Projekt
Angehängte Dateien
Dateityp: rar test.rar (768,5 KB, 25x aufgerufen)
Mathias Jansen
  Mit Zitat antworten Zitat
Benutzerbild von s.h.a.r.k
s.h.a.r.k

Registriert seit: 26. Mai 2004
3.159 Beiträge
 
#6

AW: Sevezip.pas [ISO]

  Alt 26. Nov 2010, 05:04
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...
»Remember, the future maintainer is the person you should be writing code for, not the compiler.« (Nick Hodges)
  Mit Zitat antworten Zitat
-Phantom-

Registriert seit: 26. Nov 2009
Ort: Bockhorst
319 Beiträge
 
Delphi 7 Enterprise
 
#7

AW: Sevezip.pas [ISO]

  Alt 26. Nov 2010, 12:02
wie kann man den verhindern das er eine "1" liefert?
Mathias Jansen
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.655 Beiträge
 
Delphi 12 Athens
 
#8

AW: Sevezip.pas [ISO]

  Alt 26. Nov 2010, 12:32
Wenn das nicht dokumentiert ist, hast Du schlechte Karten.
Tjo, und jetzt wäre eine Dokumentation recht, warum denn überhaupt diese 1 geliefert wird...
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 08:46 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz