TWebBrowser: Links mit "file://" öffnen?

[MCXSC]

Hallo,

ich habe in meinem Programm die TWebBrowser-Komponente eingebunden. Dort rufe ich nun eine URL auf, die u.a. folgenden HTML-Code beinhaltet:

Delphi-Quellcode:

...



[url="file://c:/datei.end"]datei.end[/url]



...

Nun soll bei einem Klick auf eben diesen Link die Datei "ganz normal" (also wie ein Doppelklick im Explorer) geöffnet werden. Ich habe folgende Funktion eingebunden:

Delphi-Quellcode:

procedure TMainFrm.BrowserBeforeNavigate2(ASender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
var
  newURL: String;
begin
  newURL := URL;
  ShowMessage(NewURL); //Zu Testzwecken eingebaut
  if newURL <> 'about:blank' then begin
    Cancel := True;
    ShellExecute(Application.Handle, 'open', PChar(newURL), nil, nil, SW_NORMAL);
  end;
end;

Wenn ich nun den Link ("file://c:/datei.end") als HTTP-Link umbaue (also z.B. http://www.delphipraxis.net), wird der Link auch (so wie es sein soll) über "ShellExecute" geöffnet (also im Standardbrowser). Aber bei dem oben genannten "file://"-Link passiert rein gar nichts. M.M.n. wird er nichtmals als Link angenommen, da auch die Zeile "ShowMessage(NewURL)" gar nicht erst ausgeführt wird.

Hat jemand eine Idee?

Danke,
Der S ;)

[marabu]

Hallo Marcel,

versuche es doch mal mit dem richtigen Vorsatz - file:///c|/datei.end

Grüße vom marabu

[MCXSC]

Super, danke... :)

Bei z.B. (c:/datei.end bzw. file:///c|/datei.end) funktioniert es jetzt auch. Nun habe ich aber ein weiteres Problem(chen): :shock:

Wenn ich nun einen Link habe, der Leerzeichen enthält (also z.B. "d:/Eigene Dateien/Eigene Bilder/datei.jpg"), dann funktioniert es wohl nicht mehr. Ich habe auch schon versucht, den Link (bzw. den reinen Pfad) mit Hilfe dieser Funktion umzuwandeln. Das Umwandeln klappt auch ohne Probleme und die Funktion gibt mir einen korrekten "ShortPath" zurück. Wenn ich diesen nun bearbeite (also mit "file:///" und "|") klappt es trotzdem nicht im TWebBrowser... :(

[mkinzler]

Quote den Pfad

[MCXSC]

Zitat:

Zitat von mkinzler

Quote den Pfad

Wo quoten? Im Link ist er gequotet (...), wenn ich ihn bei der Funktion quote überliefert mir die Funktion keinen korrekten Pfad... :stupid:

[marabu]

Hallo,

ein schlichtes percent encoding sollte helfen:

Code:

file:///d|/Eigene%20Dateien/Eigene%20Bilder/datei.jpg

Quotes sind eigentlich eher was für die Shell.

Freundliche Grüße

[MCXSC]

Zitat:

Zitat von marabu

ein schlichtes percent encoding sollte helfen:

Ja, daran lag es wohl. Die TWebBrowser-Kompontete hat den Pfad mit den Prozenten übermittelt; ich habe diese nun einfach mit einfachen Leerzeichen ersetzt und dann klappts auch. ;) Danke...! :)