WebBrowser 获取网页内容

1.wb.OleObject.document.documentelement.innerhtml
2.utf8toansi(getHtml(wb))
utf8toansi函数
function getHtml(const
WebBrowser:TWebBrowser):string;

const

  BufSize = $10000;

var

  Size: Int64;

  Stream: IStream;

  hHTMLText: HGLOBAL;

  psi: IPersistStreamInit;

begin

  if not Assigned(WebBrowser.Document) then

    Exit;

 
OleCheck(WebBrowser.Document.QueryInterface(IPersistStreamInit,pSi));

  try

    hHTMLText :=
GlobalAlloc(GPTR,BufSize);

   
OleCheck(CreateStreamOnHGlobal(hHTMLText,True,Stream));

    try

     
OleCheck(Psi.Save(Stream,False));

     
Size := StrLen(PChar(hHTMLText));

     
SetLength(Result,Size);

     
CopyMemory(PChar(Result),Pointer(hHTMLText),Size);

   
finally

     
Stream := nil;

    end;

  finally

    pSi :=
nil;

  end;

end;