在WINDOWS里面使用臨界來保護(hù)多線程需要訪問的共享對(duì)象，現(xiàn)在，DELPHI有了新的跨平臺(tái)臨界保護(hù)者--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;

//進(jìn)入臨界保護(hù)
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

// 終止臨界保護(hù)
System.TMonitor.Exit(FConnections);
end;
end;

轉(zhuǎn)載于:https://www.cnblogs.com/hnxxcxg/p/5670707.html

總結(jié)

以上是生活随笔為你收集整理的DELPHI跨平台的临界替代者的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。