如题,好像不同的框架都取不出来
解决方案 »
- 文字游戏
- 救急!!请大侠们过来看看!!!!
- 求DELPHI三层结构有安全认证的例子,分不够再另开帖加
- delphi中怎样把int型的转换为string以及怎样把stringz转换为int型?
- ACCESS中我的SQL语句为何无法运行?
- 如何判断输入的内容是否是日期型的?
- 郁闷啊,高手来帮忙!!!!!!!!
- 我把一篇WORD文档存入了数据库,然后我想通过DEPHI程序把文档下载到本地的机器上。就象INTER网下载文件一样,可不知道才能做到下载I
- 100分求教,关于登陆的问题!!!
- 菜鸟提问:哪有FastReport 下载?我要做复杂报表好苦的!
- 怎样让MDIChild了窗体显示在MDI主窗体上的一个Panel中?
- 瑞星漏洞扫描 工作原理!!
呵呵
use ActiveX, ComObj;function GetHtml(const WebBrowser: TWebBrowser): string;
const
BufSize = $200000;
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);
if 0 = hHTMLText then RaiseLastWin32Error; 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;