önizleme almak

[berkypc]

bne delphiye yeni başladım ve bir html editor yapıyorum ve sayfanın önizemesini almak istiyorum. html editörü yaptım fakat kodları editöre yazınca nasıl önizlemesini verdire bilirim.

[turkerunutmaz]

sayfaya bir webbrowser koy daha sonra memo da yazılanları burada görüntüleyebilmen için bir fonksiyon var cevizin programlama makalelerinde.html kodu webbrowser da yorumlatıyorsun.başarılar

[berkypc]

saol ama anlamadım

[berkypc]

anladım aslında ama programlama makalelerini bulamadım

[jonjul]

olusan html yi dosya olarak kaydedip sonra explorerla acabilirsin. bunun icin bir shellapi vardı arasıtırısan cok kolay bulabilirsin.

[turkerunutmaz]

http://www.ceviz.net/webbrowser-ve-h...kler_a690.html
fonksiyon da bu
procedure wb_LoadHTML(WebBrowser: TWebBrowser; HTMLCode: string) ;
var
sl: TStringList;
ms: TMemoryStream;
begin
WebBrowser.Navigate('about:blank') ;
while WebBrowser.ReadyState < READYSTATE_INTERACTIVE do
Application.ProcessMessages;

if Assigned(WebBrowser.Document) then
begin
sl := TStringList.Create;
try
ms := TMemoryStream.Create;
try
sl.Text := HTMLCode;
sl.SaveToStream(ms) ;
ms.Seek(0, 0) ;
(WebBrowser.Document as IPersistStreamInit).Load(TStreamAdapter.Create(ms) ) ;
finally
ms.Free;
end;
finally
sl.Free;
end;
end;
end;{* wb_LoadHTML *}

uses
Classes,Forms,Windows,Controls,SysUtils,Dialogs,Sh DocVw,mshtml,ActiveX,COMObj,IdHTTP,idURI,Variants, DB;

[berkypc]

benim dediğim mesela bir butona basınca memo da yazılı html kodlarını önizleme alıcak. buda öle mi?