國內短信接口權威運營服務商網    電信全網移動信息服務許可證:B2-20150469

7x24小時服務熱線:

400-113-0919

Delphi接口示例

var
URL:OleVariant;
POST:OleVariant;
target:OleVariant;
flag:OleVariant;
header:OleVariant;
PostStr,ipass,iname,imob,itext:String;
PostLen,Index:Integer;
begin
//用戶名
iname := 'test';
ipass := 'test';
//密碼
ipass := StrToMD5(ipass+iname);
imob := '15900499999';
itext := '它負責對乘客卡的合法性進行檢驗,并對合法的乘客卡進行扣款收費......';
URL := 'http://api.sms.cn/sms/?ac=send&uid=' + iname + '&pwd= ' + ipass + ' &mobile= ' + imob + ' &content=' + itext;
//URL:='http://api.sms.cn/sms/?ac=send&uid=test&pwd=E10ADC3949BA59ABBE56E057F20F883E&mobile=15900499999&content=你好,你的驗證碼是4654【云信使】' ;
PostStr:='Login.Token1=04538&Login.Token2=*******&Submit=%B5%C7+%C2%BC';
target:=NULL;
flag:=0;
PostLen := Length(PostStr);
// 用構建 varByte 類型的 Variant array
Post := VarArrayCreate([0, (PostLen - 1)], varByte);
// 填充數據
for Index := 0 to PostLen - 1 do
Post[Index] := Ord(PostStr[Index + 1]);
// 填補頭部數據注意:application
Header := 'Content-Type: application/x-www-form-urlencoded';

WebBrowser1.Navigate2(URL,flag,target,POST,Header);
while WebBrowser1.Busy=True do
Application.ProcessMessages ;
if WebBrowser1.ReadyState <>READYSTATE_COMPLETE then
Memo1.Text :=WebBrowser1.OleObject.Document.all.tags('HTML').Item(0).outerHTML
else
Memo1.Text:='頁面加載失敗';

 


Delphi短信接口
宁夏11选5开奖分布走势图 梦之城之娱乐 九鼎娱乐电玩城 安徽快3开奖结果今天80 广东体彩十一选五漏洞 北京快三走势图 股市k线图解 股票平台哪个好 黑龙江36选7#1 黄金价格为什么暴跌 白小姐精选四肖必中一肖