IdHTTPserver：ADOConnectionを共有する

Question

私は、TIdHTTPServerを使用して簡単なIndy Webサーバーを作成しています。ほぼすべての要求で、サーバーはデータベースと通信する必要があります（TAdoConnection経由）。データベース接続がリソースの面でやや高価であることを見て、私は接続を再利用するためのプーリングメカニズムを作成したいと思います。要求ごとに接続するのではなく、

例の検索に失敗しました。 EmbarcaderoディスカッションフォーラムのThis Linkは、サブクラスの子孫を、TIdSchedulerOfThreadPoolを、をTIdThreadWithTaskとすることを提案しています。しかし、私はまだそれをすべて一緒にすることはできません。

は私がTIdSchedulerOfThreadPool.NewThreadメソッドをオーバーライドして、それが順番にそれが自分のTADOConnectionのオブジェクトのだろう、私のサブ分類TIdThreadWithTaskオブジェクトを返す持っている必要がありますか？

例がありますか？私はこれについて心配する必要はなく、各リクエストでデータベース接続を開くだけですか？

Answer 1

あなたは自分でプールを管理してみませんか？

接続の一覧があります。それは空になる。リクエストが来るたびに、利用可能な接続（アクティブであるが使用されていない接続）を探します。何も見つからなければ、それを作成し、それを利用不可能としてリストに入れます。要求が終了すると、接続を使用可能に設定します。

そこに行って、それをやって、後悔しないでください！懸念のいくつかのポイント：

• 心の中ですべての回をスレッドセーフにしてください：
  • あなたは、接続の可用性
  を設定するときは、接続の可用性
• を照会するときは、リスト
• を照会する場合
• 時々、未使用の接続が多すぎるかどうかを確認します。必要以上のものがある可能性があるため、使用不可に設定してリストから削除してから閉じる必要がありますd。あなたはまた、COMがペアを呼び出して、各スレッドに正しくセットアップされていることを確認する必要が

Answer 2

：CoInitializeを/に、counitialize

以下は、プロジェクトに含める例のユニットです。そしてあなたのHTTPサーバーコンストラクタでは、カスタムスケジューラを作成するだけで、Indyはデフォルトの代わりにこれを使用します。

これを行うと、各クライアントスレッドはCOM用に適切に初期化され、すべてのクライアントスレッドで共有される他のアイテムを追加することもできます。

また、接続ごとにカスタムのTIdServerContext子孫を作成します（HTTPサーバーコンストラクタでもContextClassプロパティを設定します）。異なる種類のサーバーには異なるTIdServerContext子孫がありますが、すべてTsoIndyCOMEnabledSchedulerOfThreadベーススレッドクラスをすべて使用します何らかのCOMをする。

スレッドにADO接続を挿入するのではなく、コンテキストに挿入します。特にこれをスレッドプールに追加する場合は特にです。

unit ExampleStackOverflow; 

interface 

uses 
    SysUtils, Classes, 
    ActiveX, 
    IdThread, IdSchedulerOfThreadDefault; 

type 
    //Meant to be used with a custom TIdSchedulerOfThreadDefault descendant 
    //to ensure COM support on child threads. 
    TsoIndyComThreadWithTask = class(TIdThreadWithTask) 
    protected 
    //Ensure COM is setup before client connection/thread work 
    procedure BeforeExecute; override; 
    //Graceful COM cleanup on client connection/thread 
    procedure AfterExecute; override; 
    end; 


    TsoIndyCOMEnabledSchedulerOfThread = class(TIdSchedulerOfThreadDefault) 
    public 
    constructor Create(AOwner:TComponent); reintroduce; 
    end; 



implementation 

procedure TsoIndyComThreadWithTask.BeforeExecute; 
begin 
    CoInitialize(nil); 
    inherited; 
end; 


procedure TsoIndyComThreadWithTask.AfterExecute; 
begin 
    inherited; 
    CoUninitialize(); 
end; 


constructor TsoIndyCOMEnabledSchedulerOfThread.Create(AOwner:TComponent); 
begin 
    inherited; 
    //the whole reason for overriding default scheduler of thread is to setup COM 
    //on client threads 
    ThreadClass := TsoIndyComThreadWithTask; 
    Name := Name + 'COMEnabledScheduler'; 
end;