HTML-Komponente

[Moin]

hi alle zusammen,

ich schreibe gerade eine art html-quelltexteditor, habe also den Quelltext in einem Memo stehen. nun will ich die eigentliche HTML-Seite zur kontrolle Anzeigen lassen.

Welche Komponente benötige ich dafür und in welcher kathegorie finde ich sie??

MFG euer Moin

[StefanDP]

TWebBrowser

wenn du eine neuere delphi version hast kannst du die nur noch über activx importieren

-> suchfunktion

[hansklok]

Du benötigs die TWebbrowser Komponente, die importierst du über Kompoente->ActiveX importieren, Dann gibst du folgenden Quelltext ein:

Delphi-Quellcode:

[b]uses[/b]
ActiveX

...
var
  sl: TStringList;
  ms: TMemoryStream;
BEGIN
        WebBrowser1.Navigate('about:blank');
        while WebBrowser1.ReadyState < READYSTATE_INTERACTIVE do
                Application.ProcessMessages;

        if Assigned(WebBrowser1.Document) then
        begin
                sl := TStringList.Create;
                try
                        ms := TMemoryStream.Create;
                        try
                                sl.Text := Memo1.Text;
                                sl.SaveToStream(ms);
                                ms.Seek(0, 0);
                                (WebBrowser1.Document as IPersistStreamInit).Load(TStreamAdapter.Create(ms));
                        finally
                                ms.Free;
                        end;
                finally
                        sl.Free;
                end;
        end;
end;

Funktioniert wunderbar!

[Moin]

ok ich habe jetzt eine neue Komponente über Komponenten/Neue Komponente eingefügt, dadurch wird folgende Unit geöffnet:

Delphi-Quellcode:

unit WebBrowser1;

interface

uses
  SysUtils, Classes, Controls, OleCtrls, SHDocVw;

type
  TWebBrowser1 = class(TWebBrowser)
  private
    { Private-Deklarationen }
  protected
    { Protected-Deklarationen }
  public
    { Public-Deklarationen }
  published
    { Published-Deklarationen }
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Beispiele', [TWebBrowser1]);
end;

end.

außer dem habe ich deinen rat befolgt und unter ACTIVEX IMPORTIEREN nach gekuckt, wo es aber nur "webvw 1.0 Type Libery" gibt sowie "MS HTML Objekt Libary (Version 4.0)" (u.a.)

[hansklok]

Also folgende Schritte:

Komponente > ActiveX importieren >Microsoft Internet Controls (Version 1.1) > Installieren. In der Registerkarte ActiveX findest du dann die TWebBrowser Komponente, dies aufs Formular. Dann den Quelltext eingeben!