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

2楼: 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; 如最好用的进销存软件

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

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

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

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

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

不知道怎么调。。。

5楼: 帮帮忙啊。。。

6楼: 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;

仓库管理软件版7楼: 楼主说的接口应该指的是 web service，请查阅相关帮助和Demo

8楼: 用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);

9楼: 学习一下。