C-API接口定义转DELPHI-API接口定义 ( 积分: 20 )

int WINAPI SubmitAExEx(unsigned char OrgTON, unsigned char OrgNPI, LPCTSTR OrgAddr,<br> unsigned char DestTON, unsigned char DestNPI, LPCTSTR DestAddr, <br> unsigned char PRI, unsigned char RD, unsigned char RP, <br> unsigned char SRR, unsigned char MR, unsigned char DCS, <br> unsigned char PID, LPCTSTR Schedule, LPCTSTR Expire, <br> unsigned long Default_ID, unsigned char UDHI, unsigned long UDLen,<br> LPCTSTR UserData, LPCTSTR ServiceSubType, <br> unsigned char* byMsgID, unsigned char byPKTotal, <br> unsigned char byPKNumber, unsigned char byMsglevel, <br> &nbsp; &nbsp; &nbsp; &nbsp;unsigned char byFeeUserType, LPCTSTR sSPID, LPCTSTR sFeeType, <br> &nbsp; &nbsp; &nbsp; &nbsp;LPCTSTR sFeeAddr, LPCTSTR sFeeCode,unsigned char byUserNum, <br> &nbsp; &nbsp; &nbsp; &nbsp;LPCTSTR sDestAddrs,unsigned long* SM_ID, unsigned char* FCS)<br>[red]//请转为delphi定义函数，谢谢[/red]

int WINAPI SubmitAExEx(unsigned char OrgTON, unsigned char OrgNPI, LPCTSTR OrgAddr,<br> unsigned char DestTON, unsigned char DestNPI, LPCTSTR DestAddr, <br> unsigned char PRI, unsigned char RD, unsigned char RP, <br> unsigned char SRR, unsigned char MR, unsigned char DCS, <br> unsigned char PID, LPCTSTR Schedule, LPCTSTR Expire, <br> unsigned long Default_ID, unsigned char UDHI, unsigned long UDLen,<br> LPCTSTR UserData, LPCTSTR ServiceSubType, <br> unsigned char* byMsgID, unsigned char byPKTotal, <br> unsigned char byPKNumber, unsigned char byMsglevel, <br> &nbsp; &nbsp; &nbsp; &nbsp;unsigned char byFeeUserType, LPCTSTR sSPID, LPCTSTR sFeeType, <br> &nbsp; &nbsp; &nbsp; &nbsp;LPCTSTR sFeeAddr, LPCTSTR sFeeCode,unsigned char byUserNum, <br> &nbsp; &nbsp; &nbsp; &nbsp;LPCTSTR sDestAddrs,unsigned long* SM_ID, unsigned char* FCS)<br>[red]//请转为delphi定义函数，谢谢[/red]

捡[]

function SubmitAExEx(OrgTON, OrgNPI: Byte; OrgAddr: PChar; DestTON, DestNPI: Byte; DestAddr: PChar; PRI, RD, RP, SRR, MR, DCS, PID: Byte; Schedule, Expire: PChar; Default_ID: Cardinal; UDHI: Byte; UDLen: Cardinal; UserData, ServiceSubType, byMsgID: PChar; byPKTotal, byPKNumber, byMsglevel, byFeeUserType: Byte; SPID, sFeeType, sFeeAddr, sFeeCode: PChar; byUserNum: Byte;<br>sDestAddrs: PChar; var SM_ID: Cardinal; FCS: PChar): Integer; stdcall;

接受答案了.