Suche HTML Viewer Komponente

[semo]

Ich bin auf der Suche nach einer HTML Viewer Komponente.
Darf auch kommerziell sein.

ich bin da über folgende Projekte bereits gestolpert:
(1) http://pbear.com/htmlviewers.html#thtmllite
scheint mir doch sehr veraltet....

(2) http://sourceforge.net/projects/tpipro/
scheint mir doch sehr veraltet....

(3) http://www.trichview.com/download/
Ist eher eine RichView Komponente. Man kann aber über ein Zusatzmodul "HTMLImporter" HTML anzeigen.

Welche Vorschläge habt ihr bzw nutzt ihr sogar Komponenten zur Darstellung von HTML?

Grüße,
Marcus

[Bernhard Geyer]

Frag ist:

1, Was muss sie könnnen (Nur HTML/CSS oder auch XML/JavaScript/...)?
2, Darf sie Installation nötig haben?
3, Darf es der IE sein?

[mkinzler]

Mna könnte auch ein TWebBrowser bzw. TMozillaBrowser nehmen

[RWarnecke]

Wie wäre es mit der TWebbrowser-Komponente, kostet nichts und ist bei Delphi dabei. Damit kann ich HTML-Dateien und/oder Internetseiten anzeigen.

Edit: So'n mist mkinzler war schneller.

[semo]

html und css würden reichen.
installation: natürlich nur um die komponente in die ide aufzunehmen...
nicht beim endanwender.
denke mal ie wäre nicht optimal wegen den sicherheitseinstellungen...

[semo]

kennt denn jemand komponenten die auf dem twebbrowser bzw auf IWebBrowser/ IWebBrowser2 interface aufsetzen?

sprich, diesen erweitern?
ich benötige zum beispiel ein event um das anklicken von links abzufangen und dann selbst zu verarbeiten.

[jbg]

Zitat von M. Hassmann:

kennt denn jemand komponenten die auf dem twebbrowser bzw auf IWebBrowser/ IWebBrowser2 interface aufsetzen?

Wie wäre es mit dem EmbeddedWB:
http://www.bsalsa.com/downloads.html

[Bernhard Geyer]

Zitat von M. Hassmann:

sprich, diesen erweitern?
ich benötige zum beispiel ein event um das anklicken von links abzufangen und dann selbst zu verarbeiten.

Mach auch schon der TWebBrowser.

[semo]

ich versuche mich aktuall am twebbrowser.

angeblich kann man die scrollbars ausblenden.
ich nutze folgenden code:

Delphi-Quellcode:

unit MyWebBrowser;

interface

uses
  SHDocVW,
  MSHTML;

type
  TMyWebBrowser = class(TWebBrowser)
  strict private
  private
    FShowScrollbars: Boolean;
    function GetActualDocument(): IHTMLDocument2;
    procedure SetShowScrollBars(const Value: Boolean);
  published

  public

  published
    property ActualDocument: IHTMLDocument2 read GetActualDocument;
    property ShowScrollBars: Boolean read FShowScrollbars write SetShowScrollBars;
  end;

procedure Register();

implementation

procedure Register();
begin
  RegisterComponents('Tests', [TMyWebBrowser]);
end;

{ TMyWebBrowser }

function TMyWebBrowser.GetActualDocument(): IHTMLDocument2;
begin
  Result := nil;
  if Assigned(Document) then
    ControlInterface.Document.QueryInterface(IHTMLDocument2, Result);
end;

procedure TMyWebBrowser.SetShowScrollBars(const Value: Boolean);
const
  OverFlow: Array[0..1] of string = ('hidden', '');
var
  ActDocument: IHTMLDocument2;
begin
  FShowScrollbars := Value;

  ActDocument := GetActualDocument();
  if Assigned(ActualDocument) and Assigned(ActualDocument.Body) and Assigned(ActualDocument.Body.Style) then
    ActualDocument.Body.Style.overflow := OverFlow[Integer(Value)];
end;

end.

in der Zeile
if Assigned(ActualDocument) and Assigned(ActualDocument.Body) and Assigned(ActualDocument.Body.Style) then
ist ActualDocument.Body nicht assigned.

jemand eine idee?

[mirage228]

Ist die Webseite schon fertig geladen?

mfG
mirage228