Heyho.. ich habe ein kleines Problem mit dem TWebBrowser.
Es geht darum,
HTML-Code im Browser anzeigen zu lassen.
prozedur:
Delphi-Quellcode:
procedure LoadHTMLToWebbrowser(AWebBrowser: TWebBrowser;
AHTMLCode: TWideStrings);
// ehemals TStrings
var
myDocument:OleVariant;
begin
//falls nötig, leere Seite anzeigen
if AWebBrowser.Document =
nil then
AWebBrowser.Navigate('
about:blank');
//HTML-Code in TWebBrowser.Document schreiben
myDocument:=AWebBrowser.Document;
myDocument.Clear;
myDocument.
Write(AHTMLCode.Text);
myDocument.Close;
end;
LoadHTMLToWebBrowser(WebBrowser1,SynMemo1.Lines); // Fehler hier
[Fehler] Unit1.pas(46): E2010 Inkompatible Typen: 'WideStrings.TWideStrings' und 'SynUnicode.TWideStrings'
WideStrings steht in der Uses-Klausel.
Dann hatte ich es noch mit dem hier Probiert:
code := WebBrowser1.OleObject.Document.Body.InnerHtml;
Aber dagibts eine Zugriffsverletzung.