发送手机短信代码
来源:互联网 发布:淘宝网话费充值中心 编辑:程序博客网 时间:2024/04/27 13:24
{发送手机短信}
function SendMobileMessage(telNum, msgContent: AnsiString):Boolean;
var
idHTTP: TIdHTTP;
postStream: TStringStream;
content,str: AnsiString;
begin
idHTTP := TIdHTTP.Create(nil);
postStream := TStringStream.Create('', TEncoding.UTF8);
try
try
{账号zkzb=zhongkuang123}
{协议包头定义}
idHTTP.Request.ContentType := 'application/x-www-form-urlencoded'; {定义发送mime类型}
idHTTP.HandleRedirects := True; {允许重定向,因为这个站点会发生重定向 }
idHTTP.Request.Connection := 'Keep-Alive';
idHTTP.Request.UserAgent := 'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 2.0.50727; .NET CLR 3.0.04506.648; .NET CLR 3.5.21022)';
content := 'http://api.smsbao.com/sms';
str := '?u=' + ( 'amwgaii' ) +
'&p=' + ( md5jm.MD5Print( MD5String( 'amwgaii' ) ) )+
'&m=' + ( telNum )+
'&c=' + TNetEncoding.URL.Encode( string( msgContent ) );
str := content + str;
IdHTTP.get(str, postStream);
Result :=True;
except
Result :=False;
end;
finally
idHTTP.Free;
postStream.Free;
end;
end;
function SendMobileMessage(telNum, msgContent: AnsiString):Boolean;
var
idHTTP: TIdHTTP;
postStream: TStringStream;
content,str: AnsiString;
begin
idHTTP := TIdHTTP.Create(nil);
postStream := TStringStream.Create('', TEncoding.UTF8);
try
try
{账号zkzb=zhongkuang123}
{协议包头定义}
idHTTP.Request.ContentType := 'application/x-www-form-urlencoded'; {定义发送mime类型}
idHTTP.HandleRedirects := True; {允许重定向,因为这个站点会发生重定向 }
idHTTP.Request.Connection := 'Keep-Alive';
idHTTP.Request.UserAgent := 'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 2.0.50727; .NET CLR 3.0.04506.648; .NET CLR 3.5.21022)';
content := 'http://api.smsbao.com/sms';
str := '?u=' + ( 'amwgaii' ) +
'&p=' + ( md5jm.MD5Print( MD5String( 'amwgaii' ) ) )+
'&m=' + ( telNum )+
'&c=' + TNetEncoding.URL.Encode( string( msgContent ) );
str := content + str;
IdHTTP.get(str, postStream);
Result :=True;
except
Result :=False;
end;
finally
idHTTP.Free;
postStream.Free;
end;
end;
阅读全文
0 0
- 发送手机短信代码
- 网上手机短信发送代码网上手机短信发送代码
- 手机短信发送
- 通过PC发送手机短信
- 使用J2ME发送手机短信
- C#发送手机短信
- 通过at发送手机短信
- 超级终端发送手机短信
- php 发送手机短信
- 简单手机短信发送软件
- 手机短信发送简单讲义
- JAVA发送手机短信
- java发送手机短信
- JAVA发送手机短信
- java发送手机短信
- 用php发送手机短信
- 利用java 发送手机短信
- AT指令 发送手机短信
- EventBus 3.0(三)
- MySQL 使用while语句向数据表中批量插入数据
- week 2
- spark清洗离线数据
- 6月13日--元组传参、pageobject
- 发送手机短信代码
- 快速排序 快速搞定
- Log4 日志配置文件
- SSM环境搭建
- C 排序算法(一)
- cookie与session的区别
- 【正一专栏】识时务者为俊杰——致敬杜兰特
- mitmproxy移动端代理抓包(一)
- 2017 春季最酷、最受欢迎的 30 个 Android 库,快收藏!