Heyho.. ich habe ein kleines Problem mit dem TWebBrowser.
Es geht darum, HTML-Code im Browser anzeigen zu lassen.

prozedur:

zusammenfalten · markieren

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.

Hallo,

zwei Typen sind nicht schon deswegen gleich, weil sie gleich heißen.

Du kannst es so probieren:

procedure LoadHTMLToWebbrowser(AWebBrowser: TWebBrowser; AHTMLCode: SynUnicode.TWideStrings); Grüße vom marabu

Das funktioniert leider nicht.

[Fehler] Preview.pas(29): E2003 Undefinierter Bezeichner: 'SynUnicode'

Du mußt natürlich SynUnicode in den uses-Abschnitt aufnehmen.