function TForm1.HTTPPOST1(const aurl: ansistring): ansistring;  
var  
  r: OleVariant;  
  s: ansistring;  
  ceshi,url:OleVariant;//string;  
  xmlHttp: OleVariant;  
begin  
  url:= 'http://localhost/msg/HttpBatchSendSM';  
   
   
  ceshi:='account=mytest&pswd=mytest&mobile=15988888888;&msg=【麦讯通】验证码是：123456&needstatus=false';  
   
  xmlHttp := CreateOleObject('MSXML2.XMLHTTP');  
   
  try  
    xmlHttp.open('POST',url,false);  
    xmlHttp.setRequestHeader('Content-Length', IntToStr(Length(ceshi)));  
    xmlHttp.setRequestHeader('Content-type','application/x-www-form-urlencoded');  
   
    Edit1.Text:=ceshi ;  
   
    xmlHttp.send(ceshi);  
   
    Result:=xmlHttp.ResponseText;  
  finally  
    xmlHttp:=Unassigned;  
  end;  
end;