【发布时间】：2013-01-29 16:39:33
【问题描述】：
我最近玩了一个关于 INDY10 TCP/IP 服务器基本功能的演示 opensource 项目，偶然发现了 INDY 的内部多任务实现及其与 VCL 组件的交互问题。由于 SO 中有许多关于该主题的不同主题，我决定制作一个简单的客户端-服务器应用程序并测试一些建议的解决方案和方法，至少是我正确理解的那些。下面我想总结和回顾一下之前在 SO 上建议的方法，如果可能的话，请听听您对该主题的专家意见。
问题：封装 VCL 以在基于 indy10 的客户端/服务器应用程序中实现线程安全使用。
开发环境描述： Delphi 版本：Delphi® XE2 版本 16.0 印地版本 10.5.8.0 操作系统Windows 7（32 位）
如文章中所述（[VCL 线程安全吗？]）（抱歉，我没有足够的声誉来发布链接）当希望在多线程中使用任何类型的 VCL 组件时应特别小心（多任务）应用程序。 VCL 不是线程安全的，但可以以线程安全的方式使用！ 如何和为什么通常取决于手头的应用程序，但可以尝试概括一下并提出某种通用方法来解决这个问题。首先，与 INDY10 的情况一样，不需要显式地并行化他的代码，即创建和执行多个线程，以使 VCL 暴露于死锁和数据相互依赖关系。
在每个 sclient-server 应用程序中，服务器必须能够同时处理多个请求，因此 INDY10 内部自然地实现了此功能。这意味着 INDY10 类集负责在内部管理程序的线程创建、执行和销毁过程。
我们的代码暴露于 INDY10 内部工作并因此可能发生线程冲突的最明显的地方是 IdTCPServerExecute（TIdTCPServer onExecute 事件）方法。
当然，INDY10 提供了确保线程安全的程序流的类（包装器），但由于我没有设法对它们的应用和用法进行足够的解释，我更喜欢定制的方法。
下面我总结了一种方法（建议的技术基于我在 SO How to use TIdThreadSafe class from Indy10 中找到的先前评论）尝试（并且可能成功）处理此问题：
我在下面解决的问题是：如何使特定类“MyClass”ThreadSafe？
主要思想是创建一种封装“MyClass”的包装类，并按照先进先出原则将尝试访问它的线程排队。用于同步的底层对象是 [Windows 的关键部分对象。]。
在客户端-服务器应用程序的上下文中，“MyClass”将包含我们服务器的所有线程不安全功能，因此我们将尝试确保这些过程和功能不会由多个工作线程同时执行。这自然意味着我们的代码失去了并行性，但是由于该方法很简单而且看起来很简单，因此在某些情况下这可能是一种有用的方法。
包装类实现：
constructor TThreadSafeObject<T>.Create(originalObject: T);
begin
tsObject := originalObject; // pass it already instantiated instance of MyClass
tsCriticalSection:= TCriticalSection.Create; // Critical section Object
end;
destructor TThreadSafeObject<T>.Destroy();
begin
FreeAndNil(tsObject);
FreeAndNil(tsCriticalSection);
inherited Destroy;
end;
function TThreadSafeObject<T>.Lock(): T;
begin
tsCriticalSection.Enter;
result:=tsObject;
end;
procedure TThreadSafeObject<T>.Unlock();
begin
tsCriticalSection.Leave;
end;
procedure TThreadSafeObject<T>.FreeOwnership();
begin
FreeAndNil(tsObject);
FreeAndNil(tsCriticalSection);
end;
MyClass 定义：
MyClass = class
public
procedure drawRandomBitmap(abitmap: TBitmap); //Draw Random Lines on TCanvas
function decToBin(i: LongInt): String; //convert decimal number to Bin.
procedure addLineToMemo(aLine: String; MemoFld: TMemo); // output message to TMemo
function randomColor(): TColor;
end;
用法：
由于线程按顺序执行并等待拥有关键部分当前所有权的线程完成（tsCriticalSection.Enter; 和 tsCriticalSection.Leave;），如果你想管理所有权中继，你需要一个唯一的实例TThreadSafeObject（你可以考虑使用单例模式）。所以包括：
tsMyclass:= TThreadSafeObject<MyClass>.Create(MyClass.Create);
在 Form.Create 和
tsMyclass.Destroy;
在窗体中。关闭；这里 tsMyclass 是一个 MyClass 类型的全局变量。
用法：
关于 MyClass 的使用，请尝试以下方法：
with tsMyclass.Lock do
try
addLineToMemo('MemoLine1', Memo1);
addLineToMemo('MemoLine2', Memo1);
addLineToMemo('MemoLine3', Memo1);
finally
// release ownership
tsMyclass.unlock;
end;
，其中 Memo1 是表单上 TMemo 组件的一个实例。
有了这个，我们应该确保 tsMyClass 被锁定时发生的任何事情 一次只能由一个线程执行。然而，这种方法的一个明显缺点是，由于我只有一个 tsMyclass 实例，即使一个线程正在尝试绘制例如在画布上，而另一个在备忘录上书写，第一个线程必须等待第二个线程完成，然后才能执行其工作。
我的问题是：
- 上述建议的方法是否正确？我还没有种族吗 条件还是我在代码中有一些“漏洞”，从哪里 可能发生数据冲突？
- 一般来说，如何测试线程 他/她的应用程序不安全？
我想强调的是，上述方法绝不是我自己的做法。它基本上是在2 中找到的解决方案的总结。尽管如此，我还是决定再次发帖，试图对该主题进行某种封闭，或者为建议的解决方案提供一种有效性证明。此外，正如他们所说，重复是所有知识之母。
【问题讨论】：
-
这个问题太长了，我都不知道从何说起。
标签： delphi concurrency indy