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.xianbodi.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.xianbodi.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.
