VBµ÷ÓÃVC DLL Ô¼¶¨´íÎó,Çó¸ßÊÖÖ¸µã

VCº¯ÊýÊÇ:extern "C" int __declspec(dllexport)PassPortRead(char *InPutData,char OuPutData[255]);
VBÉùÃ÷ÊÇ£ºPrivate Declare Function PassPortRead Lib "PPRead.dll" (ByVal InPutData As String, ByVal OutPutData As String) As Integer
Éú³ÉµÄÎļþÄÜÕý³£ÔËÐÐ,²¢ÇÒÄÜÉú³ÉÏàÓ¦Êý¾Ý,µ«ÊÇÔÚµ÷ÊÔʱÌáʾ"DLLµ÷ÓÃÔ¼¶¨´íÎó"
E_Mail:linnda413@126.com
VC´úÂë:
int PassPortRead(char *InPutData,char OutPutData[255])
{
 char tmp[255];
 int len = 0;
 memset(tmp,0,255);
 //³õÈ绯³ÉÔ±±äÁ¿passInfo
 memset(PassInfo.Name,0,20);
 memset(PassInfo.Birth,0,20);
 memset(PassInfo.Gender,0,10);
 memset(PassInfo.Nationality,0,10);
 memset(PassInfo.Number,0,20);
 memset(PassInfo.IdCode,0,20);
 memset(PassInfo.Expiry,0,20);
 memset(PassInfo.CIssue,0,20);
 //ɾ³ý»»ÐÐÓë»Ø³µ×Ö·û
 DelInStr(InPutData,"\r");
 DelInStr(InPutData,"\n");
 
 
 len = strlen(InPutData);
 if (len == 0)
 {
  return -1;
 }
 if (len < 80)
 {
  PassportParseTD2(InPutData); 
 }else{
  PassportParseTD1(InPutData); 
 } 
 sprintf(tmp,"#01%s#02%s#03%s#04%s#05%s#06%s#07%s#08%s",
  PassInfo.Name,PassInfo.Birth,PassInfo.Gender,PassInfo.Nationality,PassInfo.Number,
  PassInfo.IdCode,PassInfo.Expiry,PassInfo.CIssue);
 strcat(OutPutData,tmp);
 
 return 0;
}
VB´úÂë:
Private Declare Function PassPortRead Lib "PPRead.dll" (ByVal InPutData As String, ByVal OutPutData As String) As Integer
Private Sub START_BTN_Click()
Dim PPData As String
Dim PPShow As String
PPData = PPData_TXT.Text
PPShow = String(255, vbNullChar)
If PPData = "" Then
    PRSHOW_TXT.Text = "»¤ÕÕÊý¾Ý²»ÄÜΪ¿Õ..."
End If
Call PassPortRead(PPData, PPShow)
PRSHOW_TXT.Text = PPShow
End Sub
Éú³É³ÌÐòÔËÐÐÕý³£:
µ÷ÊÔʱ³öÏÖ´íÎó