关于 dll 的 oleVariant

Question

在dpr代码：
libHandle := loadLibrary('jdpbadll.dll');
@jdp := GetProcAddress(libHandle, 'jdp');Sqlcfg.name := trim(Rzedit1.Text);
  jdpba.CDS.Close;
  jdpba.CDS.Data := jdp.Hfind(Sqlcfg.name);
  jdpba.CDS.Open;

Answer 1

在dll 中 我也添加
initialization
  CoInitialize(nil);
finalization
  CoUninitialize;

Answer 2

我在本机调试通过,exe也能正常使用，但在别人机子不行（没装d7的电脑）。

Answer 3

begin
  try    
........
  except
    application.MessageBox('数据库连接失败!','警告',MB_OK+MB_ICONWARNING);
这儿抓住了异常,不要简单把它扔了.它包含重要的信息.
  end;//
  try    
........
  except on e:exception do
    begin
    //1,处理异常,比如关闭连接对象,提示出错之类的..
    //2,错误日志输出
      Writelog(e.Message);//你可以自定义Writelog这个函数,把异常信息输出到文本日志.
    end;  end;
end;