Delphi-PRAXiS - Delphi TWebBrowser-Problem

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)

- - Delphi TWebBrowser-Problem (https://www.delphipraxis.net/102088-twebbrowser-problem.html)

TWebBrowser-Problem

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;

Delphi-Quellcode:

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:

Delphi-Quellcode:

code := WebBrowser1.OleObject.Document.Body.InnerHtml;

Aber dagibts eine Zugriffsverletzung.

Re: TWebBrowser-Problem

Hallo,

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

Du kannst es so probieren:

Delphi-Quellcode:

			procedure LoadHTMLToWebbrowser(AWebBrowser: TWebBrowser; AHTMLCode: SynUnicode.TWideStrings);
		

Grüße vom marabu

Re: TWebBrowser-Problem

Das funktioniert leider nicht.

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

Re: TWebBrowser-Problem

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