如何调用一个http接口！(100分)

有一个HTTP的接口地址，我需要加上一些参数调用它，但是在程序里面如何能调用http接口啊，就是相当于在浏览器中执行一下这个接口地址。
菜鸟请教高手。。。

ShellExecute(Handle, 'OPEN', PChar('www.delphibbs.com'), nil, nil, sw_shownormal);
或者
uses ComObj;

procedure TForm1.Button1Click(Sender: TObject);
procedure OpenInIE(aURL: string); //need uses ComObj;
var
IE : Variant;
begin
IE := CreateOleObject('InternetExplorer.Application');
IE.Visible := true;
IE.Navigate(aURL);
end;
begin
OpenInIE('www.delphibbs.com');
end;

str:=idhttp1.get('http://地址');
http接口地址是http文件吧.

如果是web service就用web services导入一下接口了.

babibean的方法是要自动打开IE吧，但是如果我不想打开IE怎么办呢？

调用的接口是这样的http://1.2.3.4/servlet/test?a=1&b=2

这里面a和b都是自己填的。

不知道怎么调。。。

帮帮忙啊。。。

procedure TF_main.SendData(gcmd: string; gfrom: string; gto: string; gkeyname: string; gcenteraddr: string);
var
Http: TIdHttp;
URL: string;
posint: integer;
begin
Http := TIdHttp.Create(nil);
try
Http.HandleRedirects := true;
Http.ReadTimeout := 0;
Http.Request.ContentType := 'application/x-www-form-urlencoded';
if gcmd = 'bl' then
URL := 'http://......?g_cmd=' + gcmd + #38 + 'g_keyname=' + gkeyname + #38 + 'g_pnid=050820';
try
ww := Http.Get(URL);
except
ww := '';
end;
posint := pos('<?xml', ww);
if posint > 0 then
ww := copy(ww, posint, maxint);
finally
Http.free;
end;
end;

楼主说的接口应该指的是 web service，请查阅相关帮助和Demo

用http控件搞定
IdHTTP1
with AdoQuery1 do
begin
Close;
Sql.Clear;
Sql.Add('select top 1 * from tbl_nm85http where status=0');
Open;
if not eof then
begin
id:=Fieldbyname('id').AsString;
url:=Fieldbyname('httpurl').AsString;
try
tmp:=IdHTTP1.Get(url);
Memo2.Lines.Add(url+'->'+tmp);

学习一下。