程序代码：

iscard=CVR_Authenticate()
cReadvalue=CVR_Read_Content(1)
DECLARE integer GetPeopleName in termb.dll String @strTmp, Integer @strLen
DECLARE integer GetPeopleSex in termb.dll String @strTmp, Integer @strLen
DECLARE integer GetPeopleNation in termb.dll String @strTmp, Integer @strLen
DECLARE integer GetPeopleBirthday in termb.dll String @strTmp, Integer @strLen
DECLARE integer GetPeopleAddress in termb.dll String @strTmp, Integer @strLen
DECLARE integer GetPeopleIDCode in termb.dll String @strTmp, Integer @strLen
DECLARE integer GetDepartment in termb.dll String @strTmp, Integer @strLen
DECLARE integer GetStartDate in termb.dll String @strTmp, Integer @strLen
DECLARE integer GetEndDate in termb.dll String @strTmp, Integer @strLen
strTmp = Space(255)
GetPeopleName(strTmp,strLen)
cName=strTmp
strTmp = Space(255)
GetPeopleSex(strTmp,strLen)
cSex=strTmp
strTmp = Space(255)
GetPeopleNation(strTmp,strLen)
cNation=strTmp
strTmp = Space(255)
GetPeopleBirthday(strTmp,strLen)
cBirthday=strTmp
strTmp = Space(255)
GetPeopleAddress(strTmp,strLen)
cAddress=strTmp
strTmp = Space(255)
GetPeopleIDCode(strTmp,strLen)    
cIDCode=strTmp
strTmp = Space(255)
GetDepartment(strTmp,strLen)
cDepartment=strTmp
strTmp = Space(255)
GetStartDate(strTmp,strLen)
cStartDate=strTmp
strTmp = Space(255)
GetEndDate(strTmp,strLen)
cEndDate=strTmp
cMessage='姓名：'+cName+chr(13)+'性别：'+cSex+chr(13)+ '民族：'+cNation+chr(13)+ '日期：'+cBirthday+chr(13)+ '地址：'+cAddress+chr(13)+ '身份证号：'+cIDCode+chr(13)+ '发证机关：'+cDepartment+chr(13)+ '有效期始：'+cStartDate+chr(13)+ '有效期止：'+cEndDate+chr(13)
thisform.edit1.value=cMessage
thisform.image1.picture='zp.bmp'

[此贴子已经被作者于2016-8-5 13:23编辑过]

程序代码：

    读各项文字信息到自定义内存缓冲
原  型：
    int  GetPeopleName(char *strTmp, int *strLen)        //得到姓名信息    
    int  GetPeopleSex(char *strTmp, int *strLen)        //得到性别信息    
    int  GetPeopleNation(char *strTmp, int *strLen)        //得到民族信息    
    int  GetPeopleBirthday(char *strTmp, int *strLen)    //得到出生日期    
    int  GetPeopleAddress(char *strTmp, int *strLen)    //得到地址信息    
    int  GetPeopleIDCode(char *strTmp, int *strLen)    //得到卡号信息    
    int  GetDepartment(char *strTmp, int *strLen)        //得到发证机关信息    
    int  GetStartDate(char *strTmp, int *strLen)            //得到有效开始日期    
    int  GetEndDate(char *strTmp, int *strLen)            //得到有效截止日期
int  CVR_GetSAMID(char * SAMID)             //得到安全模块号码
参数：
       *strTmp   返回的信息缓存指针。
       *strLen    返回的信息长度指针。

程序代码：

Private Sub Command8_Click()
    Dim strTemp As String
    Dim nReturnLen As Integer
    Dim nReturn As Integer
    
    strTemp = Space(255)
    nReturn = GetPeopleAddress(strTemp, nReturnLen)
    
    List1.AddItem "【读取地址】"
    List1.AddItem " 地址： " & strTemp
End Sub

[此贴子已经被作者于2016-8-5 15:25编辑过]

[此贴子已经被作者于2016-8-5 16:45编辑过]

GetPeopleName(@strTemp,@nReturnLen)

[此贴子已经被作者于2016-8-6 16:32编辑过]