(char * bmpfile,char *txtfile) 对应 (byref bmpFn as string ,byref txtFn as string )
/* * 字符传递 */ int __stdcall CompStr(LPSTR a, LPSTR b) { return strcmp(a,b); }VB调用声明: Private Declare Function CompStr Lib "DllTest.dll" (ByVal a As String, ByVal b As String) As Integer
bmpfile="c:\\windows\\bmpfile.bmp"
txtfile="c:\\windows\\txtfile.bmp"
传入这两个字符串,返回结果提示文件没找到。
对应
(byref bmpFn as string ,byref txtFn as string )
* 字符传递
*/
int __stdcall CompStr(LPSTR a, LPSTR b)
{
return strcmp(a,b);
}VB调用声明:
Private Declare Function CompStr Lib "DllTest.dll" (ByVal a As String, ByVal b As String) As Integer