怎样把bcb写的dll的数组的值传到vb中 - C++ Builder / Windows SDK/API
如题
[解决办法]
int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void*)
{
return 1;
}
//---------------------------------------
extern "C " __declspec(dllexport) __stdcall int VBLoadBCBDll(PChar strGet)
{
//static char strRet[100] = "VB Load BCB Dll is OK! ";
//strcpy ( strGet, strRet ); // 使用这个代码也是对的
strcpy ( strGet, "VB Load BCB Dll is OK! " );
return 1;
}
vb:
Public Declare Function VBLoadBCBDll Lib "TestBCBDll.dll " (ByVal strGet As String) As Long
Private Sub Command1_Click()
Dim strBuffer As String
strBuffer = Space(255)
If (VBLoadBCBDll(strBuffer) = 1) Then
Text1.Text = strBuffer
End If
End Sub
