如何调用一个http接口

http://www.delphibbs.com/delphibbs/dispq.asp?lid=3375071 问题：如何调用一个http接口！ ( 积分：100, 回复：8, 阅读：65 ) 分类：Internet/TCPIP ( 版主：luyear, robertcool )
来自：silvering, 时间：2006-3-8 9:33:00, ID：3375071	[显示：小字体 | 大字体]
有一个HTTP的接口地址，我需要加上一些参数调用它，但是在程序里面如何能调用http接口啊，就是相当于在浏览器中执行一下这个接口地址。 菜鸟请教高手。。。   来自： babibean, 时间：2006-3-8 9:39:35, ID：3375074 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;   来自： jgame, 时间：2006-3-8 9:40:33, ID：3375075 str:=idhttp1.get('http://地址'); http接口地址是http文件吧. 如果是web service就用web services导入一下接口了.   来自： silvering, 时间：2006-3-8 9:52:26, ID：3375082 babibean的方法是要自动打开IE吧，但是如果我不想打开IE怎么办呢？ 调用的接口是这样的 http://1.2.3.4/servlet/test?a=1&b=2 这里面a和b都是自己填的。 不知道怎么调。。。   来自： silvering, 时间：2006-3-8 11:28:14, ID：3375222 帮帮忙啊。。。   来自： yangyang88, 时间：2006-3-8 15:49:26, ID：3375647 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;   来自： utop, 时间：2006-3-8 15:59:04, ID：3375662 楼主说的接口应该指的是 web service，请查阅相关帮助和Demo   来自： chengangsir, 时间：2006-3-8 16:00:19, ID：3375667 用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);