用户体验中心
售前咨询:400-006-0086 客服QQ:400-006- 0086 投诉电话:152-5606-8386
和记娱乐通讯平台(网页版):客户登录 | 免费试用 | 常见问题 | 客服中心
您当前位置:和记娱乐 >> 行业新闻 >> 浏览文章行业新闻
delphi短信接口代码

通过开发语言delphi进行短信验证码功能实现,使用第三方短信平台-和记娱乐短信接口进行短信验证码接口对接,通过get方式进行提交,实现用户注册功能,也可用于短信提醒,短信通知,以下为delphi短信接口代码:

  1. unit Unit1;
     
    interface
     
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls,IdHTTP,IdHashMessageDigest,IdGlobal, IdHash;
     
    type
      TForm1 = class(TForm)
        Button1: TButton;
        Label1: TLabel;
        Edit1: TEdit;
        Label2: TLabel;
        Edit2: TEdit;
        Label3: TLabel;
        Edit3: TEdit;
        Label4: TLabel;
        Memo1: TMemo;
        Label5: TLabel;
        procedure Button1Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
        function mt(sn, pwd, mobile, content, stime, ext,rrid: string): string;  //发送
      end;
     
    var
      Form1: TForm1;
     
    implementation
     
    {$R *.dfm}
     
    function ToUTF8Encode(str: string): string;
    var
      s: string;
      i: integer;
      utf8Str: UTF8String;
      strl: TMemoryStream;
      c: integer;
    begin
      if str='' then
      begin
        Result := '';
        exit;
      end;
      utf8Str := UTF8Encode(str);
      strl := TMemoryStream.Create;
      try
        c := 0;
        for i:=1  to Length(utf8Str)  do
        begin
          s := Format( '%%%.2x', [ Byte(utf8Str[i]) ]);
          strl.Write(s[1], Length(s) );
          Inc(c,Length(s));
        end;
        SetLength(Result, c);
        strl.Position := 0;
        strl.read(result[1], c);
      finally
        strl.Free;
      end;
    end;
     
    function TForm1.mt(sn, pwd, mobile, content, stime, ext,rrid: string): string;
      var
      aStream: TMemoryStream;
      Params: TStringStream;
      ASources:pchar;
      tl:tstringlist;
      resultstr,constr,str:string;
      IdHTTP1:TIdHTTP;
      jsstring: TStringList;//根据#13 拆分 回车换行符
     
    begin
    try
      resultstr:='';
      IdHTTP1:=TIdHTTP.Create(nil);
      aStream := TMemoryStream.Create;
      Params :=TStringStream.Create('');
      constr:='name='+sn+'&pwd='+pwd+'&content='+ToUTF8Encode(content)+
    '&mobile='+mobile+'&stime=&sign=testsign&type=pt&extno=';
     
      Params.WriteString(constr);
      IdHTTP1.Request.ContentType := 'application/x-www-form-urlencoded';
      IdHTTP1.Request.ContentLength:=length(IdHTTP1.Request.ContentType);
      IdHTTP1.ReadTimeout:=60000;
      IdHTTP1.Host:='sms.cr6868.com';
      IdHTTP1.Port:=80;
      with IdHTTP1 do begin
      IdHTTP1.Post('http://web.cr6868.com/asmx/smsservice.aspx',Params,aStream);
      end;
      jsstring:=Tstringlist.Create;
      aStream.WriteBuffer(#0' ', 1);
      ASources:=PChar(aStream.Memory);
      if ASources<>'' then
      begin
      showmessage(Utf8ToAnsi(ASources));
      end
      else
      showmessage('接收消息失败');
      jsstring.Free;
      aStream.free;
      Params.free;
      resultstr:=str;
      except
      on E: Exception do  begin
        resultstr:='';
      end;
      end;
      result:=resultstr;
      end;
    { TForm1 }
     
    procedure TForm1.Button1Click(Sender: TObject);
    begin
     
      mt(edit1.Text,edit2.Text,edit3.Text,memo1.Text,'','','');
    end;
     
    end.

返回首页
上一篇:C#短信接口代码
下一篇:最省钱的营销手段是什么?

更多详情请搜索:
推荐产品
热门产品
 
 
  • 和记娱乐新浪微博
  • 和记娱乐-搜狐公众平台
  • 和记娱乐企业QQ
和记娱乐微信二维码
扫描二维码
关注和记娱乐更多精彩
 
 
 
增值电信业务经营许可证 | 计算机软件著作权证书 | 软件测评中心-登记测试证书 | 短消息服务接入代码使用证书
开户许可证 | 营业执照 | 会员证书 | 网站地图
短信平台 | 短信接口 | 语音验证码 | 国际短信 | 短信公众号
地址:中国·合肥高新区长江西路与科学大道交叉口5F创业园A座502#
Copyright 2005-2017 和记娱乐 增值电信业务经营许可证:B2-20120248
网站备案:皖ICP备12004788号-11 和记娱乐公安备案皖公网安备 34019202000075号