Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Netzwerke (https://www.delphipraxis.net/14-netzwerke/)
-   -   Delphi Quelltext in TWebBrowser (https://www.delphipraxis.net/21299-quelltext-twebbrowser.html)

faux 30. Apr 2004 14:29
Quelltext in TWebBrowser
 
Wie kann ich einen Quelltext (als String gespeichert) in den TWebBrowser bringen?

Matze 30. Apr 2004 14:30
Re: Quelltext in TWebBrowser
 
Delphi-Quellcode:
WebBrowser1.Navigate('SDateiname');

faux 30. Apr 2004 14:33
Re: Quelltext in TWebBrowser
 
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.

daniel8520 30. Apr 2004 19:37
Re: Quelltext in TWebBrowser
 
Hallo,

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

OlloSoft 11. Mai 2004 11:35
Re: Quelltext in TWebBrowser
 
Hi faux,
don't know, ob es das ist, was du meinst:

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

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 11. Mai 2004 11:51
Re: Quelltext in TWebBrowser
 
Hallo,
so funktioniert es auch:
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.


Alle Zeitangaben in WEZ +1. Es ist jetzt 21:23 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz