核心提示：查询结果自己解析：procedure TForm1.Button1Click(Sender: TObject);var SL:TStringList;begin SL:=TStringList.Cre...
查询结果自己解析：
procedure TForm1.Button1Click(Sender: TObject);
var
SL:TStringList;
begin
SL:=TStringList.Create;
try
SL.Add('action=mobile');
SL.Add('mobile=1388080');
IdHTTP1.Request.ContentLength:=Length(SL.Text);
IdHTTP1.Request.ContentType:='application/x-www-form-urlencoded';
Memo1.Text:=IdHTTP1.Post('http://www.ip138.com:8080/search.asp',SL);
finally
if Assigned(SL) then FreeAndNil(SL);
end;
end;
