用戶體驗中心
售前咨詢: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號
欧美真人性做爰视频