• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

Delphi的"Invalidpointeroperation"异常的解决办法(转)

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

今天用Delphi编写了个dll,用到了TStringList来传递多参数,如下:

   

[delphi] view plaincopy
  1. function DBM_SetParam(procName: string; paramValues: TStringList = nil): Boolean;stdcall;  
  2. var  
  3.   i: integer;  
  4. begin  
  5.   try  
  6.     if (paramValues<>nilthen  
  7.     begin  
  8.       for i := 0 to paramValues.Count - 1 do  
  9.       begin  
  10.         GParameters.AddParameter;  
  11.         GParameters[i].Value := paramValues[i];  
  12.       end;  
  13.     end;  
  14.     Result := True;  
  15.   except on e: Exception do  
  16.     begin  
  17.       Result := False;  
  18.     end;  
  19.   end;  
  20. end;  

    然而在应用程序中调用的时候,却出了点问题:整个运行过程是有效的,并且参数也都传递成功,但是当结束了该API函数执行后每次都会弹出“Invalid pointer operation”的异常。调用代码如下:

   

[delphi] view plaincopy
  1. procedure TForm1.Button3Click(Sender: TObject);  
  2. var  
  3.   paramList: TStringList;  
  4. begin  
  5.   paramList := TStringList.Create;  
  6.   paramList.Add('2');  
  7.   if (not DBM_SetParam('GetUserName', paramList)) then  
  8.   begin  
  9.     ShowMessage('Set parameters failed!');  
  10.   end;  
  11.     
  12. end;  

    在google里搜索Invalid pointer value发现遇到同样问题的同志也不在少数。顺藤摸瓜,终于在Delphi联机帮助里找到了下面的描述:

    On Windows, if a DLL exports routines that pass long strings or dynamic arrays as parameters or function results (whether directly or nested in records or objects), then the DLL and its client applications (or DLLs) must all use the ShareMem unit. The same is true if one application or DLL allocates memory with New or GetMem which is deallocated by a call to Dispose or FreeMem in another module. ShareMem should always be the first unit listed in any program or library uses clause where it occurs.

ShareMem is the interface unit for the BORLANDMM.DLL memory manager, which allows modules to share dynamically allocated memory. BORLANDMM.DLL must be deployed with applications and DLLs that use ShareMem. When an application or DLL uses ShareMem, its memory manager is replaced by the memory manager in BORLANDMM.DLL.

Note

Linux uses glibc's malloc to manage shared memory.

    【2010-6-3:翻译一下,供大家参考:

    Windows中如果一个动态库导出函数以参数形式传递或者返回了一个长字 符串或者动态数组(无论是直接传递还是包含在一个对象中),那么动态库以及其调用程序都必须得引用ShareMem单元。同样,如果程序或者库通过New 或者GetMem申请了内存,并且该内存在另一个模块中通过Dispose或FreeMem释放,也得这么做。务必把ShareMem放在程序或者库所有 引用单元之首。

ShareMem是BORLANDMM.dll内存管理单元接口,它允许模块间共享动态申请内存。BORLANDMM.dll必须与使用了改单元的程序或者Dll一块儿部署。当程序或者动态库使用了ShareMem,其内存管理将会由BORLANDMM.dll接管。

注意:
Linux下使用glibc的malloc来管理共享内存
。】

    上述问题仅在windows里才有啊,呵呵,于是在dll里把Uses子句的top 1增加ShareMem引用,另外在应用程序的Project域的Uses子句第一个引用也加上ShareMem。最后编译,运行,没有看到哪个烦人的异常提示了:P


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
Delphi下的GDI+编程[7]单色画刷-SolidBrush&amp;填充矩形-FillRectangle ...发布时间:2022-07-18
下一篇:
Delphi操作Excel发布时间:2022-07-18
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap