html in memo

[youuu]

Hallo,

wie kann ich es realisieren das wenn ich einen HTML Quelltext in ein Memo einlese, die Seite seh statt den Quelltext?

[mkinzler]

In einem Memo nicht. dafür bräuchtest du eine HTML-fähige Komponente wie z.B. ein TWebBrowser/TMozillaBrowser

[youuu]

Zitat:

Zitat von mkinzler

In einem Memo nicht. dafür bräuchtest du eine HTML-fähige Komponente wie z.B. ein TWebBrowser/TMozillaBrowser

Wählt man im TWebBrowser nicht eine Seite an oder kann man Ihm direkt Quelltext übergeben?

[Die Muhkuh]

Geht beides.

[youuu]

Zitat:

Zitat von Die Muhkuh

Geht beides.

Und wie?
Ich finde immer nur wie ich Ihn eine Url übergebe.

[Bernhard Geyer]

IPersistStreamInit ist das Zauberwort

[HalloDu]

SwissdelphiCenter: HTML direkt laden

[himitsu]

meine uralte Billigmethode ginge auch noch und andere Varianten sind in dem Thread da ebenfalls zu sehn :angel:

Delphi-Quellcode:

If WebBrowser1.Document = nil Then WebBrowser1.Navigate('about:blank');
With OleVariant(WebBrowser1.Document as IHTMLDocument2) do Begin
  Clear;
  Write(DeinString);
  Close;
End;

[youuu]

Hm ich bekomm eine Fehlermeldung beim Aufrufen der procedur.

Auf protected-Symbol TControl.text kann nicht zugegriffen werden.

Benutze die AdvMemo Komponente

Mit dem normalen Memo klappt es, allerdings stellt der WebBrowser den HTML Code nicht richtig dar.
Ich verwende viel CSS im Code.

Liegt das am tWebBrowser selber?

[Phoenix]

Du hast jetzt 3 Lösungsvorschläge bekommen.
Welche der Drei hast Du denn bisher probiert und bei welcher der Dreien kommt der Fehler?

Was das CSS angeht: Hast Du in dem Html vielleicht fremde Css-Dateien referenziert? Es kann gut sein, dass die nicht geladen werden können und dann zur Darstellung fehlen.

[mkinzler]

Der basiert auf dem IE-Control. was der nicht kann, kann es deshalb auch nicht

[youuu]

Zitat:

Zitat von himitsu

meine uralte Billigmethode ginge auch noch und andere Varianten sind in dem Thread da ebenfalls zu sehn :angel:

Delphi-Quellcode:

If WebBrowser1.Document = nil Then WebBrowser1.Navigate('about:blank');
With OleVariant(WebBrowser1.Document as IHTMLDocument2) do Begin
  Clear;
  Write(DeinString);
  Close;
End;

Da bekomm ich die Fehlermeldung

Record, Objekt oder Klassentyp erforderlich.

[youuu]

Zitat:

Zitat von Phoenix

Du hast jetzt 3 Lösungsvorschläge bekommen.
Welche der Drei hast Du denn bisher probiert und bei welcher der Dreien kommt der Fehler?

Was das CSS angeht: Hast Du in dem Html vielleicht fremde Css-Dateien referenziert? Es kann gut sein, dass die nicht geladen werden können und dann zur Darstellung fehlen.

Habe den vom swiss benutzt klappt auch mit einer normalen Memo nur nicht mit der von adv, liegt also an der Komponente nicht am Code.

Zu den css der code ist in der html selber eingebunden und nicht als link.

Zitat:

Zitat von mkinzler

Der basiert auf dem IE-Control. was der nicht kann, kann es deshalb auch nicht

Welche möglickeit habe ich dies trotzdem korrekt an zu zeigen?
Andere Programme schaffen dies ja auch?

In einem Programm wo dies funktioniert sieht es laut Winspy so aus:

Shell Embedding
Shell DocObjekt View
Internet Explorer_Server