`
com1com4
  • 浏览: 156672 次
  • 性别: Icon_minigender_1
  • 来自: 广州
社区版块
存档分类
最新评论

Delphi OleVariant自动转换String 疑似SysString泄漏

DelphiHTML 
阅读更多
有如下声明，假设V已赋值
var V:OleVariant;
 
如下代码似乎会造成内存泄漏
SysUtil.Pos('finish.html', V);
或
VarToStr(V);
 
原因猜测:
SysUitl.Pos要求的第二个参数为String, 那么程序运行时把V:OleVariant自动转换为String, 调用堆栈如下
Routine Name               Class Name              Source Line            Source File           Module Name
SysAllocStringLen                                              0                                            OLEAUT32.DLL
SysAllocStringLen                                              0                                            QASCLIENT.EXE
WStrFromPWCharLen                                          0                                            QASCLIENT.EXE
WStrCopy                                                         0                                            QASCLIENT.EXE
VarToLStr                                                         0                                            QASCLIENT.EXE
TWebWindow::BrowserBeforeNavigate2 TWebWindow 130           frmWebWindow.pas  QASCLIENT.EXE (上边事例代码Pos调用位置)
暂时不明
分享到：
| 08初随笔
评论
发表评论

您还没有登录,请您登录后再发表评论

相关推荐

    转换OLEVariant和TMemoryStrea

    转换OLEVariant和TMemoryStrea

    Delphi 将函数作为参数进行调用.rar

    Delphi 将函数作为参数进行调用，在本例中，将完成函数参数的性质转变，相加或相减，运行出不同的结果，在制作计算器的时候，尤其有用，具体代码： 　procedure TForm1.RunProc(ParaA, ParaB: Integer; FunType: ...

    Delphi最新三层源码

    function getDAOValueList(sSQL: String): OleVariant; overload;。。。。。。。。。。看看干了什么。。。。 inherited Create; sqlAnySrvObj := TSQLAnalyzeService.Create; if not assigned(VOList) then VOList ...

    Delphi 打开已有的word文档.rar

    Delphi 打开已有的word文档，如果你的电脑上安装有Word，则会通过Word打开用户选择的文档。其实就是在Delphi窗口中选择你要打开的Word文档，用户确定后，Delphi会调用安装好的word打开该文件，有兴趣参考以下代码： ...

    delphi 导出到excel的7种方法

    delphi 快速导出excel uses ComObj,clipbrd; function ToExcel(sfilename:string; ADOQuery:TADOQuery):boolean; const xlNormal=-4143; var y : integer; tsList : TStringList; s,filename :string; aSheet :...

    delphi动态 WebBrowser 释放问题.txt

    delphi动态 WebBrowser 释放问题.txt var web:TwebBrowser; procedure TForm1.Button1Click(Sender: TObject); begin web:=TWebBrowser.Create(Self); web.ParentWindow:=Self.Handle; web.SetBounds(100,100,...

    Delphi 创建Word文档 不使用三方控件.rar

    这个Delphi源码主要实现创建一个Word文档，且不使用任何的第三方控件，运行效果截图所示。 　实现创建Word文档的功能原来也是挺简单的，理解下面几行代码即可了，不过只是创建，不包括写入内容： 　procedure TForm1...

    Delphi XE7手机三层DEMO

    TServerMethods1中，定义了过程（参数strSQL为SQL语句）：function MyGetData(const strSQL: string): OleVariant;过程中，使用了TClientDataSet数据集的Data属性回传数据； Client端： windows 8操作系统下win 32...

    delphi动态 WebBrowser 释放问题.rar

    delphi动态 WebBrowser 释放问题 var web:TwebBrowser; procedure TForm1.Button1Click(Sender: TObject); begin web:=TWebBrowser.Create(Self); web.ParentWindow:=Self.Handle; web.SetBounds(100,100,100,...

    delphi XE7 开发Android

    function TServerMethods.DataSetQuery(const AstrSQL: string; AListParams: TStringlist; AListType: TStringlist; AlistrValues: TStringlist) : OleVariant; var i: integer; begin try objClientQuery....

    DBX 三层 CobblerDemo

    function GetSearchData(const SqlStr:string;var V1:OleVariant):Integer; function ExecSQLStr(const SqlStr:string):Integer; //返回单表数据集 function GetSimpleData(const SqlStr:string;var V1:...

    delphi向word写入数据

    ItemIndex: OleVariant; ItemIndex := 1; NewDocument := ChooseWA.Documents.Add(EmptyParam,EmptyParam,EmptyParam,EmptyParam); ChooseWD.ConnectTo(NewDocument); ChooseWD.Windows.Item(ItemIndex).Caption :=...

    DELPHI 6写的多页浏览器源码

    多页浏览器源码，有说明，适合学习用 //转到指定的URL，需要的话，创建新显示页面 procedure TForm1.Button1Click(Sender: TObject);... var URL: OleVariant); begin Edit1.Text:=(PageControl1.ActivePage.Contr

    Remobjects分布式ERP模型(附源码)

    1.系统服务端开发 采用delphi2007及remobjects SDK 最新版本。 2.客户端的数据访问已经封装在Dll目录下的DllDataAccessObject.dll中， 所以新用户开发时不需要再安装delphi2007及remobjects SDK ， 其他版本也可以。...

    基于Delphi和Matlab混合编程的配电网无功优化软件设计

    应用Delphi和Matlab混合编程的方法设计可视化的配电网无功优化计算软件，其中Delphi实现图形界面和数据管理，Matlab实现无功优化计算和绘图功能。使用Matlab软件中的COM组件封装工具对Matlab程序进行打包并在Delphi...

    nod32升级id获取器（附源码）

    所以自己用Delphi写了这个小东西。 自己用的，没进行美化。 关键是超级简单，易用！ 原理就是截取这个网址里面的代码：http://www.126185.com/killsoftware/sdsoft/NOD32/nod32_id.htm 也就是说只有这个网址还有用，...

Magicbox
Global site tag (gtag.js) - Google Analytics