胜达短信平台公司

主页 > 短信接口 > 代码示范 > DELPHI

[切换]

选择短信群发地区 :北京上海广州深圳
 
        DELPHI:

源码

01unit Unit1;
02 
03interface
04 
05uses
06  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
07  Dialogs, StdCtrls, IdHTTP, IdURI, Httpapp;
08 
09type
10  TForm1 = class(TForm)
11    Button1: TButton;
12    procedure Button1Click(Sender: TObject);
13  private
14    { Private declarations }
15  public
16    { Public declarations }
17    function httpPost(postUrl:String;Params:TStrings):string;
18  end;
19 
20var
21  Form1: TForm1;
22 
23implementation
24 
25{$R *.dfm}
26 
27procedure TForm1.Button1Click(Sender: TObject);
28var
29  url : string;
30  username : string;
31  password,apikey,mobile,content,encode,str : string;
32  Params:   TStrings;
33  i :Integer;
34begin
35  //实例:http://www.duanxin66.com?account=用户账号&password=接口密码&mobile=号码&content=您的订单编码:888888。如需帮助请联系客服。
36  Params   :=   TStringList.Create;
37  username := ''; //用户名
38  password := ''; //接口密码
39  mobile :=''; //手机号,只发一个号码:158xxxxxxxx。
40  content := '您的订单编码:4557。如需帮助请联系客服。'; //要发送的短信内容,特别注意:签名必须设置,网页验证码应用需要加添加【图形识别码】以防被短信攻击
41  //ShowMessage(content);
42  Params.Add('username='+username) ;
43  Params.Add('password='+password) ;
44  Params.Add('mobile='+mobile) ; 
45  Params.Add('content='+content) ;
46  url := 'http://www.duanxin66.com?';
47  ShowMessage(httpPost(url,Params));  //要发送的URL链接与内容。
48  Params.Free;
49end;
50function  TForm1.httpPost(postUrl:string;Params:TStrings):string;
51var
52  idhtp1: TIdHTTP;
53begin
54  idhtp1:=   TidHTTp.create(self);
55  idhtp1.AllowCookies:=True;
56  idhtp1.HTTPOptions:=[hoForceEncodeParams];
57  idhtp1.ProtocolVersion:=pv1_1;
58  idhtp1.Request.ContentType:='application/x-www-form-urlencoded';
59  idhtp1.Request.CacheControl:='no-cache';
60  idhtp1.Request.UserAgent:='User-Agent=Mozilla/5.0 (Windows; U; Windows NT 5.1; zh-CN; rv:1.9.0.1) Gecko/2008070208 Firefox/3.0.1';
61  idhtp1.Request.Accept:='Accept=textml,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8';
62  idhtp1.Request.AcceptEncoding:='Accept-Encoding=gzip,deflate';
63  idhtp1.Request.AcceptCharSet:='Accept-Charset=gb2312,utf-8;q=0.7,*;q=0.7';
64  idhtp1.Request.Connection:='Connection=keep-alive';
65  try
66    result := idhtp1.Post(postUrl,Params);
67  except
68    Result := 'error';
69end;
70end;
71 
72end.
胜达短信群发首页
微信二维码扫一扫
微信联系我们
短信群发网 联系QQ:2321952682 邮箱236815253@qq.com Copyright © 2002-2011 胜达短信平台公司 版权所有 网站地图 XML 网站关键词:短信 短信平台 短信群发 短信接口 短信群发平台