发送手机短信代码

{发送手机短信}
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;