Delphi：如何锁定“Socket.Write”并解锁？

发布于 2024-12-20 16:41:48 字数 350 浏览 1 评论 0原文

我有几个客户端，它们写入一个套接字（而不是端口），当它们一起写入时，我收到垃圾，来自所有客户端的所有数据都被合并。

所有客户端都在线程中的同一个程序中。

我需要锁定 write()

ASocket.Connection.Socket.LOCK; // need to be thread safe
ASocket.Connection.Socket.Write(buf);
ASocket.Connection.Socket.UNLOCK; // need to be thread safe

我该怎么做？

谢谢。

德尔福 2010、印地 10、Win7

原文

I have several clients, who writes to one socket (not port), when they write together, I receive the garbage, all data from all clients are merged.

all clients are in the same program in Threads.

I need to lock write()

ASocket.Connection.Socket.LOCK; // need to be thread safe
ASocket.Connection.Socket.Write(buf);
ASocket.Connection.Socket.UNLOCK; // need to be thread safe

How can I do it ?

Thanks.

Delphi 2010, Indy 10, Win7

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

九命猫 2024-12-27 16:41:48

您可以使用TCriticalSection（SyncObjs单元）：将Write放在Enter和Leave之间>：

CriticalSection.Enter;
try
  ASocket.Connection.Socket.Write(buf);
finally
  CriticalSection.Leave;
end;

方法 Acquire 和 Release 执行相同的操作（doc）。重要提示：如果您在代码的多个点写入套接字，则必须使用同一个对象（我在上例中称为 CriticalSection 的对象）。

You can use TCriticalSection (SyncObjs unit): put the Write between Enter and Leave:

CriticalSection.Enter;
try
  ASocket.Connection.Socket.Write(buf);
finally
  CriticalSection.Leave;
end;

The methods Acquire and Release do the same (doc). Important: if you write to the socket at multiple points of your code, you must use the same object (the one I called CriticalSection in the above example).

回复收藏 0 原文

~没有更多了~