Dateitypen automatisch öffnen TWebbrowser

[E307]

Hallo!
Wie kann ich im TWebBrowser einstellen, dass bestimmte Dateien eines Typs (z.B. .mp3 oder .rtf) beim Klick auf den Link automatisch mit einem vorher festgelegten Programm geöffnet werden?

[marabu]

Hi,

dazu dienen die sogenannten Browser Helper Objects.

Gute Nacht

[E307]

Ich meine nur in einem TWebBrowser in meinem Programm. Nicht gleich im ganzen InternetExplorer!

[E307]

Hat keiner eine Idee? (Es geht darum, Anwendungen (EXE) oder andere Dokumente automatisch ohne Nachfrage zu öffnen. Das soll aber nur in diesem Einen Programm möglich sein)

[E307]

Es gibt doch auch andere Programme, wie z.B. die Systeme von der PCWelt, oderso, die sowas mit dem IE machen können! Geht das nicht mit Delphi?

[toms]

Schau dir mal TranslateURL von IDocHostUIHandler) an.
Vielleicht lässt sich damit etwas machen.

[marabu]

Hallo Thomas,

OnTranslateUrl() gestattet die Abänderung eines URL, bevor er beim Server abgefragt wird - wäre da nicht OnBeforeNavigate2() besser geeignet?

Ich könnte mir vorstellen, dass man im Event OnBeforeNavigate2() den URL zerlegt (InternetCrackUrl) und bei Feststellung einer speziellen Erweiterung die Navigation abbricht, das Dokument per Download (Indy oder WinInet) besorgt und dann per temporärer Datei und ShellExecute() (nicht jedes Helper-Programm wird ein Stream-Interface mitbringen) an das assoziierte Programm übergibt.

Freundliche Grüße

[E307]

Danke, jetzt geht's! Hier der Code:

Delphi-Quellcode:

uses ShellAPI;

//...

procedure TForm1.WebBrowser1BeforeNavigate2(ASender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
var h: String;
begin
H:=LowerCase(ExtractFileext(URL));
if (h ='.exe')
or (h='.mp3')
or (h='.rtf') then begin
Cancel:=true;
h:=URL;
Shellexecute(Application.Handle, 'open', PAnsiChar(h), nil, nil, SW_ShowNormal);
end;
end;

Vielleicht bekommt man die Umwandlung von OLEVariant in PAnsiChar besser hin, aber der Code hier funktioniert jedenfalls!

[edit]Code hinzugefügt[/edit]