Delphi 加载其它语言写的DLL １

  function IFInitInterface(dwCodeProtocol:Longword; dwDriverProtocol: Longword; pDriverParam: pchar):Integer; stdcall; //初始化函数 0失败，1成功
  function Login_R(Account: pchar; Password:pchar): Integer; stdcall;//登陆函数   0失败，1成功
  function SendSms(
    constsOrgAddr: pchar;  //源地址
    constsPhones:pchar;  //手机号，最多一次发送100个，用英文逗号分隔
    ReportFlag:Byte; //是否要状态报告,1需要，0不需要
    constsMsg: pchar;  //短信内容
    sMsgID:pchar; //返回：消息流水号msgId
    FCS:pchar  //返回：错误码
    ):Integer; stdcall;
  function RecvSms(
    sOrgAddr:pchar;   //返回：源址
    sPhone:pchar;   //返回：手机号
    sMsgID:pchar; //返回：上行或状态报告的msgid
    ReportFlag:pchar;  //返回：信息标志 0:状态报告 1:上行
    sTimeStamp:pchar;  //返回：接收到的时间 格式：2009-10-2812:12:12
    sSubmitdate:pchar;  //返回：提交时间0910281212
    sDonedate:pchar;   //返回：受理时间0910281212
    sErrorCode:pchar;  //返回：状报告错误码
    sMsg:pchar    //返回：上行信息
    ):Integer; stdcall;
  function IFExitInterface(): Integer;stdcall;//退出登陆函数
 
  function IFInitInterface; external 'SMEIDll.dll'name 'IFInitInterface';
  function Login_R; external 'SMEIDll.dll' name'Login_R';
  function SendSms; external 'SMEIDll.dll' name'SendSms';
  function RecvSms; external 'SMEIDll.dll' name'RecvSms';
  function IFExitInterface; external 'SMEIDll.dll'name 'IFExitInterface';