<dd id="9xhu7"><noscript id="9xhu7"></noscript></dd>
  • <span id="9xhu7"></span>
  • <em id="9xhu7"></em>
  • <tbody id="9xhu7"></tbody>
    用戶體驗中心
    售前咨詢: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號
    欧美真人性做爰视频,日本高清色在线视频免费,色老头色老太在线视频,波多野结衣全集