Question

delphi IdTCPServer1如何向idtcpclient 发送汉字

如何 在BUTTON1.CLICK事件中实现,IdTCPServer1如何向idtcpclient 发送汉字,请给出具体代码,谢
另外idtcpclient 如何能实时接收来自SERVER发来的字符呢？最好提供一下代码

Answer 1

1.server回复
在procedure TfMain.IdTCPServerExecute(AThread: TIdPeerThread);事件中写
AThread.Connection.Write('汉字');

2.client接收
idtcpclient.readln()

追问

1.server
兄弟，我是要在BUTTON事件下发送汉字给客户端，不是在SERVER接收线程里
2。client接收
要实时（不定时）能接收服务器发来的汉字

追答

噢，不好意思，我没做过单独发送的，
1.我想如果可以实现的话，server应该绑定相关的client的ip和port，然后通过方法来发送；
2.client实时接收，定时去inbuffer:=client.ReadFromStack(false,100,false)，如果infuffer有东西就取出来吧