AWebBrowser.Navigate benötigt mehr Angaben?!

[MCXSC]

Hallo,

ich habe es unter BDS2006 nun auch endlich geschafft, den WebBrowser zu importieren. Dabei wurde dieser von TWebBrowser(_V1) wohl nach CppWebBrowser(_V1) umbenannt.

Aber ich habe folgendes Problem. Mit D7 ging folgender Code:

Delphi-Quellcode:

procedure LoadHTML(AWebBrowser: CppWebBrowser_V1; AHTMLCode: TStrings);
var
  Tab: OleVariant;
begin
  if AWebBrowser.Document = nil then AWebBrowser.Navigate('about:blank');
  Tab := AWebBrowser.Document;
  Tab.Clear;
  Tab.Write(AHTMLCode.Text);
  Tab.Close;
end;

An dem CppWebBrowser_V1 liegt es nicht. Das Problem ist aber: AWebBrowser.Navigate() benötigt mehr Angaben. Laut der Hilfe werden folgende Angaben benötigt:

URL, Flag, TargetFrameName, PostDate und Header.

Allerdings habe ich keine Ahnung, was da hin muss und hoffe, mir kann jemand helfen.

[BullsEye]

Lass einfach das Komma weg.

Delphi-Quellcode:

procedure LoadHTML(AWebBrowser: CppWebBrowser_V1; AHTMLCode: TStrings);
var
  Tab: OleVariant;
begin
awebbrowser.navigate
  if AWebBrowser.Document = nil then AWebBrowser.Navigate('about:blank'); // Hier das Komma weg und dann müsste es gehen
  Tab := AWebBrowser.Document;
  Tab.Clear;
  Tab.Write(AHTMLCode.Text);
  Tab.Close;
end;

[MCXSC]

Achso, das Komma ist von mir hinzugekommen. Ich hatte es erst mit "nil" versucht und dann vergessen, dass Komma zu löschen.

Funktionieren tut es trotzdem nicht - auch ohne Komma.

[DeddyH]

Ich benutze das Ding ja nie, aber benötigt die Methode navigate nicht einen String-Parameter mit der URL?awebbrowser.navigate sieht zumindest komisch aus, selbst ohne Parameter fehlt da ein Semikolon.

[toms]

Delphi-Quellcode:

procedure NavigateURL(WebBrowser: CppWebBrowser_V1; URL: string);
var 
  EmptyParam : OleVariant; 
begin 
  Webbrowser.Navigate(URL, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

[BullsEye]

Zitat von DeddyH:

Ich benutze das Ding ja nie, aber benötigt die Methode navigate nicht einen String-Parameter mit der URL?awebbrowser.navigate sieht zumindest komisch aus, selbst ohne Parameter fehlt da ein Semikolon.

ja, tut es, sry hab ich gerade ganz übersehen

Delphi-Quellcode:

procedure LoadHTML(AWebBrowser: CppWebBrowser_V1; AHTMLCode: TStrings);
var
  Tab: OleVariant;
begin
awebbrowser.navigate(edit1.text); // BSP die Eingabeleiste oder so. oder halt wieder ('www.google.de') oder ähnliches
  if AWebBrowser.Document = nil then AWebBrowser.Navigate('about:blank');
  Tab := AWebBrowser.Document;
  Tab.Clear;
  Tab.Write(AHTMLCode.Text);
  Tab.Close;
end;

[MCXSC]

Zitat von toms:

Delphi-Quellcode:

procedure NavigateURL(WebBrowser: CppWebBrowser_V1; URL: string);
var 
  EmptyParam : OleVariant; 
begin 
  Webbrowser.Navigate(URL, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

Danke!

Delphi-Quellcode:

procedure LoadHTML(AWebBrowser: CppWebBrowser_V1; AHTMLCode: TStrings);
var
  Tab: OleVariant;
begin
  if AWebBrowser.Document = nil then AWebBrowser.Navigate('about:blank', EmptyParam, EmptyParam, EmptyParam, EmptyParam);
  Tab := AWebBrowser.Document;
  Tab.Clear;
  Tab.Write(AHTMLCode.Text);
  Tab.Close;
end;

Nun meckert der Compiler aber bei dem Aufruf:

NavigateURL(Browser, HTML);

Zitat:

E2010 Inkompatible Typen: 'IWebBrowser' und 'TCppWebBrowser'

[toms]

Zitat:

E2010 Inkompatible Typen: 'IWebBrowser' und 'TCppWebBrowser'

Deklariere :
procedure NavigateURL(WebBrowser: IWebBrowser; URL: string);

[MCXSC]

Die Komponente ist aber vom Typ TCppWebBrowser_V1. Wenn ich nun alles nach IWebBrowser umdeklariere, meckert der Compiler trotzdem.

[sx2008]

Zitat von MCXSC:

Die Komponente ist aber vom Typ TCppWebBrowser_V1. Wenn ich nun alles nach IWebBrowser umdeklariere, meckert der Compiler trotzdem.

Es gibt hier eine Klasse (eigentlich TWebBrowser) und mehrere Interfaces IWebBrowser, IWebBrowser2.
Sowohl die Klasse als auch die Interfaces haben eine Methode Navigate().
Wir wollen aber mit dem Interface arbeiten, weil das a.) effizienter und b.) flexibler ist.
Denn die kapselnde Klasse macht letztendlich nichts anderes, als ebenfalls das Interface zu benützen.
NavigateURL(CppWebBrowser_V1.DefaultInterface, 'http://www.delphipraxis.de'); Der Unterschied zwischen IWebBrowser und IWebBrowser2 ist, dass IWebBrowser2 einige Methoden mehr hat, aber ansonsten alles kann, was IWebBrowser auch kann.
Mein D2007 gibt als DefaultInterface das IWebBrowser2 raus.
Kein Problem, das kann man leicht umwandeln:
NavigateURL(CppWebBrowser_V1.DefaultInterface as IWebBrowser, 'http://www.delphipraxis.de'); Man kann sich das Leben einfacher machen, indem man im Formular eine lokale Variable anlegt:
  FWebBrowser:IWebBrowser; und diese Variable einmal zuweist und dann immer nur noch mit FWebBrowser arbeitet.