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'