任何人都可以弄清楚为什么在尝试删除TStreamAdapter
时得到“无效的指针操作”吗?或者...如何正确释放TStreamAdapter
中的内存?如果我删除了delete
,它会起作用,但这会导致内存泄漏。即使我使用boost :: scoped_ptr,它也会失败,并显示相同的错误。
注意:我还尝试使用TStreamAdapter
值初始化soOwned
,同样的错误。
代码:
HRESULT LoadFromStr(TWebBrowser* WB, const UnicodeString& HTML)
{
if (!WB->Document)
{
WB->Navigate("about:blank");
while (!WB->Document) { Application->ProcessMessages(); }
}
DelphiInterface<IHTMLDocument2> diDoc = WB->Document;
if (diDoc)
{
boost::scoped_ptr<TMemoryStream> ms(new TMemoryStream);
{
boost::scoped_ptr<TStringList> sl(new TStringList);
sl->Text = HTML;
sl->SaveToStream(ms.get(), TEncoding::Unicode);
ms->Position = 0;
}
DelphiInterface<IPersistStreamInit> diPSI;
if (SUCCEEDED(diDoc->QueryInterface(IID_IPersistStreamInit, (void**)&diPSI)) && diPSI)
{
TStreamAdapter* sa = new TStreamAdapter(ms.get(), soReference);
diPSI->Load(*sa);
delete sa; // <-- invalid pointer operation here???
// UPDATED (solution) - instead of the above!!!
// DelphiInterface<IStream> sa(*(new TStreamAdapter(ms.get(), soReference)));
// diPSI->Load(sa);
// DelphiInterface is automatically freed on function end
return S_OK;
}
}
return E_FAIL;
}
更新:我在这里找到了解决方案-http://www.cyberforum.ru/cpp-builder/thread743255.html
解决方法是使用
_di_IStream sa(*(new TStreamAdapter(ms.get(), soReference)));
要么...
DelphiInterface<IStream> sa(*(new TStreamAdapter(ms.get(), soReference)));
因为一旦超出范围,它将自动释放IStream。至少应该-这里是否存在内存泄漏? (CodeGuard未检测到任何内存泄漏。)
答案 0 :(得分:3)
TStreamAdapter
是TInterfacedObject
的后代,它实现引用计数语义。您根本不需要delete
,当对象不再被任何人引用时,您需要让引用计数释放该对象。
使用_di_IStream
(只是DelphiInterface<IStream>
的别名)是使用智能指针自动执行此操作的正确方法。 TComInterface<IStream>
和CComPtr<IStream>
也可以使用。