ShellExecute mit Leerzeichen

[H.Bothur]

Moin,

eigentlich ist mir ja klar wie es gehen sollte:

Ich habe einen Film unter

e:\Video\2 Serien\Friesland-03-Klootschiessen.mp4

der soll mit folgendem Sourcecode gestartet werden. Natürlich habe ich im Debugger mir den Inhalt von Filename angesehen, da steht der Name auch korrekt in Anführungszeichen. Macht PChar noch irgendwas aus den Tüttelchen ?

Der Film wird nicht abgespielt und es kommt als Fehlermeldung:

EOSError
Systemfehler. Code: 2
Das System kann die angegebene Datei nicht finden.



Gruss
Hans

Delphi-Quellcode:

procedure FilmAbspielen;
var
  Node: PVirtualNode;
  Data: PTreeData;
  FileName: String;
begin
  Node := SerienDB.VST.FocusedNode;
  if not Assigned(Node) then Exit;
  Data := SerienDB.VST.GetNodeData(Node);
  FileName := #34 +SerienDB.LbEVerzeichnis.Text +'\' +Data.FCaption +#34;
  if Data.FColumn5 = 'F' then
  begin
    ShellExecute(0, 'open', PChar(FileName), NIL, NIL, SW_SHOW);
    RaiseLastOSError;
  end;
end;

[Achim Kalwa]

Zitat von H.Bothur:

Moin,

eigentlich ist mir ja klar wie es gehen sollte:

Ich habe einen Film unter

e:\Video\2 Serien\Friesland-03-Klootschiessen.mp4

der soll mit folgendem Sourcecode gestartet werden. Natürlich habe ich im Debugger mir den Inhalt von Filename angesehen, da steht der Name auch korrekt in Anführungszeichen. Macht PChar noch irgendwas aus den Tüttelchen ?

Was passiert denn? Fehlermeldung?

[H.Bothur]

Zitat von Achim Kalwa:

Was passiert denn? Fehlermeldung?

Sorry - natürlich ...


der Film wird nicht abgespielt und es kommt als Fehlermeldung:

EOSError
Systemfehler. Code: 2
Das System kann die angegebene Datei nicht finden.

Gruss
Hans

[Stolle58]

Code:

Filename := SystUtils.QuotedStr(Filename)

[Achim Kalwa]

Zitat von H.Bothur:

der Film wird nicht abgespielt und es kommt als Fehlermeldung:

EOSError
Systemfehler. Code: 2
Das System kann die angegebene Datei nicht finden.

Falls einer der Teil-Strings bereits ein Anführungszeichen oder den Backslash enthält, könnte es zu einem Problem kommen. Versuche mal

Delphi-Quellcode:

  FileName := TPath.Combine(OrdnerName, DateiName); // uses System.IOUtils;
  if Pos(' ', FileName) > 0 then
    FileName := AnsiQuotedString(FileName, #34);
  ShellExecute(...

[peterbelow]

Zitat von H.Bothur:

Zitat von Achim Kalwa:

Was passiert denn? Fehlermeldung?

Sorry - natürlich ...


der Film wird nicht abgespielt und es kommt als Fehlermeldung:

EOSError
Systemfehler. Code: 2
Das System kann die angegebene Datei nicht finden.

Gruss
Hans

Der ganze Ansatz ist falsch. Einen Dateinamen in " einzuschließen erfordern nur die Kommandozeilen-Tools, für ShellExecute ist das nicht erlaubt.

[H.Bothur]

[QUOTE=Achim Kalwa;1527915]

Zitat von H.Bothur:

Falls einer der Teil-Strings bereits ein Anführungszeichen oder den Backslash enthält, könnte es zu einem Problem kommen. Versuche mal

Delphi-Quellcode:

  FileName := TPath.Combine(OrdnerName, DateiName); // uses System.IOUtils;
  if Pos(' ', FileName) > 0 then
    FileName := AnsiQuotedString(FileName, #34);
  ShellExecute(...

Ergibt in FileName das gleiche Ergebnis - und leider auch den gleichen Fehler

Hans

[H.Bothur]

[QUOTE=peterbelow;1527917]

Zitat von H.Bothur:

Der ganze Ansatz ist falsch. Einen Dateinamen in " einzuschließen erfordern nur die Kommandozeilen-Tools, für ShellExecute ist das nicht erlaubt.

Aber ohne die " kommt auch dieser Fehler - was wäre denn besser ?

Hans

[Achim Kalwa]

Zitat von H.Bothur:

Ergibt in FileName das gleiche Ergebnis - und leider auch den gleichen Fehler

Ob die Datei wirklich da ist und für das ausgeführte Programm erreichbar ist hast Du sicherlich schon überprüft (IDE läuft als Admin; E: ist ein Netzwerklaufwerk gemappt vom User usw.)

Kopiere doch mal beim Debuggen den Inhalt von FileName in die Zwischenablage, und verfüttere das an Windows Start -> Ausführen. Wenn da ebenfalls ein Fehler auftritt, dann gibt es die Datei wirklich nicht.

Ansonsten hilft jetzt nur noch die Glaskugel

[dstein]

evtl. hilft zusätzlich:

begin
if fileexist(FileName) then
begin
ShellExecute(0, 'open', PChar(FileName), NIL, NIL, SW_SHOW);
RaiseLastOSError;
end
else
... "irgend eine Antwort"..
end;