Delphi TWebBrowser[11] 读写html代码

Delphi TWebBrowser[11] 读写html代码

注意：html 是UTF-8编码的在中文环境下需要转换成GB2312，否则会显示中文乱码

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

uses ActiveX;   function WB_ReadHTML(aBrowser: TWebBrowser): String; begin   Result := aBrowser.OleObject.Document.documentElement.outerHTML; end;   procedure WB_WriteHTML(aBrowser: TWebBrowser; HTMLCode: string); var     sl: TStringList;     ms: TMemoryStream; begin     if Assigned(aBrowser.Document) then     begin       sl := TStringList.Create;       try         ms := TMemoryStream.Create;         try           sl.Text := StringReplace(HTMLCode, 'UTF-8', 'GB2312', [rfReplaceAll, rfIgnoreCase]);           sl.SaveToStream(ms);           ms.Seek(0, 0);           (aBrowser.Document as IPersistStreamInit).Load(TStreamAdapter.Create(ms));         finally           ms.Free;         end;       finally         sl.Free;       end;     end; end;

Delphi 调用：

?

1 2 3 4 5 6 7 8 9

procedure TForm1.Button1Click(Sender: TObject); begin   WB_WriteHtml(Webbrowser1, Memo1.Text); end;   procedure TForm1.Button2Click(Sender: TObject); begin   Memo1.Text := WB_ReadHTML(Webbrowser1); end;

　　

 

创建时间：2020.11.23　　更新时间：