delphi用GET方法向WEB提交数据。谢谢

[sunhonglei2004]

URL地址：http://127.0.0.1/get.asp?a=123
返回数据：123456

如何用DELPHI做一个程序，将123提交到这个URL上，并显示出返回的数据
请各位高手给出一个最简单的例子就可以了
小弟是新手，如果复杂了，也看不懂。

[bdmh]

idhttp
http://blog.csdn.net/flashrhx2007/archive/2008/08/28/2843977.aspx

[sunhonglei2004]

大侠，用GET方法可以吗？

[hongqi162]

uese Comobj;

procedure Upload;
var
  url:string;
  xmlHttp:Olevariant;
  responseText:Widestring;
begin
  CoInitialize(nil);
  url:='http://127.0.0.1/get.asp?a=123';

      try
        xmlHttp:=CreateOleObject('Msxml2.XMLHTTP');
        xmlHttp.open('GET',url,false);
        xmlHttp.send();
        responseText:=xmlHttp.responseText;
        if xmlHttp.status='200' then
        begin
          showmessage(responseText);
        end;
      finally
        xmlHttp:= unAssigned;
      end;
  CoUninitialize;
end;

[sunhonglei2004]

hongqi162

----
不好意思，我可能没有说明白，a=123，123是做为参数提交的，它是从edit1.text当中取到的，然后我一点按钮，就把当中取的值给提交上去

[wintergoes]

var
  repStr: string;
begin
  try
    //repstr就是返回数据
    repstr := idhttp1.get('http://127.0.0.1/get.asp?a=' + edit1.text);
  except

  end;
end;

[sunhonglei2004]

idhttp1

这个是个单独的控件吗