To: Lersh (暑片) 又是你呀,最近你发贴挺多啊;我不想改写,因为我有CPP代码你,要不要???
解决方案 »
- 【泰坦散分贴】前几天连续散分,今天果然RP大爆发,哈哈哈哈哈哈哈哈哈哈哈哈
- API内存访问错误
- 【fastreport 中文换行】问题到底有没有好的解决办法
- CnPack 开放源码 IDE 专家包发布 0.7.9 版
- 请教如何实现:类似天气预报,当鼠标移到图上北京方块时,出现包含温度风力等的小提示框?在线等!
- delphi7在WinXP + SP1上的安装问题
- 关于做类似于资源管理器的新建菜单的问题
- ********再次散分,庆贺本人升级,分少的人来拿啊(前40位有效)***********
- 图标问题
- delphi6保存控件写入dll时出错
- 怎样对两个不同数据库里的表里的数据,用insert into 方法进行数据追加复制?
- 关于字符串转日期型的值的问题
{
const int BufSize = 0x10000;
__int64 Size;
IStream* Stream = NULL;
HGLOBAL hHTMLText;
IPersistStreamInit* psi = NULL;
AnsiString Result; if (WebBrowser->Document == NULL) return AnsiString("");
OleCheck(WebBrowser->Document->QueryInterface(IPersistStreamInit, (vois**)&psi));
try
{
//OleCheck(psi.GetSizeMax(Size));
hHTMLText = GlobalAlloc(GPTR, BufSize);
if (0 == hHTMLText) RaiseLastWin32Error();
OleCheck(CreateStreamOnHGlobal(hHTMLText, True, &Stream));
try
{
OleCheck(psi->Save(Stream, False));
Size = strlen(LPSTR(hHTMLText));
AnsiString::SetLength(Result, Size);
CopyMemory(Result.c_str(), PVOID(hHTMLText), Size);
}
__finally
{
if (Stream)
Stream->Release();
}
__finally
{
if (psi)
psi->Release();
}
return Result;
}