Link im aktiven Browser ausführen.

[TriphunEM]

Hallo, ich hab eine Toolbar für den IE programmiert, mit der man sich in mein Projekt als Benutzer einloggen kann.
Da mein Standard Browser Firefox ist, öffnet sich jeden mal bei einloggen die Seite im Firefox und nicht in den eigentlichen IE-Fenster. Hat jemand ein Lösung wie ich den Link im aktiven Browser, in dem Fall der IE, öffne???

So wollte ich den Link aufrufen : ShellExecute(0, 'open', PChar('http://www.domain.com'), nil, nil, SW_SHOW);

danke...

[inherited]

ShellExecute(0, 'open', PChar('iexplore.exe'), PChar('http://meineurl.com'), nil, SW_SHOW); Versuch das mal

[TriphunEM]

danke. so funktioniert es zwar, aber ich würde lieber wollen, dass der link in der aktuellen seiteb geöffnet wird, und nicht in einem neuen fenster. dafür ein idee???

danke!

[Christian Seehase]

Moin Triphun,

Zitat von TriphunEM:

aber ich würde lieber wollen, dass der link in der aktuellen seiteb geöffnet wird, und nicht in einem neuen fenster.

Warum denn das?
Ich für meinen Teil kann es überhaupt nicht leiden, wenn so etwas passiert, und mir eine geöffnete Seite, sozusagen, überschrieben wird.

[TriphunEM]

ja. ich will aber das der Benutzer selber entscheiden kann, ob der Link im aktiven IE oder einem neuen IE-Fenster angezeigt wird.
Hat jemand eine Ahnung wie ich den Link im aktuellen IE-Fenster öffne?

Und gleich noch die Frage, wie ich den Link in einem neuen Tab im IE7 öffne??????

PS: Die Anwendung ist eine Toolbar im IE!

Danke..

[TriphunEM]

keiner eine idee?

[mkinzler]

Dann mußt du den IE wohl per OLE fernsteuern. Dann hat sich die Sache mit dem Standardbrowser aber erledigt.

[Ydobon]

In der Toolbar dürftest du auch das IWebBrowser2 Interface des IE haben und das hat die Methode Navigate, mit dem du eine Seite aufrufen kannst. Für den zweiten Parameter gibt es zz. folgende Konstanten

Delphi-Quellcode:

const
  navOpenInNewWindow      = $00000001;
  navNoHistory            = $00000002;
  navNoReadFromCache      = $00000004;
  navNoWriteToCache       = $00000008;
  navAllowAutosearch      = $00000010;
  navBrowserBar           = $00000020;
  navHyperlink            = $00000040;
  navEnforceRestricted    = $00000080;
  navNewWindowsManaged    = $00000100;
  navUntrustedForDownload = $00000200;
  navTrustedForActiveX    = $00000400;

  navOpenInNewTab         = $00000800;
  navOpenInBackgroundTab  = $00001000;

  navKeepWordWheelText    = $00002000;

[TriphunEM]

und wie komm ich an das IWebBrowser2 Interface und die Methode ran. Was meinst Du jetzt mit 2. Parameter? Redest Du von ShellExecute?

ps. hab meine toolbar nach dem schema gemacht : http://info.borland.de/newsletter/nl...d/Deskband.htm

[Ydobon]

Ungefähr davon bin ich auch ausgegangen und wenn du nicht zu viel geändert hast, dann müsste dein Formular auch eine Eigenschaft IWebBrowser2 (im Original der Demo FIE) besitzen. Auf jeden Fall steht das Interface in der eigentlichen DeskBar Unit zur Verfügung und kann von dort übernommen werden.
Eine Methode von IWebBrowser2 ist

Delphi-Quellcode:

    procedure Navigate(const URL: WideString; var Flags: OleVariant; 
                   var TargetFrameName: OleVariant; var PostData: OleVariant; 
                   var Headers: OleVariant);

Über den Parameter Flags kannst du dann steuern, ob die Seite in einem Tab geöffnet wird.
Ein mögliches Problem dabei könnte sein, dass ein neues Tab ein eigenes IWebBrowser2 Interface ist, das du erst einmal nicht kennst.