Indy的IdUDPServer的Bindings如何自己手动释放

[lbg]

我是根据ini文件来绑定IP的,代码如下
//根据ini文件的Bindings内容来绑定IP和端口
//inifile:
//[Bindings]
//ip= port
//udps是TIdUDPServer
TStrings *ips=new TStringList();
TIniFile* pif = new TIniFile(ExtractFilePath(Application->ExeName )+"option.ini");
pif->ReadSection("Bindings",ips);;
udps->DefaultPort=0;
for(int i=0;i<ips->Count;++i)
{
TIdSocketHandle *had=new TIdSocketHandle(udps->Bindings);
had->IP=ips->Strings[i] ;
had->Port=pif->ReadInteger("Bindings",ips->Strings[i],7515);
if(had->IP!="") udps->Bindings->Add();
}
delete pif;
delete ips;
udps->Active =true;


释放的时候是这样的:
for(int i=0;i<udps->Bindings->Count;++i)
{
if(udps->Bindings->Items[i]->IP!="")
{
udps->Bindings->Items[i]->CloseSocket(true);
}

}

udps->Bindings->Clear() ;
udps->Active =false;

这样释放有问题,请高手提示

[lbg]

帮帮忙啊

[lbg]

http://blog.codelphi.com/kingecg/archive/2004/04/30/7050.aspx
里面有人说,IdUDP不能动态绑定???????

[myy]

Bindings是不需要自己手动释放的，看看帮助就知道了，
它继承自VCL 的 TOwnedCollection，你只管Add,Delete...Bindings的项没关系，
最后也会自动随IdUDPServer释放而释放每个项。

[constantine]

我没有自己释放过，闪人

[lbg]

我在设计时候Binding多个地址是没有问题的,如果是动态绑定IP,FORM关闭的时候就出问题,怎么办啊?

[lbg]

但是我如果不释放,form关闭的时候就出错

[lbg]

怎么没有人帮帮我啊

[lbg]

我上面的代码好像没有成功绑定IP和端口

[myy]

老大，应该这样：
...
udps->Bindings->Clear();
TIdSocketHandle *had=udps->Bindings->Add();
had->IP = ips->Strings[i] ;
had->Port = pif->ReadInteger("Bindings",ips->Strings[i],7515);
...


....
//后面也不用手工去释放每个TIdSocketHandle

[lbg]

myy你上面的代码好像也不能绑定啊,用了你的代码,用netstat-na,只看到UPD 0.0.0.0 有个7515的端口,127.0.0.1没有,我的网卡IP也没有.

[myy]

我只是象征性的写，你用循环加了吗？

[lbg]

不好意思,myy,这几天忙了,我试了你的代码,是循环加了的,但是,没有绑定
是不是indy的问题?我在http://blog.codelphi.com/kingecg/archive/2004/04/30/7050.aspx
里面有人说,IdUDP不能动态绑定???????