可以试试用delphi的NMHTTP控件,代码可能要改改
var callstr:string;
begin
callstr:='http://tips.gxspace.com/cgi-bin/tips/webpaging?stnid='+callto.Text+'&pageno='+tonumber.Text;
case RadioGroup1.ItemIndex of
0:callstr:=callstr+'&pagertype=C';
1:callstr:=callstr+'&pagertype=D';
2:callstr:=callstr+'&pagertype=E';
end;
callstr:=callstr+'&firstname='+firstname.text;
case RadioGroup2.ItemIndex of
0:callstr:=callstr+'&title=先生';
1:callstr:=callstr+'&title=小姐';
end;
callstr:=callstr+'&surname='+surname.text;
callstr:=callstr+'&passwd=null';
callstr:=callstr+'&msg='+callmsg.Text+'&submit=立刻呼出&B1=发送寻呼';
NMHTTP1.InputFileMode := FALSE;
NMHTTP1.OutputFileMode := FALSE;
NMHTTP1.ReportLevel := Status_Basic;
If ifuseproxy.Checked then
begin
NMHTTP1.Proxy := Edit1.Text;
NMHTTP1.ProxyPort := StrToInt(Edit2.Text);
end;
NMHTTP1.Get(callstr);
end;