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]

Delphi-Quellcode:

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:

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.

[TriphunEM]

also ich bin jetzt soweit:

Delphi-Quellcode:

procedure OpenSite(url, flags, targetframename, postdata, headers: olevariant);
var
  ie : IWebBrowser2;
begin
  ie := CreateOleObject('InternetExplorer.Application') as IWebBrowser2;
  ie.Visible := true;
  ie.Navigate2(url, flags, targetframename, postdata, headers);
end;
...
OpenSite(url,'navHyperlink','','','');

allerdings öffnet der Link sich immer noch in einen neuen fenster!

Wie schaffe ich das nun, dass er in dem aktuellen fenster geöffnet wird!?????

thx

[toms]

navHyperlink ist kein string. Eine Konstante:

OpenSite(url,navHyperlink,'','','');

[Ydobon]

Nicht sehr verwunderlich, dass du einen neuen Browser bekommst, du öffnest ja auch einen.
Da ist wieder die Frage, was du von der Demo übernommen bzw. geändert hast, die Deklaration deines Formulars wäre interessant.

[TriphunEM]

ich hab an der demo nix geändert! hab nur das form angepasst!
wäre schön, wenn du mal deine idee, wie es funktionieren könnte in Quellcode zeigen würdest.
Denn das ist dann bestimmt verständlicher für mich.

thx

[Ydobon]

Also nichts geändert, dann müsste im Formular das vorkommen

Delphi-Quellcode:

  public
    /// <summary>
    ///   Speichert den Link in das lokale Fenster des Internet Explorers, wenn
    ///   das DeskBand als Teil des IE geladen wird
    /// </summary>
    property IE: IWebBrowser2 read FIE write SetIE;

Und eben diese Eigenschaft IE ist das Interface des Browsers in dem die Toolbar läuft. Dementsprechend muss dann nur noch irgendwo stehen

Delphi-Quellcode:

var flags: OLEVariant;
begin
  flags:=navOpenInNewTab;
  IE.Navigate('http://www.delphipraxis.net/index.html', flags, emptyParam, emptyParam, emptyParam);

um die Seite in einem neuen Tab zu öffnen.

[TriphunEM]

jo danke. hat super geklappt. ich war wohl blind.