设为首页收藏本站

Delphi乐园 开发者的家园

 找回密码
 立即注册

QQ登录

只需一步,快速开始

查看: 224|回复: 8

API函数调用,急!!!!!!!!!!!!1 [复制链接]

Rank: 4

  • TA的每日心情
    慵懒
    2013-8-10 13:48:45
  • 签到天数: 9 天

    [LV.3]偶尔看看II

    金钱
    60935
    12142
    0
    在线时间
    6 小时
    阅读权限
    10
    精华
    0
    积分
    0
    UID
    10
    发表于 2016-9-7 20:51:17 |显示全部楼层
    分享到:
    以下是我的实现部分:  

    function TForm1.SendMSG(DesPHS, Context: string): integer;

    var

      OrgAddr,DestAddr,Schedule,Expire,UserData,ServiceSubType:PChar;

      byMsgID,sSPID,sFeeType,sFeeAddr,sFeeCode,sDestAddrs:PChar;

      SM_ID:PointerToInt;

      FCS,bySmgpMsgID,FixedFee:PChar;

      TmpStr:String;

      MsgLen,Rtn:integer;

    begin

      //发送短信

      GetMem(OrgAddr,20);

      GetMem(DestAddr,20);

      GetMem(Schedule,19);

      GetMem(Expire,19);

      GetMem(UserData,100);

      GetMem(ServiceSubType,1);

      GetMem(byMsgID,512);

      GetMem(sSPID,8);

      GetMem(sFeeType,2);

      GetMem(sFeeAddr,20);

      GetMem(sFeeCode,6);

      GetMem(sDestAddrs,20);

      GetMem(FCS,512);

      GetMem(bySmgpMsgID,22);

      GetMem(FixedFee,20);

      try

        TmpStr:='10659445';

        StrPCopy(OrgAddr,TmpStr);

        StrPCopy(DestAddr,DesPHS);

    //    StrPCopy(Schedule,FormatDateTime('yyyy/mm/dd hh:mm:ss',now));

    //    StrPCopy(Expire,FormatDateTime('yyyy/mm/dd hh:mm:ss',now+2));

        StrPCopy(Schedule,'');

        StrPCopy(Expire,'');

        MsgLen:=Length(Context);

        StrPCopy(UserData,Context);

        StrPCopy(ServiceSubType,'');

        StrPCopy(byMsgID,'');

        StrPCopy(sSPID,TmpStr);

        StrPCopy(sFeeType,'01');

        StrPCopy(sFeeAddr,DesPHS);

        StrPCopy(sFeeCode,'000000');

        StrPCopy(sDestAddrs,DesPHS);

        StrPCopy(FCS,'');

        StrPCopy(bySmgpMsgID,'');

        StrPCopy(FixedFee,'000000');



    {

    int WINAPI SubmitAExExEx(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, LPCTSTR ServiceSubType,

                    unsigned char* byMsgID, unsigned char byPKTotal,

                    unsigned char byPKNumber, unsigned char byMsglevel, unsigned char byFeeUserType,

                    LPCTSTR sSPID, LPCTSTR sFeeType, LPCTSTR sFeeAddr, LPCTSTR sFeeCode,

                    unsigned char byUserNum, LPCTSTR sDestAddrs,

                    unsigned long* SM_ID, unsigned char* FCS,

                    unsigned char *bySmgpMsgID, unsigned char byMsgType, LPCTSTR FixedFee)



    }



        Result:=SubmitAExExEx(2,1,OrgAddr,2,1,DestAddr,

                      0,0,0,0,0,15,0,

                      Schedule,Expire,0,0,MsgLen,

                      UserData,ServiceSubType, byMsgID,1,1,0,0,

                      sSPID,sFeeType,sFeeAddr,sFeeCode,

                      1,sDestAddrs,SM_ID,FCS,bySmgpMsgID,5,FixedFee);



      finally

        FreeMem(OrgAddr);

        FreeMem(DestAddr);

        FreeMem(Schedule);

        FreeMem(Expire);

        FreeMem(UserData);

        FreeMem(ServiceSubType);

        FreeMem(byMsgID);

        FreeMem(sSPID);

        FreeMem(sFeeType);

        FreeMem(sFeeAddr);

        FreeMem(sFeeCode);

        FreeMem(sDestAddrs);

        FreeMem(FCS);

        FreeMem(bySmgpMsgID);

        FreeMem(FixedFee);

      end;

    end;
    提示什么缺点。。
    参数哪么多,晕
    看见都晕了........照样看见不晕的高仁攀来解吧;
    up
    参数多了点,不过,也没有关系啊,一个来啊。
    这器械慢慢来~~
    参数实袈溱太多了,你想实现什么功能?必定要用这个函数来实现吗?

    Rank: 4

  • TA的每日心情

    2014-9-3 14:27:23
  • 签到天数: 1 天

    [LV.1]初来乍到

    金钱
    52091
    10324
    1
    在线时间
    1 小时
    阅读权限
    10
    精华
    0
    积分
    0
    UID
    7705
    发表于 2016-9-7 21:01:17 |显示全部楼层
    以下是我的实现部分:  

    function TForm1.SendMSG(DesPHS, Context: string): integer;

    var

      OrgAddr,DestAddr,Schedule,Expire,UserData,ServiceSubType:PChar;

      byMsgID,sSPID,sFeeType,sFeeAddr,sFeeCode,sDestAddrs:PChar;

      SM_ID:PointerToInt;

      FCS,bySmgpMsgID,FixedFee:PChar;

      TmpStr:String;

      MsgLen,Rtn:integer;

    begin

      //发送短信

      GetMem(OrgAddr,20);

      GetMem(DestAddr,20);

      GetMem(Schedule,19);

      GetMem(Expire,19);

      GetMem(UserData,100);

      GetMem(ServiceSubType,1);

      GetMem(byMsgID,512);

      GetMem(sSPID,8);

      GetMem(sFeeType,2);

      GetMem(sFeeAddr,20);

      GetMem(sFeeCode,6);

      GetMem(sDestAddrs,20);

      GetMem(FCS,512);

      GetMem(bySmgpMsgID,22);

      GetMem(FixedFee,20);

      try

        TmpStr:='10659445';

        StrPCopy(OrgAddr,TmpStr);

        StrPCopy(DestAddr,DesPHS);

    //    StrPCopy(Schedule,FormatDateTime('yyyy/mm/dd hh:mm:ss',now));

    //    StrPCopy(Expire,FormatDateTime('yyyy/mm/dd hh:mm:ss',now+2));

        StrPCopy(Schedule,'');

        StrPCopy(Expire,'');

        MsgLen:=Length(Context);

        StrPCopy(UserData,Context);

        StrPCopy(ServiceSubType,'');

        StrPCopy(byMsgID,'');

        StrPCopy(sSPID,TmpStr);

        StrPCopy(sFeeType,'01');

        StrPCopy(sFeeAddr,DesPHS);

        StrPCopy(sFeeCode,'000000');

        StrPCopy(sDestAddrs,DesPHS);

        StrPCopy(FCS,'');

        StrPCopy(bySmgpMsgID,'');

        StrPCopy(FixedFee,'000000');



    {

    int WINAPI SubmitAExExEx(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, LPCTSTR ServiceSubType,

                    unsigned char* byMsgID, unsigned char byPKTotal,

                    unsigned char byPKNumber, unsigned char byMsglevel, unsigned char byFeeUserType,

                    LPCTSTR sSPID, LPCTSTR sFeeType, LPCTSTR sFeeAddr, LPCTSTR sFeeCode,

                    unsigned char byUserNum, LPCTSTR sDestAddrs,

                    unsigned long* SM_ID, unsigned char* FCS,

                    unsigned char *bySmgpMsgID, unsigned char byMsgType, LPCTSTR FixedFee)



    }



        Result:=SubmitAExExEx(2,1,OrgAddr,2,1,DestAddr,

                      0,0,0,0,0,15,0,

                      Schedule,Expire,0,0,MsgLen,

                      UserData,ServiceSubType, byMsgID,1,1,0,0,

                      sSPID,sFeeType,sFeeAddr,sFeeCode,

                      1,sDestAddrs,SM_ID,FCS,bySmgpMsgID,5,FixedFee);



      finally

        FreeMem(OrgAddr);

        FreeMem(DestAddr);

        FreeMem(Schedule);

        FreeMem(Expire);

        FreeMem(UserData);

        FreeMem(ServiceSubType);

        FreeMem(byMsgID);

        FreeMem(sSPID);

        FreeMem(sFeeType);

        FreeMem(sFeeAddr);

        FreeMem(sFeeCode);

        FreeMem(sDestAddrs);

        FreeMem(FCS);

        FreeMem(bySmgpMsgID);

        FreeMem(FixedFee);

      end;

    end;

    使用道具 举报

    Rank: 4

  • TA的每日心情

    2013-8-11 10:31:01
  • 签到天数: 1 天

    [LV.1]初来乍到

    金钱
    58881
    11668
    1
    在线时间
    0 小时
    阅读权限
    10
    精华
    0
    积分
    0
    UID
    7424
    发表于 2016-9-7 21:08:18 |显示全部楼层
    提示什么错误。。

    使用道具 举报

    Rank: 4

  • TA的每日心情

    2014-9-3 14:27:23
  • 签到天数: 1 天

    [LV.1]初来乍到

    金钱
    52091
    10324
    1
    在线时间
    1 小时
    阅读权限
    10
    精华
    0
    积分
    0
    UID
    7705
    发表于 2016-9-7 21:11:19 |显示全部楼层
    参数哪么多,晕

    使用道具 举报

    Rank: 4

    该用户从未签到

    金钱
    60405
    11971
    0
    在线时间
    0 小时
    阅读权限
    10
    精华
    0
    积分
    0
    UID
    9
    发表于 2016-9-7 21:16:19 |显示全部楼层
    看见都晕了........还是看见不晕的高人来解吧;

    使用道具 举报

    yqz 企业用户 

    Rank: 4

  • TA的每日心情
    擦汗
    2014-12-17 08:43:45
  • 签到天数: 17 天

    [LV.4]偶尔看看III

    金钱
    61387
    12274
    4
    在线时间
    19 小时
    阅读权限
    10
    精华
    0
    积分
    0
    UID
    2
    发表于 2016-9-7 21:24:20 |显示全部楼层
    up

    使用道具 举报

    Rank: 4

    该用户从未签到

    金钱
    62730
    12098
    0
    在线时间
    222 小时
    阅读权限
    10
    精华
    0
    积分
    0
    UID
    972
    发表于 2016-9-7 21:30:20 |显示全部楼层
    参数多了点,不过,也没有关系啊,一个来啊。

    使用道具 举报

    Rank: 4

    该用户从未签到

    金钱
    62730
    12098
    0
    在线时间
    222 小时
    阅读权限
    10
    精华
    0
    积分
    0
    UID
    972
    发表于 2016-9-7 21:34:21 |显示全部楼层
    这东西慢慢来~~

    使用道具 举报

    Rank: 4

  • TA的每日心情

    2014-9-3 14:27:23
  • 签到天数: 1 天

    [LV.1]初来乍到

    金钱
    52091
    10324
    1
    在线时间
    1 小时
    阅读权限
    10
    精华
    0
    积分
    0
    UID
    7705
    发表于 2016-9-7 21:39:21 |显示全部楼层
    参数实在太多了,你想实现什么功能?一定要用这个函数来实现吗?

    使用道具 举报

    您需要登录后才可以回帖 登录 | 立即注册

    delphi乐园微信公众号

    手机版|Delphi乐园 ( 冀ICP备11023363号-7 )    

    GMT+8, 2016-10-23 02:20

    Powered by Discuz! X2

    © 2001-2011 Comsenz Inc.

    公网安备 14090202000504号

    回顶部