Sevezip.pas [ISO]

[lbccaleb]

Das heißt, der Fehler tritt eine Zeile vorher auf, die da währe:

openfile(openpfad); Ist also wohl so, dass er das Format nicht erkennt!
Vllt ist es auch eine andere Version, bzw ein ISO-Image und keine gepackte Datei?

[-Phantom-]

ist ne "ISO-Datei" Also WinRar kann es entpacken.

Hab die ISO-Datei mit dem "ISO Commander" erstellt

[s.h.a.r.k]

Und wo wird RINOK() aufgerufen? Das Problem ist, dass du mit F8 nicht in Unterroutinen springst. Beispiel:

Delphi-Quellcode:

procedure Foo();
begin // <- auf das begin einen Haltepunkt setzen
  Bar();
end;

procedure Bar();
begin
  raise Exception.Create('Bar...');
end;

Wenn du F8 nutzt, dann springt der Debugger gar nicht erst in die Bar-Methode, sondern springt in der Zeile, in der die Bar() Methode aufgerufen wird raus und bringt denn die Exception. Drückst du F7, dann geht der Debugger noch in die Bar() Methode rein. Somit ist das F7 "genauer".

-- EDIT

Installier dir mal 7zip und schau, ob es damit auch geht! Wichtig: Schau, dass du die aktuelle Version dieser DLL hast, denn da wird wohl das Problem liegen.

[-Phantom-]

Mache ich gleich morgen als erstes. Muss nun schlafen gehen ^^ morgen 6 Uhr ausstehen. Ich sag dann morgen bescheid ob es mit 7zip Klappt.

[s.h.a.r.k]

Kann dir gleich sagen, dass es mit 7zip klappt Habs vorher schon probiert. Nur kann ich dir halt nicht sagen, wie 7zip das intern handelt.

[-Phantom-]

Gibt es den einen andern weg eine ISO-Datei zu entpacken?

[mkinzler]

Ja Z.B. Mounten

oder
http://sourceforge.net/projects/freeburner/
http://sourceforge.net/projects/isolib/
http://www.binarymagics.com/site/mag...urner_vcl.html
http://rocketdivision.com/burn_sdk.html

[-Phantom-]

Oke danke erst mal.

Ich versuche es damit hinzubekommen

// Hab grade versucht den Freeburner zu installieren. Dann kam die Meldung

Zitat:

[[DCC Error] CovertFuncs.pas(240): E2010 Incompatible types: 'AnsiChar' and 'Char'

Bei dieser Funktion

Zitat:

procedure ASPIstrCopy(Src: PChar; var Dst: ShortString; Leng: Integer);
var
i: integer;
begin
i := 0;
while (i < Leng) and (Src[i] >= ' ') do
begin
Dst[i + 1] := Src[i];
inc(i);
end;
while (i > 0) and (Dst[i] = ' ') do
Dec(i); // Trim it Right
Dst[0] := CHR(i);
end;

[s.h.a.r.k]

Zitat von -Phantom-:

Gibt es den einen andern weg eine ISO-Datei zu entpacken?

Ich glaube du solltest dich ein wenig besser in die Materie einlesen Dann wird das mit dem entpacken einer ISO mit Sicherheit noch was. Nur ohne die Grundlagen wirds schwer.

[mkinzler]

Wenn möglich, würde ich diese nicht entpacken, sondern direkt auf die Inhalte zugreifen.