HTML in TWebBrowser injizieren

**Die Muhkuh**

Hi,

ich hab in einer String-Variable eine komplette, kleine HTML-Seite, die ich gerne in den TWebBrowser injizieren würde, damit dieser die HTML-Seite korrekt darstellt.

Gibt es da eine Möglichkeit dafür?

mfG,

Manuel

**arbu man**

Klar, Navigate auf about:deinhtmlstring

mfg, Björn

**Die Muhkuh**

Supi! Vielen Dank

**marabu**

Hallo ihr zwei,

das funktioniert nur solange, wie das übergebene markup nicht das size limit (1.024) für URLs sprengt. Sicherer ist es das Dokument direkt zu schreiben. Es gibt da viele Wege, aber der vom Quellcode her primitivste ist sicher der hier:

markieren

Delphi-Quellcode:

			procedure LoadDocumentFromStrings(doc: OleVariant; s: TStrings; url: string = 'about:blank');

var

  i: Integer;

begin

  doc.Open(url, '_blank');

  doc.Clear;

  for i := 0 to Pred(s.Count) do

    doc.WriteLn(s[i]);

  doc.Close;

end;

Getippt und nicht getestet.

Grüße vom marabu

**Die Muhkuh**

Hi marabu,

Deine Version werde ich später auch mal testen, da ich denke, dass ich über das size limit kommen werde.

**Die Muhkuh**

Hi marabu,

ich hab es eben getestet, leider funktioniert es nicht:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TfrmMain.Vorschau1Click(Sender: TObject);

var

  frmPreview: TfrmPreview;

  tmp: String;

begin

  frmPreview := TfrmPreview.Create(Application);

  tmp := '<html><head></head><body>';

  tmp := tmp + TConverter.ConvertBBtoHTML(reEditor.Text);

  tmp := tmp + '</body></html>';

  try

    frmPreview.wbBrowser.OleObject.Open('about:blank', '_blank');

    frmPreview.wbBrowser.OleObject.Clear;

    frmPreview.wbBrowser.OleObject.WriteLn(tmp);

    frmPreview.wbBrowser.OleObject.Close;

    frmPreview.ShowModal;

  finally

    frmPreview.Free;

  end; 

end;

Fehlermeldung:

markieren

Code:

			---------------------------

Benachrichtigung über Debugger-Exception

---------------------------

Im Projekt Projekt1.exe ist eine Exception der Klasse EOleError mit der Meldung 'Die Methode 'Open' wird vom Automatisierungsobjekt nicht unterstützt' aufgetreten.

---------------------------

Anhalten   Fortsetzen   Hilfe   

---------------------------

**arbu man**

Erstelle doch eine Seite ohne Inhalt mit about: und ändere dann die Eigenschaft innerText des Body Elements.

**Die Muhkuh**

markieren

Code:

			---------------------------

Benachrichtigung über Debugger-Exception

---------------------------

Im Projekt Projekt1.exe ist eine Exception der Klasse EAccessViolation mit der Meldung 'Zugriffsverletzung bei Adresse 0046D077 in Modul 'Projekt1.exe'. Lesen von Adresse 00000000' aufgetreten.

---------------------------

Anhalten   Fortsetzen   Hilfe   

---------------------------

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TfrmMain.Vorschau1Click(Sender: TObject);

var

  frmPreview: TfrmPreview;

  tmp: String;

begin

  frmPreview := TfrmPreview.Create(Application);

  tmp := tmp + TConverter.ConvertBBtoHTML(reEditor.Text);

  try

    frmPreview.wbBrowser.Navigate('about:<html><head></head><body></body></html>');

    frmPreview.wbBrowser.OleObject.Document.Body.InnerHtml := tmp;

    frmPreview.ShowModal;

  finally

    frmPreview.Free;

  end;

end;

Das klappt leider auch nicht.

**Die Muhkuh**

Hi nochmal,

ich mach es jetzt anders: Ich speichere die Datei ab und navigiere per .Navigate auf die Datei.

**toms**

Hallo Muhkuh

Unter

diesem Thread findest du weitere Möglichkeiten, ohne dabei den Code von einer Datei yu laden.

HTML in TWebBrowser injizieren

HTML in TWebBrowser injizieren

Re: HTML in TWebBrowser injizieren

Re: HTML in TWebBrowser injizieren

Re: HTML in TWebBrowser injizieren

Re: HTML in TWebBrowser injizieren

Re: HTML in TWebBrowser injizieren

Re: HTML in TWebBrowser injizieren

Re: HTML in TWebBrowser injizieren

Re: HTML in TWebBrowser injizieren

Re: HTML in TWebBrowser injizieren

Forumregeln

Die Muhkuh Registriert seit: 21. Aug 2003 7.332 Beiträge Delphi 2009 Professional	#1 HTML in TWebBrowser injizieren 28. Mai 2007, 12:24 Hi, ich hab in einer String-Variable eine komplette, kleine HTML-Seite, die ich gerne in den TWebBrowser injizieren würde, damit dieser die HTML-Seite korrekt darstellt. Gibt es da eine Möglichkeit dafür? mfG, Manuel Manuel Blog reactivated
	Zitat

arbu man Registriert seit: 3. Nov 2004 Ort: Krefeld 1.108 Beiträge Delphi 7 Professional	#2 Re: HTML in TWebBrowser injizieren 28. Mai 2007, 12:37 Klar, Navigate auf about:deinhtmlstring mfg, Björn Björn >> http://bsnx.net << Virtual DP Stammtisch v1.0"iw" am 19.09.2007 - ich war dabei!
	Zitat

Die Muhkuh Registriert seit: 21. Aug 2003 7.332 Beiträge Delphi 2009 Professional	#3 Re: HTML in TWebBrowser injizieren 28. Mai 2007, 12:41 Supi! Vielen Dank Manuel Blog reactivated
	Zitat

Die Muhkuh Registriert seit: 21. Aug 2003 7.332 Beiträge Delphi 2009 Professional	#5 Re: HTML in TWebBrowser injizieren 28. Mai 2007, 13:20 Hi marabu, Deine Version werde ich später auch mal testen, da ich denke, dass ich über das size limit kommen werde. Manuel Blog reactivated
	Zitat

arbu man Registriert seit: 3. Nov 2004 Ort: Krefeld 1.108 Beiträge Delphi 7 Professional	#7 Re: HTML in TWebBrowser injizieren 28. Mai 2007, 14:33 Erstelle doch eine Seite ohne Inhalt mit about: und ändere dann die Eigenschaft innerText des Body Elements. Björn >> http://bsnx.net << Virtual DP Stammtisch v1.0"iw" am 19.09.2007 - ich war dabei!
	Zitat

Die Muhkuh Registriert seit: 21. Aug 2003 7.332 Beiträge Delphi 2009 Professional	#9 Re: HTML in TWebBrowser injizieren 28. Mai 2007, 14:45 Hi nochmal, ich mach es jetzt anders: Ich speichere die Datei ab und navigiere per .Navigate auf die Datei. Manuel Blog reactivated
	Zitat

toms (CodeLib-Manager) Registriert seit: 10. Jun 2002 4.648 Beiträge Delphi XE Professional	#10 Re: HTML in TWebBrowser injizieren 28. Mai 2007, 15:06 Hallo Muhkuh Unter diesem Thread findest du weitere Möglichkeiten, ohne dabei den Code von einer Datei yu laden. Thomas
	Zitat