![](/img/trans.png)
[英]Delphi Rio 10.3.3 with Indy 10.6.2.5366 TIdTCPServer thread problem
[英]Multicasting with TIdTCPServer (Indy 9 + Delphi 7)
我知道我在下面描述的并不是技术上的多播,但我对我想要做的事情缺乏更好的描述。
我目前有一个带有OnExecute的TIdTCPServer,它读取传入的消息,将响应消息生成到线程安全队列中,然后调用一个函数来逐步执行队列并将消息发送回客户端。 这部分代码正在运行,并允许客户端请求数据集。
当客户端更改服务器上的对象时,我希望所有客户端都收到有关此更改的通知。 代码当前将通知消息添加到每个连接的每个队列。 我的问题是OnExecute没有循环,因此在服务器从客户端收到消息之前,不会调用在队列上发送消息的调用。
有没有办法让OnExecute循环? 或者为连接触发OnExecute的方法我知道我已将消息排队了?
我的过程TWinSocketSession对象具有对连接的引用,并包含传出消息Queue的代码。 它还有一个名为SendMessages的过程,它遍历队列并调用Connection.Write。 下面是我的OnExecute程序。
procedure TWinServerSession.IdTCPServer1Execute(AThread: TIdPeerThread);
Var
i: Integer;
strMessage: String;
begin
//find the Socket Session for connection
for i := 0 to m_usClientCount do
begin
if m_mWinSocketSession[i]<>Nil then
if ( m_mWinSocketSession[i].Connection = Athread.Connection ) then break;
end;
//read the message
strMessage := m_mWinSocketSession[i].Connection.ReadLn(#0,25,-1);
//parse the message and populate the Queue with outgoing messages
m_mWinSocketSession[i].ParseInString(strMessage);
//send all of the outgoing messages
m_mWinSocketSession[i].SendMessages;
end;
是的, TIdTCPServer.OnExecute
事件是一个循环事件。 入站消息到达时不会触发它。 无论连接实际在做什么,它都会在连续的生命周期内以连续循环方式触发。 它是事件处理程序根据需要实现阻塞行为的责任。 您的代码调用了ReadLn()
并指定了25ms的超时,因此它不会阻止事件处理程序及时退出,因此它可以立即重新输入。 如果阻止事件处理程序及时退出,那么代码中的其他地方就会出现死锁问题。
不过,我会建议以下更改:
procedure TWinServerSession.IdTCPServer1Connect(AThread: TIdPeerThread);
var
i: Integer;
begin
for i := 0 to m_usClientCount do
begin
if (m_mWinSocketSession[i] = nil) then
begin
m_mWinSocketSession[i] := TWinSocketSession.Create;
m_mWinSocketSession[i].Connection := AThread.Connection;
// for easier access in the other events...
AThread.Data := m_mWinSocketSession[i];
Exit;
end;
end;
// cannot start a new session
AThread.Connection.Disconnect;
end;
procedure TWinServerSession.IdTCPServer1Disconnect(AThread: TIdPeerThread);
var
session: TWinSocketSession;
i: Integer;
begin
session := TWinSocketSession(AThread.Data);
AThread.Data := nil;
if session <> nil then
begin
for i := 0 to m_usClientCount do
begin
if m_mWinSocketSession[i] = session then
begin
m_mWinSocketSession[i] := nil;
Break;
end;
end;
session.Free;
end;
end;
procedure TWinServerSession.IdTCPServer1Execute(AThread: TIdPeerThread);
var
session: TWinSocketSession;
strMessage: String;
begin
session := TWinSocketSession(AThread.Data);
//read a message
strMessage := AThread.Connection.ReadLn(#0, 25, -1);
if not AThread.Connection.ReadLnTimedOut then
begin
//parse the message and populate the Queue with outgoing messages
session.ParseInString(strMessage);
end;
//send all of the outgoing messages
session.SendMessages;
end;
如果您可以完全消除m_mWinSocketSession列表并且只是在OnConnect
事件中将新队列直接分配给Connection,那么这将更好。 当客户端断开连接时, OnDisconnect
事件可以释放队列。
procedure TWinServerSession.IdTCPServer1Connect(AThread: TIdPeerThread);
begin
AThread.Data := TWinSocketSession.Create;
TWinSocketSession(AThread.Data).Connection := AThread.Connection;
end;
procedure TWinServerSession.IdTCPServer1Disconnect(AThread: TIdPeerThread);
begin
session := TWinSocketSession(AThread.Data);
AThread.Data := nil;
session.Free;
end;
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.