在TWebbrowser 里加入html文本

uses
mshtml,activex;

function TForm1.wr(b: Twebbrowser; s: string): bool;
var
d: IHTMLDocument2;
a: Variant;
begin
b.Navigate('about:blank');
try
d:=b.document as IHTMLDocument2;
a := VarArrayCreate([0,0],varVariant);
a[0] := s;
d.write(PSafeArray(TVarData(a).VArray));
d:=nil;
except
messagebox(handle,'无法正常写入代码！','错误',mb_ok+mb_iconerror);
end;
end;

在TWebbrowser 里加入html文本

uses
  MSHTML;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Webbrowser1.Navigate('www.baidu.com');
  //启动一个网站的网页
 end;

procedure TForm1.Button2Click(Sender: TObject);
var
  Range: IHTMLTxtRange;
begin
  Range := ((WebBrowser1.Document as IHTMLDocument2).body as
    IHTMLBodyElement).createTextRange;
  Range.collapse(False);
  Range.pasteHTML('<br><b>大家好,我是老李,csdn Id Laoli</b>');
//加入你要加的东西
end;

 

转载于:https://www.cnblogs.com/tecsoon/archive/2009/03/23/1419666.html