probleme bei entpacken von rar dateien

[SimStar001]

Hallo, ich muss in meinem programm rar dateien entpacken. dazu habe ich die folgende komponente die ich hier gefunden habe installiert.

http://www.delphipraxis.net/internal...=rar+entpacken

hier mein code:

Delphi-Quellcode:

if RAR1.OpenFile(ExtractFilePath(paramstr(0)) + '\Data\Cache\File.rar') then
    if RAR1.Extract(ExtractFilePath(paramstr(0)) + '\Data\Cache\',true,nil) then
      showmessage('entpackt')
        else
          status.Caption := 'Fehler beim Entpacken';

mein problem liegt darain, dass er mir zwar anzeigt, dass die file geöffnet wurde und entpackt, aber im angegebenen ordner kann ich die datei dann net finden.

das gleiche problem habe ich übrigens auch mit der beiliegenden demo!

wo könnt mein fehler liegen? was mach ich falsch.

danke!

lg marco

[jaenicke]

Kann es sein, dass dein Programm keine Schreibrechte im Ordner hat? Wenn das Programm z.B. unter c:\programme liegt, dann kann es da natürlich nicht hinschreiben.

Ansonsten ist mir aufgefallen, dass du ein \ zu viel schreibst, denn ExtractFilePath liefert bereits ein \ am Ende. ExtractFileDir macht das selbe ohne ein \ am Ende. Genauso bin ich nicht sicher, ob am Ende ein \ gehört.

Kann es sein, dass eine gleichnamige Datei wie die Rar-Datei in der Rar-Datei liegt? Das wäre natürlich ein Problem, wenn du in das selbe Verzeichnis entpackst.

Und wie meinst du das mit der Demo? Die funktioniert bei mir tadellos.

[SimStar001]

also ich habe es mit '\' mehr und weniger probiert. klappt beides nicht.

die datei liegt im moment in eigene dateien. später nach der installation soll sie mal im programme ordner liegen.

die rar heißt: FST_IVAO_Setup.rar und die datei darin FST_IVAO_Setup.exe

das sollte doch kein problem geben!? oder !

[jaenicke]

Unter c:\programme hast du normalerweise keine Schreibrechte. Du musst dir dann mit GetTempPath das Verzeichnis für temporäre Dateien holen, dort am besten einen Unterordner erstellen, und dann kannst du dorthin ungestört entpacken.
Das musst du danach natürlich alles wieder löschen.

Dein Quelltext funktioniert bei mir jedenfalls 1:1 kopiert tadellos...

[SimStar001]

ok, merkwürdig, dann probier ich mal deine lösung aus... wenns net klappt melde ich mich wieder
danke


SUPER HAT GEKLAPPT!!!!

DANKE