【delphi】读取webbrowser的文本

{
关键字=读取webbrowser的文本
采集软件=MKM - 我的知识管理
采集日期=2023-11-23 16:26:27
数字签名=EF1A329D25381B32968AC5F41718C7D7
}

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Forms,
Dialogs, StdCtrls, OleCtrls, SHDocVw, ComCtrls, ExtCtrls, Menus,
IdTCPConnection, IdTCPClient, IdHTTP, IdBaseComponent,
IdComponent,
IdIOHandler, IdIOHandlerSocket, IdSSLOpenSSL, ImgList;

uses
mshtml, Comobj, activex, md5, Httpapp, xHttpGetThread, math, shellapi,
StrUtils, Registry;

function WB_ReadHTML(aBrowser: TWebBrowser): string;
begin
{读取webbrowser的文本}
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;