RAR.EXE über Shellexecute und Parameter (" ")

[nachtstreuner]

Hallo Delphigemeinde,

Ich rufe über Shellexecute die Rar.exe, welche sich im Programmverzeichnis befindet auf. Irgendwo habe ich gelesen, das der Archivname inkl.Pfad, sofern dieser Leerzeichen enthält in " " eingeschlossen werden muss.

Folgenden Code habe ich :

Code:

  // wenn als RAR gepackt werden soll, dann dies .....
  if DLS.PACK = 'RAR' then begin
     PATH := ExtractFilePath(ParamStr(0));
     paramPack := ' a -r -ep1 ' + QuotedStr(frmDLS.JsListSenden.path + DLS.rarFileName)) + ' '+
          frmDLS.JsListSenden.PATH +'temprar\*.*';
     Showmessage(parampack);
     Shellexecute(0, 'open', PChar(PATH + '\rar.exe'), PChar(paramPACK), nil, SW_SHOW);
  end;
  frmDLS.sBttnUnten.Click;
  frmPackName.Close;

Showmessage ergibt folgende Anzeige :
a -r -ep1 'o:\Sendeverzeichnis\2012-03-27_dls_27123_schneider 20791 RHD.rar' o:\Sendeverzeichnis\temprar\*.*

D.h. QuotedStr() setzt ' statt ". Wie bekomme ich es nun hin, das folgendes in paramPack steht(da der Archivname Leerzeichen enthält) ?:

a -r -ep1 "o:\Sendeverzeichnis\2012-03-27_dls_27123_schneider 20791 RHD.rar" o:\Sendeverzeichnis\temprar\*.*

[s.h.a.r.k]

Warum machst du es nicht selbst?

Delphi-Quellcode:

paramPack := ' a -r -ep1 "' + frmDLS.JsListSenden.path + DLS.rarFileName + '" '+
          frmDLS.JsListSenden.PATH +'temprar\*.*';

Oder gleich via Format:

Delphi-Quellcode:

RarFilename := frmDLS.JsListSenden.path + DLS.rarFileName;
TempPath := frmDLS.JsListSenden.PATH + 'temprar\*.*';
paramPack := Format('a -r -ep1 "%s" "%s"', [RarFilename, TempPath]);

[nachtstreuner]

Hallo S.h.a.r.k,

Deine beiden Tips waren goldwert, funktionieren beide bestens.

Aber was ist der Vorteil / Nachteil dieser beiden Lösungen ? Haben andere dazu noch eine meinung ?

Ich habe jetzt mal die zweite Lösung eingebaut, obwohl die obere auch funktioniert.

Deshalb erstmal ein herzliches Dankeschön. Wie immer ist auf Euch Verlass.:thumb::-D

[DeddyH]

Obwohl ich auch die Format-Lösung favorisiere: hättest Du statt QuotedStr AnsiQuotedStr verwendet, hättest Du das Quote-Zeichen selbst vergeben können ;)

[s.h.a.r.k]

Im Prinzip machen beide Versionen das gleiche. Nur welches findest du dein rein subjektiv übersichtlicher? ;) Denk mal dran, dass du den Code zwei Wochen liegen lässt und dann wieder anfassen musst, da eine Änderung ansteht. Mit der Fragestellung kannst dir schon sehr viel selbst beantworten.

In der ersten Lösung musst du über alles drüber lesen, den Code genau verstehen und dann zu einer Änderung ansetzen. Klar, das ist ein kleines Beispiel, aber dabei geht es um eine gewisse Philospohie :studpi: Eigentlich müsste man sogar noch einen (oder mehrere) Schritte weiter gehen und das ganze wie folgt umschreiben:

Delphi-Quellcode:

RarFilename := GetRarFilename();
TempPath := GetExtractionPath();
RarParameter := CreateRarParameter(RarFilename, TempPath);

Oder man baut sich gleich eine entsprechende Klasse plus Hirarchie auf, die das entsprechend kapseln ;)

[nachtstreuner]

Hallo DeddyH und S.h.a.r.k,

nochmals besten Dank für die kreativen Tips, ich denke mal mit dem Format ist es die bessere und übersichtlichere Version.

AnsiQuotedStr war mir bisher nicht bekannt, werds aber mal ausprobieren.

Bis zum nächstenmal. Danke