给你一例子在VB中调用: Private Declare Function Des Lib "Sn.dll" (ByVal MStr As String) As String在Delphi调用: function Des(MStr:PChar):PChar;Stdcall;External 'Sn.dll';
可以用动态加载loadlibrary,不过要注意,delphi数据类型比VB要丰富.
Private Declare Function Des Lib "Sn.dll" (ByVal MStr As String) As String 这个是win32 的API吗?
Private Declare Function Des Lib "Sn.dll" (ByVal MStr As String) As String在Delphi调用:
function Des(MStr:PChar):PChar;Stdcall;External 'Sn.dll';
这个是win32 的API吗?
function Des(MStr:PChar):PChar;Stdcall;External 'LIB.dll';
不过注意传STRING类型必须使用成PCHAR类型,否则不能正常传递参数和返回值!
VB不支持创建标准DLL的,他只会生成Activex DLL,所以必须采用它的规范才可以,实在是不建议用VB做DLL,因为另一个问题就是不干净,有可能需要VB6运行库之类的支持,而且VB的效率实在不敢恭维,还是用Pascal或者C重写比较优越。