1. <p id="6jfw2"><option id="6jfw2"><bdo id="6jfw2"></bdo></option></p>
          用戶體驗中心
          售前咨詢: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號
          4483x成人网