求助十豆三大哥，关于VFP调用C++写的DLL的问题续
根据你提供的方法，的确有几个函数能调用成功，可有的却不成功，还请多多指点。
有这么个函数
LinkConnect
声明: long LinkConnect ();
说明: 连接控制卡
参数: 无
返回值: 返回0连接成功
备注: 必须在OpenPort函数调用成功后才能使用
示例:
VB:
Private Sub CConnect_Click()
Dim Res As Long
Res = LinkConnect ()
MsgBox Res
End Sub
VC:
private bool Link()
{
char* ip="192.168.0.100";
if(OpenPort(ip,1001)==0)
{
if(LinkConnect()==0)
{
res=true;
this->SetTimer(m_Timer,100,0);
m_Linked=true;
}
}
if(res==false)
{
MessageBox("对不起,连接控制卡失败!","提示");
m_Linked=false;
}
return res;
}
------------------
链接控制卡需要先打开端口
我写的代码如下；能打开端口，却不能链接控制卡。
Declare Long OpenPort In V6LinkDll.dll String IP
If OpenPort("'192.168.0.200',1001")=0
Messagebox("打开控制卡端口",64,"信息提示")
Else
Messagebox("端口打开失败！",48,"信息提示")
ENDIF
Declare LONG LinkConnect In V6LinkDll.dll
IF LinkConnect() = 0
Messagebox("链接成功",64,"信息提示")
Else
Messagebox("链接失败！！！！.",48,"信息提示")
ENDIF
-------------------------- c++ dll
[解决办法]
OpenPort函数应该这么用吧
Declare Integer OpenPort In V6LinkDll String @,Integer
If OpenPort('192.168.0.200',1001) == 0
Messagebox('打开控制卡端口',64,'信息提示')
Else
Messagebox('端口打开失败',48,'信息提示')
Return
Endif
Clear
lnA1=8
lnB1=9
?MyTest(lnA1,lnB1),lnA1,lnB1
?MyTest(@lnA1,lnB1),lnA1,lnB1
Function MyTest
Lparameters tnA1,tnB1
tnA1=tnA1*tnB1
Endfunc
