vc++µ÷ÓÃdelphiµÄDLL,º¯ÊýÎÊÌâÐèÒª°ïÖú.

Delphi(Pascal) code:
Fun1: function(MachineID, User, Password, ProductID: PChar; Year, Month, Day, Days, FirstNumber, Count: Integer): LongBool; stdcall;

if Fun1(PChar(Edit1.Text), PChar(Edit2.Text), PChar(Edit3.Text), @ProductID[1], StrToInt(Edit6.Text), StrToInt(Edit7.Text), StrToInt(Edit8.Text), StrToInt(Edit9.Text), StrToInt(Edit5.Text), 100) then


ProductID ÐëÔÚµ÷ÓÃÇ°ÉêÇëÒ»¶ÎÄڴ棨Äã¿ÉÒÔÉêÇë 255 ³¤¶ÈµÄÄڴ棩ÓÃÓÚ´æ·Å×¢²áÐÅÏ¢£¬½«ÄÚ´æµÄµØÖ·´«¸ø¸Ãº¯Êý£¬Èç¹ûº¯Êý³É¹¦£¬Ôò´ËÄÚ´æ´¦´æ·Å×ÅÁã½áβµÄ×Ö·û´®¾ÍÊÇ×¢²áÐÅÏ¢£¬µ÷ÓÃÕßʹÓÃÍê×¢²áÐÅÏ¢ºóÓ¦¸ÃÊÍ·Å´Ë´¦ÄÚ´æ¡£


C/C++ code:
typedef BOOL (*GETPRODUCTID)(char lpszMachineID, char lpszUser, char lpszPassword, char* pProductID, int Year, int Month, int Day, int Days, int FirstNumber, int Integer);
GETPRODUCTID GetProductID = (GETPRODUCTID)GetProcAddress(hMod, "NewGenerateProductID");

if (!GetProductID)
{
MessageBox(_T("»ñÈ¡º¯ÊýµØַʧ°Ü,ÇëÁªÏµË¼Î¬¿Õ¼ä!"), _T("Ìáʾ"), MB_ICONERROR | MB_OK);
return;
}


´ó¼Ò°ïÏÂæ,ÏÂÃæ²»»áдÁË.лл~

---

Ö÷Òª²»Ã÷°×PCharÔÚVC++ÖÐÊÇʲôÀàÐÍ,Êý¾ÝÒªÔõô´«µÝ¹ýÈ¥,ÊDz»ÊÇ´«Ö¸Õë?

---

ÒýÓÃ

Ö÷Òª²»Ã÷°×PCharÔÚVC++ÖÐÊÇʲô