调用http://smsinter.sina.com.cn/ws/smswebservice0101.wsdl这个webservices,如果是d7可直接调用,如果是d6,要打sp2补丁,利用webservice组件就可实现,下面是源码:
procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.Text:=getsmswebservicesoapport.sendXml(edit1.Text,edit2.Text,edit3.Text,edit4.Text,edit5.Text,'text');
end;
这是发送事件的源码