求高人翻译一段代码(C->D)

Question

#ifdef  _WIN32
#define STDCALL  __stdcall
#else
#define STDCALL
#endif
#ifndef SDTAPI_
#define SDTAPI_
#ifdef __cplusplus
extern "C"{
#endif #pragma pack(1)
typedef struct tagIDCardData{
char Name[32];
char Sex[4];
char Nation[6];
char Born[18];
char Address[72];
char IDCardNo[38];
char GrantDept[32];
char UserLifeBegin[18];
char UserLifeEnd[18];
char reserved[38];
char PhotoFileName[255];
}IDCardData;#pragma pack()/**********************************************************
 ********************** 端口类API *************************
 **********************************************************/
int STDCALL Syn_GetCOMBaud(int iComID,unsigned int *puiBaud);
int STDCALL Syn_SetCOMBaud(int iComID,unsigned int  uiCurrBaud,unsigned int  uiSetBaud);
int STDCALL Syn_OpenPort(int iPortID);
int STDCALL Syn_ClosePort(int iPortID);/**********************************************************
 ********************** SAM类API **************************
 **********************************************************/
int STDCALL Syn_GetSAMStatus(int iPortID,int iIfOpen);
int STDCALL Syn_ResetSAM(int iPortID,int iIfOpen);
int STDCALL Syn_GetSAMID(int iPortID,unsigned char *pucSAMID,int iIfOpen);
int STDCALL Syn_GetSAMIDToStr(int iPortID,char *pcSAMID,int iIfOpen);/**********************************************************
 ******************* 身份证卡类API ************************
 **********************************************************/
int STDCALL Syn_StartFindIDCard(int iPortID,unsigned char *pucManaInfo,int iIfOpen);
int STDCALL Syn_SelectIDCard(int iPortID,unsigned char *pucManaMsg,int iIfOpen);
int STDCALL Syn_ReadMsg(int iPortID,int iIfOpen,IDCardData *pIDCardData);/**********************************************************
 ******************* 附加类API ************************
 **********************************************************/
int  STDCALL Syn_SendSound(int iCmdNo);
void STDCALL Syn_DelPhotoFile();#ifdef __cplusplus
}
#endif 
#endif

Answer 1

PtagIDCardData:^ tagIDCardData;
  tagIDCardData = record
    nama:array[0..31] of char;
    sex:array[0..3] of char;
    nation:array[0..5] of char;
    born:array[0..17] of char;
    address:array[0..71]of char;
    idcarno:array[0..37]of char;
    GrantDept:array[0..31]of char;
    UserLifeBegin:array[0..17]of char;
    UserLifeEnd:array[0..17]of char;
    reserved:array[0..37]of char;
    PhotoFileName:array[0..254]of char;
  end;

Answer 2

********************** 端口类API *************************
**********************************************************/
function Syn_GetCOMBaud(iComID:Integer;puiBaud:PInteger):Integer;
function Syn_SetCOMBaud(iComID:Integer;uiCurrBaud:Integer;uiSetBaud:Integer):Integer;
function Syn_OpenPort(iPortID:Integer):Integer;
function Syn_ClosePort(iPortID:Integer):Integer;/**********************************************************
********************** SAM类API **************************
**********************************************************/
function Syn_GetSAMStatus(iPortID:Integer;iIfOpen:Integer):Integer;
function Syn_ResetSAM(iPortID:Integer;iIfOpen:Integer):Integer;
function Syn_GetSAMID(iPortID:Integer;pucSAMID:PChar;iIfOpen:Integer):Integer;
function Syn_GetSAMIDToStr(iPortID:Integer;pcSAMID:PChar;iIfOpen:Integer):Integer;/**********************************************************
******************* 身份证卡类API ************************
**********************************************************/
function Syn_StartFindIDCard(iPortID:Integer;pucManaInfo:PChar;iIfOpen:Integer):Integer;
function Syn_SelectIDCard(iPortID:Integer;pucManaMsg:Integer;iIfOpen:Integer):Integer;
function Syn_ReadMsg(iPortID:Integer;iIfOpen:Integer;pIDCardData:PtagIDCardData):Integer;
/**********************************************************
******************* 附加类API ************************
**********************************************************/
function Syn_SendSound(iCmdNo:Integer):Integer;
procedure Syn_DelPhotoFile();

Answer 3

Syn_  你的dll可能是我们公司第二产品线的，呵呵呵