idTCPServer如何主动向idTCPClient发送信息?(50分)

  • 主题发起人 主题发起人 meilixueshan200
  • 开始时间 开始时间
M

meilixueshan200

Unregistered / Unconfirmed
GUEST, unregistred user!
idTCPServer如何主动向idTCPClient发送信息?
 
var
I:Integer;
begin
with IdTCPServer1 do
begin
with Threads.LockList do
try
for I:=Count-1 downto 0 do
begin
try
TIdPeerThread(Items).Connection.Write('testing...');
except
end;
end;
finally
Threads.UnlockList;
end;
end;
end;
 
为什么客户端放在我的机器上可以,放在其它地方就不行呢?
郁闷
 
有点小错误,将循环中的to改为downto
 
改了也不行呀
为什么客户端在我的机器上可以,在其它机器上就行???
郁闷
 
接受答案了.
 
后退
顶部