Quelltext in TWebBrowser

**faux**

Wie kann ich einen Quelltext (als String gespeichert) in den TWebBrowser bringen?

**Matze**

WebBrowser1.Navigate('SDateiname');

**faux**

sorry, ich hab das Problem falsch geschildert.
Der Quelltext ist nicht in einer Datei, dessen Name im String ist, sondern der Quelltext ist im string.

Hallo,

an deiner Stelle würde ich den Quelltext im String in eine Datei speichern, und dann wie von Matze beschreiben vorgehen.

**OlloSoft**

Hi faux,
don't know, ob es das ist, was du meinst:

HTML-Source an der Cursor-Position einfügen:

markieren

Code:

			    with ((TWebbrowser(ActiveControl).Document as IHTMLDocument2).

             Selection.CreateRange as IHTMLTxtRange)                do

    begin

      PasteHTML('<HTML>Was immer du auch einfügen möchtest...</HTML>');

    end;

Good luck
Ollo

**Jens Schumann**

Hallo,
so funktioniert es auch:

zusammenfalten · markieren

Delphi-Quellcode:

			unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

  Buttons, OleCtrls, SHDocVw, StdCtrls;

type

  TForm1 = class(TForm)

    Memo1: TMemo;

    WebBrowser1: TWebBrowser;

    SpeedButton1: TSpeedButton;

    procedure SpeedButton1Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

  private

    { Private-Deklarationen }

  public

    { Public-Deklarationen }

  end;

var

  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.SpeedButton1Click(Sender: TObject);

begin 

  if Not VarIsEmpty(WebBrowser1.Document) then 

    OleVariant(WebBrowser1.Document).Script.Document.Body.InnerHTML := Memo1.Text;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

  WebBrowser1.Navigate('about:blank'); // Damit ein Document enthalten ist 

end;

end.

Quelltext in TWebBrowser

Quelltext in TWebBrowser

Re: Quelltext in TWebBrowser

Re: Quelltext in TWebBrowser

Re: Quelltext in TWebBrowser

Re: Quelltext in TWebBrowser

Re: Quelltext in TWebBrowser

Forumregeln

faux Registriert seit: 18. Apr 2004 Ort: Linz 2.044 Beiträge Turbo Delphi für Win32	#1 Quelltext in TWebBrowser 30. Apr 2004, 14:29 Wie kann ich einen Quelltext (als String gespeichert) in den TWebBrowser bringen? Faux Manuel Wer weiß, dass er nichts weiß, weiß mehr, als der der nicht weiß, dass er nichts weiß. GoTrillian
	Zitat

Matze (Co-Admin) Registriert seit: 7. Jul 2003 Ort: Schwabenländle 14.929 Beiträge Turbo Delphi für Win32	#2 Re: Quelltext in TWebBrowser 30. Apr 2004, 14:30 WebBrowser1.Navigate('SDateiname');
	Zitat

faux Registriert seit: 18. Apr 2004 Ort: Linz 2.044 Beiträge Turbo Delphi für Win32	#3 Re: Quelltext in TWebBrowser 30. Apr 2004, 14:33 sorry, ich hab das Problem falsch geschildert. Der Quelltext ist nicht in einer Datei, dessen Name im String ist, sondern der Quelltext ist im string. Faux Manuel Wer weiß, dass er nichts weiß, weiß mehr, als der der nicht weiß, dass er nichts weiß. GoTrillian
	Zitat

daniel8520 (Gast) n/a Beiträge	#4 Re: Quelltext in TWebBrowser 30. Apr 2004, 19:37 Hallo, an deiner Stelle würde ich den Quelltext im String in eine Datei speichern, und dann wie von Matze beschreiben vorgehen.
	Zitat