DELPHI跨平台的临界替代者

在WINDOWS里面使用临界来保护多线程需要访问的共享对象，现在，DELPHI有了新的跨平台临界保护者--System.TMonitor

代码演示如下：

FConnections := TObjectDictionary<TIdTCPConnection,TDSTCPChannel>.Create;

。。。

procedure TCMServerForm.CMServerTransportDisconnectEvent(Event: TDSTCPDisconnectEventObject);
var
Index: Integer;
begin
if (FConnections = nil) or (Event.Connection = nil) then
Exit;

//进入临界保护
System.TMonitor.Enter(FConnections);
try
FConnections.Remove(TIdTCPConnection(Event.Connection));

TThread.Synchronize(nil, procedure
begin
//update the connection list box, removing the connection that was just closed
Index := ConnectionsList.Items.IndexOfObject(Event.Connection);
if Index > -1 then
begin
ConnectionsList.Items.Delete(Index);

if ConnectionsList.SelCount = 0 then
SessionIdList.ClearSelection;
end;
end);
finally

// 终止临界保护
System.TMonitor.Exit(FConnections);
end;
end;

转载于:https://www.cnblogs.com/hnxxcxg/p/5670707.html

DELPHI跨平台的临界替代者相关推荐

关于 Delphi跨平台开发Android调用 JNI JAR java 的说明和注意事项
2Pascal-新时代的Pascal-关于调用 JNI JAR java 的说明和注意事项,调用第靠写不下了 - Powered by Discuz! 关于调用 JNI JAR 的说明和注意事项 ...
利用Delphi-cross-socket 库提升kbmmw 跨平台开发
以前我写过了,通过httpsys 提升windows 下,delphi 多层应用.随着delphi 10.2 对linux 的支持,很多人也想在linux 下发布kbmmw 服务器,但是官方仅通过i ...
咏南LINUX中间件
咏南LINUX中间件什么是跨平台? DELPHI跨平台已经不是停留在理论,而是可以实用了. 同一套中间件既能在WINDOWS服务器上面部署,又可以在LINUX服务器上面部署. 而做到这一切,只需要一 ...
【翻译】.NET 5 Preview 1 发布
.NET 5 Preview 1 发布去年年底,我们发布了.NET Core 3.0和3.1.这些版本添加了桌面应用程序模型Windows Forms(WinForms)和WPF,ASP.NET B ...
ActiveMQ消息队列介绍（转）
ActiveMQ是一个开源兼容Java Message Service (JMS) 1.1面向消息的中件间. 来自Apache Software Foundation. ActiveMQ提供松耦合的应 ...
如何在Android上访问iCloud服务
Apple users are able to store their notes, pictures, contacts, and settings in their iCloud storage ...
提高软件执行效率的几条原则
似乎有很多朋友对于我说的"避免使用WITH语句"持反对意见.理由是With语句可以提高执行效率. 的确With是可以稍微提高一些执行效率,但是这是以破坏代码可读性的代价来 ...
揭秘FMX进度条样式修改
Delphi跨平台开发中的FMX样式处理给了我们UI设计的很多便捷.在很多年前使用Delphi开发VCL应用时,我们都期盼各种各样的皮肤控件,他能给我们带来新颖.夺目.优雅的程序外观.在现今的FMX应 ...
架构 | 前后端分离与前端工程化
文章目录前言前后端分离核心对开发行为和职责的直接影响前端工程化本地代理与ngix反向代理 node是什么,有什么特点,与前后端分离,前端工程化的关系 node,npm,package.js ...

DELPHI跨平台的临界替代者

DELPHI跨平台的临界替代者相关推荐

最新文章

热门文章