indy中的IdTcpServer控件如何绑定ip地址？ 急问!

Question

要在程序运行后读取一个edit1的内容(即ip地址),然后把IdTcpServer绑定为该ip地址,然后绑定监听端口(edit2的内容),请问各位朋友程序要怎么写啊?   我是实在没有参考的程序,而且刚接触indy控件  多谢各位了.....

Answer 1

你不用绑定啊，只要设定了端口，active设为true就可以监听了，在OnConnect事件里读取AThread.Connection.Socket.Binding.PeerIP就知道谁连上来了。在OnExcute事件设定通讯信号和回应信号，就是自己的通讯机制。

Answer 2

TCPServer.Active := false;
TCPServer.Bindings.Clear;
Binding := TCPServer.Bindings.Add;
Binding.IP :=  GStack.LocalAddress;
Binding.Port := 8001;
TCPServer.Active := true;