您的位置:首页网页设计经验技巧 → delphi怎样调用函数

delphi怎样调用函数

时间:2010/2/3 11:08:00来源:本站整理作者:我要评论(0)

因项目需要,我用Delphi写了一个连接数据库把数据导出到Sql文件的dll,其中使用了TADOQuery组件。
其中只有一个导出方法:
function DataExport(path,ini_path:PChar):integer

  写完之后,用delphi写了一个test.exe进行测试,发现可以正常使用。
之后便把这个dll交给了同事,让他在PowerBuilder中调用。同事拿过去之后发现,一旦调用DataExportPB就报告无法打开目标Dll。我想可能是因为两边运行的环境不一样,随后就把test.exe拷过去试试看。奇怪的是,test.exe运行正常。

  为了确定问题到底出现在哪里,我又使用Python和C#测试了一下,C#下面没有问题,但是Python报告错误:
没有调用 CoInitialize()
查阅资料之后发现,如果在Delphi的Dll里面使用了ADO组件,那么需要在使用之前调用ActiveX的CoInitialize方法。知道了问题之后就好办多了,在源代码中创建TADOQuery之前调用CoInitialize(),Python调用成功。

  本以为PowerBuilder也应该没问题,可谁知还是一样的问题。这下子我想不通了。Python中的ctypes模块使用的C中的调用方法,参数传递方式应该和PowerBuilder一样,可是为什么PB里面还是不行呢?同事让我在Dll里面多写一个输出方法试试看,那好,我又写了下面这样一个方法:

function test:PChar;
begin
  result := 'Test string from test';
end;

  PB里面调用test方法成功,  接着同事又尝试调用DataExport,成功了!!??为什么?这个test方法仅仅只是输出一段固定的字符串而已,为什么DataExport就调用成功了呢?我真是百思不得其解。

  但是这时又出现一个问题,一旦退出PB应用程序则发生一个内存操作错误。

  我仔细检查了Delphi代码,以图发现是不是哪一个对象没有释放,我的代码如下:

function DataExport(path,ini_path:PChar):integer;
var
  query : TADOQuery;
begin
  .........
  CoInitialize();
  query := TADOQuery.Create(nil);
  .........
  query.Close;
  query.Free;
  CoUnInitialize();
  .........
end;

没有什么问题啊!无奈之下我把CoInitialize()和CoUnInitialize()分成两个独立方法。
function init:integer;
begin
  try
    CoInitialize();
    result := 1;
  except
    on Exception:
      result := 0;
  end;
end;

function uninit:integer;
begin
  try
    CoUnInitialize();
    result := 1;
  except
    on Exception:
      result := 0;
  end;
end;

然后让同事在窗体初始化事件中先调用 init,然后再关闭事件中调用 uninit。问题解决。什么都正常了。

虽然问题得到解决,但是我还是不明白为什么要这样做。


 

相关视频

    没有数据

相关阅读 Delphi 7将进度条放在状态条里面如何用Delphi实现StringTokenizer功能Delphi与FORTRAN语言的混合编程如何用Delphi和Web Services开发短信应用程序Delphi7目录结构Delphi单元文件详解Delphi for PHP功能简单介绍Delphi调试教程

文章评论
发表评论

热门文章 Wordpress本地安装教程dx1.5如何设置二级域名

最新文章 hbuilder有哪些快捷键Wordpress本地安装教程 Wordpress本地安装教程expression web 4文档乱码解决方法dz 2.5“收藏本版”关闭小对话框无法关闭解在制作安装软件之前,您必须先将易语言存盘,

人气排行 如何使用multipart/form-data格式上传文件Photoshop PS图层混合模式详解(非常详细)ISAPI_Rewrite3使用教程网站里添加收藏和设为首页代码桌面快捷方式图标不见了C#获取执行程序所在的当前路径的方法详解(XMLHttpRequest)进行跨域请求方法如何用远程桌面连接进行传输文件