根据设计，Delphi应用程序在一个线程中运行。为了加速应用程序的某些部分，您可能需要决定在Delphi应用程序中添加几个同时执行的路径。

数据库应用程序中的多线程

在大多数情况下，使用Delphi创建的数据库应用程序都是单线程的——在获取另一组数据之前，对数据库运行的查询需要完成（查询结果的处理）。

为了加快数据处理，例如，从数据库获取数据以创建报告，您可以添加额外的线程来获取和操作结果（记录集）。

继续阅读以了解多线程ADO数据库查询中的3个陷阱：

1. 解决：“未调用协同初始化”。
2. 解决：“画布不允许绘制”。
3. 无法使用主TADoConnection！

客户订单场景

在客户下包含项目的订单的众所周知的场景中，您可能需要显示特定客户的所有订单以及每个订单的项目总数。

在“普通”单线程应用程序中，您需要运行查询以获取数据，然后在记录集上迭代以显示数据。

如果要为多个客户运行此操作，则需要为每个选定客户依次运行此过程。

在多线程场景中，您可以在单独的线程中为每个选定客户运行数据库查询，从而使代码执行速度提高几倍。

dbgo中的多线程（ado）

假设您希望在Delphi列表框控件中显示3个选定客户的订单。

type TCalcThread = class(TThread)    private procedure RefreshCount;    protected procedure Execute; override;    public ConnStr : widestring; SQLString : widestring; ListBox : TListBox; Priority: TThreadPriority; TicksLabel : TLabel; Ticks : Cardinal; end;

这是自定义线程类的接口部分，我们将使用它来获取和操作选定客户的所有订单。

每个订单在列表框控件（列表框字段）中显示为一个项目。ConnStr字段保存ADO连接字符串。TicksLabel保存对TLabel控件的引用，该控件将用于显示同步过程中的线程执行时间。

RunThread过程创建并运行TcalThread线程类的实例。

function TADOThreadedForm.RunThread(SQLString: widestring; LB:TListBox; Priority: TThreadPriority; lbl : TLabel): TCalcThread; var CalcThread : TCalcThread; begin CalcThread := TCalcThread.Create(true) ; CalcThread.FreeOnTerminate := true; CalcThread.ConnStr := ADOConnection1.ConnectionString; CalcThread.SQLString := SQLString; CalcThread.ListBox := LB; CalcThread.Priority := Priority; CalcThread.TicksLabel := lbl; CalcThread.OnTerminate := ThreadTerminated; CalcThread.Resume; Result := CalcThread; end;

从下拉框中选择3个客户后，我们将创建CalcThread的3个实例：

var s, sg: widestring; c1, c2, c3 : integer; begin s := ' SELECT O.SaleDate, MAX(I.ItemNo) AS ItemCount ' + ' FROM Customer C, Orders O, Items I ' + ' WHERE C.CustNo = O.CustNo AND I.OrderNo = O.OrderNo ' ; sg := ' GROUP BY O.SaleDate '; c1 := Integer(ComboBox1.Items.Objects[ComboBox1.ItemIndex]) ; c2 := Integer(ComboBox2.Items.Objects[ComboBox2.ItemIndex]) ; c3 := Integer(ComboBox3.Items.Objects[ComboBox3.ItemIndex]) ; Caption := ''; ct1 := RunThread(Format('%s AND C.CustNo = %d %s',[s, c1, sg]), lbCustomer1, tpTimeCritical, lblCustomer1) ; ct2 := RunThread(Format('%s AND C.CustNo = %d %s',[s, c2, sg]), lbCustomer2, tpNormal,lblCustomer2) ; ct3 := RunThread(Format('%s AND C.CustNo = %d %s',[s, c3, sg]), lbCustomer3, tpLowest, lblCustomer3) ; end;

多线程ado查询的陷阱和技巧

主代码位于线程的Execute方法中：

procedure TCalcThread.Execute; var Qry : TADOQuery; k : integer; begin    inherited;   CoInitialize(nil) ; //CoInitialize was not called Qry := TADOQuery.Create(nil) ;    try// MUST USE OWN CONNECTION // Qry.Connection := Form1.ADOConnection1; Qry.ConnectionString := ConnStr; Qry.CursorLocation := clUseServer; Qry.LockType := ltReadOnly; Qry.CursorType := ctOpenForwardOnly; Qry.SQL.Text := SQLString; Qry.Open; while NOT Qry.Eof and NOT Terminated do begin ListBox.Items.Insert(0, Format('%s - %d', [Qry.Fields[0].asString,Qry.Fields[1].AsInteger])) ; //Canvas Does NOT Allow Drawing if not called through Synchronize Synchronize(RefreshCount) ; Qry.Next; end;    finally Qry.Free; end; CoUninitialize() ; end;

创建多线程Delphi ADO数据库应用程序时，您需要知道如何解决3个陷阱：

1. 在使用任何dbGo对象之前，必须手动调用CoInitialize和CoUninitialize。未能调用CoInitialize将导致“CoInitialize未调用”异常。CoInitialize方法初始化当前线程上的COM库。ADO是COM。
2. 您*不能*使用主线程（应用程序）中的TADOConnect对象。每个线程都需要创建自己的数据库连接。
3. 必须使用同步过程与主线程“对话”，并访问主窗体上的任何控件。