给网页中一个text赋值,然后按他的submit按钮

Question

http://www.k369.com/zy/hmcx.htm
在delphi中edit中输入1311225然后点击确定,然后帮查询后得到的http://www.imobile.com.cn/simcard.php里面的数据放在memo中

Answer 1

创建一个idhttp控件,调用get方法到http://www.imobile.com.cn/simcard.php?simcard=1311225procedure TForm1.Button1Click(Sender: TObject);
var
  tempstr:string;
begin
  idhttp1.Host:='www.imobile.com.cn';
  idhttp1.Port:=80;
  tempstr:=idhttp1.Get('http://www.imobile.com.cn/simcard.php?simcard=1311225');
  memo1.Lines.Add(tempstr);
end;