Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  AW: ENtpacken von .rar

    Delphi
    by whiteF, 30. Apr 2011
  procedure TForm1.Button1Click(Sender: TObject);
  var filepath : string;
  begin
  if OpenDialog1.Execute then begin
  filepath := OpenDialog1.FileName;
  showmessage(filepath);
  if RAR1.OpenFile(filepath) then
  ShowMessage('Erfolg!')
  else
  ShowMessage('Fehler!');
• Forum: Sonstige Fragen zu Delphi

  AW: ENtpacken von .rar

    Delphi
    by whiteF, 30. Apr 2011
  das ging aber schnell....
  danke für die raschen antworten,
  aber leider bekomm ich mit sx2008's lösung nur "dass das archiv nicht geöffnet werden kann"
  dass ich 2 mal die Haustür aufschließe stimmt so nicht ganz, "if RAR1.OpenFile(OpenDialog1.FileName) then begin" wird ja gar nicht ausgelöst... das ist ja das problem! (Ergebnis ist ja 0 und nicht TRUE)
  
  rar1.create brauch ich nicht, hast...
• Forum: Sonstige Fragen zu Delphi

  AW: ENtpacken von .rar

    Delphi
    by whiteF, 30. Apr 2011
  hi, das thema ist zwar etwa angestaubt, aber ich versuchs dennoch^^ (habe Delphi XE)
  
  eigentlich ist diese komponente ja ziemlich einfach und schlicht, aber irgendwie komm ich da nicht weiter...
  
  ich habe jetzt folgendes:
  
  procedure TForm1.Button1Click(Sender: TObject);
  begin
  RAR1:=RAR1.create(self); //Objekt erstellen
  if OpenDialog1.Execute then begin