你先定义好各个变量的值,然后在DELPHI中调用 这个函数:
function SendSingle(const nNeedReply:integer;
                    const nMsgLevel:integer;
  const sServiceID:pchar;
                    const nMsgFormat:integer;
  const sFeeType:pchar;
                    const sFeeCode:pchar;
           const sValidTime:pchar;
                    const sAtTime:pchar;
           const sChargeTermID:pchar;
  const sDestTermID:pchar;
           const sReplyPath:pchar;
                    const nMsgLen:integer;
           const sMsgContent:pchar;
                    sMsgID:string;        
            nErrorCode:pointer):integer;stdcall;external 'AA.dll' name '在DLL中定义的函数名';