BCB中如何调用http接口，有在线测试用例，请大家帮助！

[jotion_wh]

http://211.137.79.173:80/spservice/downtone.do?sid=100003&seq=1000032008100811130800000000&sidpwd=9B4673C4E9FA802263C1A885B04B0540&randomsessionkey=15927692424&tonecode=600902000000506382&flag=0
参数串在ie中执行后，ie地址栏返回结果如下：
http://211.137.79.173/spservice/null?
returncode=80001&randomsessionkey=15927692424&seq=1000032008100811130800000000
请问：在程序中如何调用该接口，并获取返回值。

该问题问了很久都没有人回复，希望在这里得到大家的指点，谢谢了！

[Waiting4you]

试试在TIdHTTP的OnRedirect事件里dest变量能不能收到这个地址。
如果不行的话，用TIdLogEvent连到这个IdHTTP上后直接到它的OnReceived里找，应该能找到。

[僵哥]

看一下我的blog当中的那个关于使用TClientSocket下载文件(主要是发送HTTP请求和接收信息)是否有帮助.

[柯本]

如果你只是要得到重定向的网址，可以这样：
void __fastcall TForm1::Button1Click(TObject *Sender)
{
try
{
IdHTTP1->Get("http://211.137.79.173:80/spservice/downtone.do?sid=100003&seq=1000032008100811130800000000&sidpwd=9B4673C4E9FA802263C1A885B04B0540&randomsessionkey=15927692424&tonecode=600902000000506382&flag=0");
}
catch(...)
{
}
}
//---------------------------------------------------------------------------

void __fastcall TForm1::IdHTTP1Redirect(TObject *Sender, AnsiString &dest,
int &NumRedirect, bool &Handled)
{
Memo1->Lines->Add(dest); //dest 就是ie地址栏返回结果
}

[yuanreid]

我试了，这个方法好用。

[fangsp]

挺好的 帮顶一个