Doğrudan WebBrowserdaki HTML Dökümanına Ekleme Yapma

[csyasar]

Kod: Tümünü seç

uses MSHTML;

procedure AppendToWB(WB: TWebBrowser; const html: widestring) ;
var
   Range: IHTMLTxtRange;
begin
   Range := ((WB.Document AS IHTMLDocument2).body AS IHTMLBodyElement).createTextRange;
   Range.Collapse(False) ;
   Range.PasteHTML(html) ;
end;

procedure TForm1.FormCreate(Sender: TObject) ;
begin
   WebBrowser1.Navigate('http://www.pekdemir.com.tr') ;
end;

procedure TForm1.Button1Click(Sender: TObject) ;
var
   s: string;
begin
   s:= '<a href="http://delphi.about.com">go to About Delphi Programming</a>';
   AppendToWB(WebBrowser1,s) ;
end;