delphi代码如下:function TXDONE(ff:Pchar):Pchar;stdcall;
begin
showmessage(ff);
TXDONE:=ff;
end;exports
TXDONE;VB调用代码如下:
Private Declare Function TXDONE% Lib "Project2" (ByVal str As String)
Private Sub Command5_Click()
Dim S As String
S = "123"
S = TXDONE(S)
MsgBox S
End Sub
程序运行结果如下:弹出123,然后弹出-3180
为什么不是弹出两次123
begin
showmessage(ff);
TXDONE:=ff;
end;exports
TXDONE;VB调用代码如下:
Private Declare Function TXDONE% Lib "Project2" (ByVal str As String)
Private Sub Command5_Click()
Dim S As String
S = "123"
S = TXDONE(S)
MsgBox S
End Sub
程序运行结果如下:弹出123,然后弹出-3180
为什么不是弹出两次123
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货