一个奇怪的DLL调用问题

我使用DLL封装了数据库操作对象,使用一直都没有问题。
这几天需要在DLL里作一些操作:对每一个目录下的DLL进行一次动态加载,并调用一个函数,来进行判断。
代码如下:


var
  i : Integer;
  Ask : Boolean;
  FileName, DllFile : String;
  tmList : TList;  { 通过校验的文件列表 }
begin
  tmList := TList.Create;
  { 是否有不使用的文件版本信息,有则删除 }
  { 删除非系统文件类型 }
  (* *)
  with FClientDataSet do
  begin
    try
      if EnLib = 0 then
        EnLib := LoadLibrary(Encode_DLL);
      if EnLib = 0 then
        raise EDLLLoadError.Create(Encode_DLL + LoadFileErr)
      else
      begin
        @procGetFileVerify := GetProcAddress(EnLib, 'F0001');
        if Assigned(procGetFileVerify) then
        begin
        end;
      end;

      First;
      while not Eof do
      begin
        Ask := False;
        for i := 0 to aList.Count - 1 do
        begin
          { 删除非系统文件类型 }
          if CompareText(PFileNode(aList.List^[i]).FileName, Fields.FieldByName('FileName').Value) = 0 then
          begin
            DllFile := PFileNode(aList.List^[i]).FilePath + PFileNode(aList.List^[i]).FileName;
            FileName := PFileNode(aList.List^[i]).FileName;

            try
              if dllLib = 0 then
                dllLib := LoadLibrary(PChar(DllFile));
              if dllLib = 0 then
              //  raise EDLLLoadError.Create(DllFile + LoadFileErr)
              else
              begin
                @procGetFileVInfo := GetProcAddress(dllLib, 'FM0001');
                if Assigned(procGetFileVInfo) then
                  { 进行校验 }
                  if procGetFileVerify(PChar(FileName), procGetFileVInfo) then
                  begin
                    tmList.Add(aList.List^[i]);
                    Ask := True;
                    Break;
                  end;
              end;
            finally
              FreeLibrary(dllLib);
              dllLib := 0;
            end;
          end;
        end;
        if not Ask then
          Delete
        else
          Next;
      end;

    finally
      FreeLibrary(EnLib);
      EnLib := 0;
    end;
  end;
.....
我的数据库操作DLL是通过别的文件来调用的,是以加载的,现在只是加载一次,返回个值,然后释放掉。。
从DLL的理论上来说,我这个DLL只是引用+1,释放-1。
但是,我程序中数据库操作对象一直加载中,关闭,不释放,再开启那么报 "mismatch in datapacket" 错误。
报错代码段
  FClientDataSet.Active := True;
好怪,再研究一下。。

posted on 2009-09-21 20:56  Yanyyx 阅读( ...) 评论( ...) 编辑 收藏

转载于:https://www.cnblogs.com/yanyyx/archive/2009/09/21/1571354.html

  • 0
    点赞
  • 0
    评论
  • 0
    收藏
  • 扫一扫,分享海报

表情包
插入表情
评论将由博主筛选后显示,对所有人可见 | 还能输入1000个字符
©️2022 CSDN 皮肤主题:编程工作室 设计师:CSDN官方博客 返回首页
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值