用 eXeScope.exe 查看一下该DLL  的 导出函数中是否有你要的这个函数
注意大小写

C形式导出的函数名和CPP导出的函数名不一样，如果没有LIB文件的话，在声明函数的时候加上extern "C"试试

i:=itf.f_connect('*****,'sa','','ld_xxnchzyl');

   QQ：86074731

我想，稍微社工你一下，你的数据库服务器就不保了。。。。。
竟然是SA连数据库

同意楼上，楼主赶快把敏感信息抹了吧~~以前我也见过有人求助后台登录的错误原因，给出的错误信息中后台地址用户名密码竟然都有

没事儿，这只是测试数据库,正式数据库用户名和密码肯定改,再说,我们不连任何外网,内部用的.

interface; // PB90 generated typelib for: interface.dll

Dispatch Ild_interface;
GUID={7BE99889-EC6E-4835-97AD-3CA51615C704};
  function QueryInterface(riid:^GUID; out ppvObj:^^void);
  function AddRef: UI4;
  function Release: UI4;
  function GetTypeInfoCount(out pctinfo:^UINT);
  function GetTypeInfo(itinfo:UINT; lcid:UI4; out pptinfo:^^void);
  function GetIDsOfNames(riid:^GUID; rgszNames:^^I1; cNames:UINT; lcid:UI4; out rgdispid:^I4);
  function Invoke(dispidMember:I4; riid:^GUID; lcid:UI4; wFlags:UI2; pdispparams:^DISPPARAMS; out pvarResult:^variant; out pexcepinfo:^EXCEPINFO; out puArgErr:^UINT);
  function f_connect(ls_servername:BSTR; ls_logid:BSTR; ls_logpass:BSTR; ls_database:BSTR): I2;
  function f_disconnect;
  function f_checkclinic_in(ls_card_id:BSTR; ls_name:BSTR; ls_idcard:BSTR): I2;
  function f_getclinic_code(ls_card_id:BSTR; ls_name:BSTR; ls_idcard:BSTR): BSTR;
  function f_checkinhos_in(ls_card_id:BSTR; ls_name:BSTR; ls_idcard:BSTR): I2;
  function f_getinhos_code(ls_card_id:BSTR; ls_name:BSTR; ls_idcard:BSTR): BSTR;
  function f_getinhos_rcpcode(ls_inhos_code:BSTR): BSTR;
  function f_update_drug(ls_servername:BSTR; ls_logid:BSTR; ls_logpass:BSTR; ls_database:BSTR): I2;
  function f_update_item(ls_servername:BSTR; ls_logid:BSTR; ls_logpass:BSTR; ls_database:BSTR): I2;
  function f_import_inhosrcpmain(ls_inhos_code:BSTR; ls_rcp_code:BSTR; ldt_rcp_date:date; ls_crt_man:BSTR): I2;
  function f_import_clinicrcp(ls_clinic_code:BSTR; li_sn:I4; ls_clinic_type:BSTR; ls_item_code:BSTR; ls_item_jm:BSTR; ls_item_name:BSTR; ls_item_spec:BSTR; ls_item_dosage:BSTR; ls_item_unit:BSTR; ldc_item_price:R8; li_item_num:I2; ldc_item_fee:R8): I2;
  function f_import_inhosrcp(ls_inhos_code:BSTR; ls_rcp_code:BSTR; li_sn:I4; ls_rcp_type:BSTR; ls_item_code:BSTR; ls_item_jm:BSTR; ls_item_name:BSTR; ls_item_spec:BSTR; ls_item_dosage:BSTR; ls_item_unit:BSTR; ldc_item_price:R8; li_item_num:R8; ldc_item_fee:R8; ls_item_date:BSTR): I2;

Class COClass_ld_interface; // PowerBuilder 9.0.1 generated object
GUID={FD43E78A-BE9E-4891-8AA3-34AEDB6584BF};
  function QueryInterface(riid:^GUID; out ppvObj:^^void);
  function AddRef: UI4;
  function Release: UI4;
  function GetTypeInfoCount(out pctinfo:^UINT);
  function GetTypeInfo(itinfo:UINT; lcid:UI4; out pptinfo:^^void);
  function GetIDsOfNames(riid:^GUID; rgszNames:^^I1; cNames:UINT; lcid:UI4; out rgdispid:^I4);
  function Invoke(dispidMember:I4; riid:^GUID; lcid:UI4; wFlags:UI2; pdispparams:^DISPPARAMS; out pvarResult:^variant; out pexcepinfo:^EXCEPINFO; out puArgErr:^UINT);
  function f_connect(ls_servername:BSTR; ls_logid:BSTR; ls_logpass:BSTR; ls_database:BSTR): I2;
  function f_disconnect;
  function f_checkclinic_in(ls_card_id:BSTR; ls_name:BSTR; ls_idcard:BSTR): I2;
  function f_getclinic_code(ls_card_id:BSTR; ls_name:BSTR; ls_idcard:BSTR): BSTR;
  function f_checkinhos_in(ls_card_id:BSTR; ls_name:BSTR; ls_idcard:BSTR): I2;
  function f_getinhos_code(ls_card_id:BSTR; ls_name:BSTR; ls_idcard:BSTR): BSTR;
  function f_getinhos_rcpcode(ls_inhos_code:BSTR): BSTR;
  function f_update_drug(ls_servername:BSTR; ls_logid:BSTR; ls_logpass:BSTR; ls_database:BSTR): I2;
  function f_update_item(ls_servername:BSTR; ls_logid:BSTR; ls_logpass:BSTR; ls_database:BSTR): I2;
  function f_import_inhosrcpmain(ls_inhos_code:BSTR; ls_rcp_code:BSTR; ldt_rcp_date:date; ls_crt_man:BSTR): I2;
  function f_import_clinicrcp(ls_clinic_code:BSTR; li_sn:I4; ls_clinic_type:BSTR; ls_item_code:BSTR; ls_item_jm:BSTR; ls_item_name:BSTR; ls_item_spec:BSTR; ls_item_dosage:BSTR; ls_item_unit:BSTR; ldc_item_price:R8; li_item_num:I2; ldc_item_fee:R8): I2;
  function f_import_inhosrcp(ls_inhos_code:BSTR; ls_rcp_code:BSTR; li_sn:I4; ls_rcp_type:BSTR; ls_item_code:BSTR; ls_item_jm:BSTR; ls_item_name:BSTR; ls_item_spec:BSTR; ls_item_dosage:BSTR; ls_item_unit:BSTR; ldc_item_price:R8; li_item_num:R8; ldc_item_fee:R8; ls_item_date:BSTR): I2;

顶一下吧，还是没有解决

如果用delphi，VB或VFp调用之个dll里的函数，如何定义

上传的附件：

• interface.rar （47.24kb，9次下载）

没有定义导出函数，别人自然无法调用

f_connect是个接口函数,只要有对就应的接口类型就可以调用了.

对VFP与 DEPHI不熟,看不出哪里有错,VC 的使用步骤如下:

int main()
{
	HRESULT hr;
	IAtlTest *ppv;
	DWORD dwClsContext = CLSCTX_INPROC_SERVER ;

	// 初使化COM库
	hr = ::CoInitialize(NULL);
	if(SUCCEEDED(hr))
		cout<<"初使化成功!按 回车 继续..."<<endl;
	getchar();

	// 取得IAtlTest接口接针
	hr = ::CoCreateInstance(CLSID_AtlTest,NULL,dwClsContext,IID_IAtlTest,(void **)&ppv);
	if(SUCCEEDED(hr))
		cout<<"得到IAtlTest成功!按 回车 继续..."<<endl;
	else
	{
		cout<<"获取失败,按 回车 退出!"<<endl;
		::CoUninitialize();
		getchar();
		return 0;
	}
	getchar();

	ppv->Test1();   // 调用接口函数
	ppv->Test2();

	cout<<"按 回车 以释放COM组件..."<<endl;
	ppv->Release(); // 释放COM组件

	::CoUninitialize();
	getchar();
	return 0;
}