100分！关于vb调用delphi编写的dll的问题，急！！！
各位高手赶快帮帮忙。
现在有一个delphi写的dll，函数中有PInteger的返回参数，在delphi中可以正常调用，但是我在vb里写的时候就不知道该怎么来调用了。
请看代码
以下是delphi中的函数定义和调用代码，能正常运行
定义
function CommitCurrentPayCashCardList2(iBillID: Integer; sCashier: PChar; piTransID: PInteger): Integer; stdcall;external 'CRMInterface.dll';
调用
iXPH :integer;
iTransID :integer;
iXPH := strToint(edXPH.Text );
if CommitCurrentPayCashCardList2(iXPH,PChar(edSKY.Text),@iTransID)=1 then
begin
ShowMessage('消费成功');
end
下面是我在vb里写的定义和调用，但是一运行程序就崩溃，请大家快给支招吧，谢谢了。急死我了！
定义
Public Declare Function CommitCurrentPayCashCardList2 _
Lib "CRMInterface.dll" _
(ByVal iBillID As Integer, _
ByVal sCashier As String, _
ByVal iTransID As Long) As Long
调用
iXPH = 1
emplID = "1"
If CommitCurrentPayCashCardList2(iXPH, emplID, VarPtr(iTransID)) = 1 Then
MsgBox "success"
Else
MsgBox "err"
End If
冒是vb和delphi是仇人加对家。
dll是第三方提供的，要跟其他系统有接口的，所以dll不可能是我们自己开发。
没人能解决吗？郁闷郁闷啊
你看看没猩猩来，就是困难或无解。
100分嗷，猩猩的鼻子不会
相关问答：
返回的内容是如下代码,怎么能渠道2b?
<p class="text1">1a </p>
<p class="text1">2b </p>
<p class="text1">3c </p>
<p cl ......
请问Delphi有树形控件吗？
怎样使用？
Ttreeview
treeview.items.addchild(nil(上级节点),'案发时发'(text));
raize 控件包里面有，csdn有下载的
查帮助TTreeView和TNode两个类
TTreeView ......
为什么工具栏按扭的宽度改变不了,在属性里改了又变成原来的数值了
大胡子真厉害，回答基本都是爆料级的
大胡子升级真快啊，这才几天就5条短裤外加月排名第一了
想想我这5个短裤混了差不多8年才得到的。
回复 ......
VC 控制台程序:
#include <iostream>
using namespace std;
int main()
{
const int def_buffer = 1024 * 4;
DWORD t;
BYTE b[def_buffer];
memset(b, 0, sizeof(b));
PBYTE p;
t = GetTickC ......
vb是不是很牛啊 怎么那么多的病毒都是vb做的啊 c#行不行？
c#在XP运行不了，除非让别人先装上.net.
VB相对于C,C++,ASM等等，局限性大多了。
别再说什么语言不如什么语言的话了，只有你不会用或用着不顺手的� ......
