请大家指教啊，调动动态库中的函数出错啊！

Question

SubmitA有那么多参数吗？问题在这吧

Answer 1

int WINAPI SubmitA(unsigned char OrgTON, unsigned char OrgNPI, LPCTSTR OrgAddr, unsigned char DestTON, unsigned char DestNPI, LPCTSTR DestAddr, unsigned char PRI, unsigned char RD, unsigned char RP, unsigned char SRR, unsigned char MR, unsigned char DCS, unsigned char PID, LPCTSTR Schedule, LPCTSTR Expire, unsigned long Default_ID, unsigned char UDHI, unsigned long UDLen, LPCTSTR UserData, unsigned long* SM_ID, unsigned char* FCS);
这是C的原函数声明！
大家出主意啊，！我的日子不好过啊！   

Answer 2

TSubmitA=function(orgton:char;orgnpi:char;orgaddr:lpctstr;destton:char;destnpi:char;destaddr:lpctstr;pri:char;rd:char;rp:char;srr:char;mr:char;dcs:char;pid:char;schedule:lpctstr;expire:lpctstr;default_id:cardinal;udhi:char;unlen:cardinal;userdate:lpctstr;sm_id:pointercardinal;fcs:pchar):integer;stdcall;
我在DELPHI中的函数原形！

Answer 3

var
  SubmitA: function(OrgTON, OrgNPI:byte; OrgAddr: LPCTSTR; DestTON, DestNPI: byte; DestAddr: LPCTSTR; PRI, RD, RP, SRR, MR, DCS, PID: byte; Schedule, Expire: LPCTSTR; Default_ID: LongWord; UDHI: byte; UDLen: LongWord; UserData: LPCTSTR; SM_ID: ^LongWord; FCS: ^byte):integer;stdcall;

Answer 4

TSubmitA=function(OrgTON, OrgNPI:byte; OrgAddr: LPCTSTR; DestTON, DestNPI: byte; DestAddr: LPCTSTR; PRI, RD, RP, SRR, MR, DCS, PID: byte; Schedule, Expire: LPCTSTR; Default_ID: LongWord; UDHI: byte; UDLen: LongWord; UserData: LPCTSTR; SM_ID: ^LongWord; FCS: ^byte):integer;stdcall;

Answer 5

  pByte = ^byte;
  pLongWord = ^LongWord;
  TSubmitA = function(OrgTON, OrgNPI:byte; OrgAddr: LPCTSTR; DestTON, DestNPI: byte; DestAddr: LPCTSTR; PRI, RD, RP, SRR, MR, DCS, PID: byte; Schedule, Expire: LPCTSTR; Default_ID: LongWord; UDHI: byte; UDLen: LongWord; UserData: LPCTSTR; SM_ID: pLongWord; FCS: pbyte):integer;stdcall;