Quand dois-je appeler CoInitialize() dans ce scénario?

Je suis en train de construire un multi-fileté service windows application en Delphi XE2 qui utilise ADO composants de base de données pour se connecter à SQL Server. J'ai utilisé CoInitialize(nil); beaucoup de fois avant de l'intérieur de threads, mais dans ce cas, j'ai une fonction qui, je n'en suis pas sûr à propos de.

Cette fonction est appelée TryConnect qui tente de se connecter à une base de données avec une chaîne de connexion. Elle renvoie vrai ou faux sur la réussite de la connexion. Le problème est que cette fonction sera utilisée à la fois à l'intérieur et à l'extérieur de la principale thread de service, et ce sera la création de ses propres temporaire TADOConnection composant, ce qui nécessite CoInitialize...

Ma question est dois-je appeler CoInitialize à l'intérieur de cette fonction? Si je le fais, et depuis le service de l'exécution de la procédure utilise CoInitialize aussi, seront-ils interférer si j'ai appeler cette fonction dans le service? Le TryConnect fonction est à l'intérieur d'un objet qui est créé à partir de la principale thread de service (mais sera finalement déplacé à son propre thread). J'ai besoin de savoir si l'appelant CoInitialize() deux fois par le même thread (et CoUninitialize) interfèrent - et comment gérer ce scénario correctement.

Voici le code ci-dessous...

//This is the service app's execute procedure
procedure TJDRMSvr.ServiceExecute(Sender: TService);
begin
  try
    CoInitialize(nil);
    Startup;
    try
      while not Terminated do begin
        DoSomeWork;
        ServiceThread.ProcessRequests(False);
      end;
    finally
      Cleanup;
      CoUninitialize;
    end;
  except
    on e: exception do begin
      PostLog('EXCEPTION in Execute: '+e.Message);
    end;
  end;
end;

//TryConnect might be called from same service thread and another thread
function TDBPool.TryConnect(const AConnStr: String): Bool;
var
  DB: TADOConnection; //Do I need CoInitialize in this function?
begin
  Result:= False;
  DB:= TADOConnection.Create(nil);
  try
    DB.LoginPrompt:= False;
    DB.ConnectionString:= AConnStr;
    try
      DB.Connected:= True;
      Result:= True;
    except
      on e: exception do begin
      end;
    end;
    DB.Connected:= False;
  finally
    DB.Free;
  end;
end;

Afin de clarifier ce qu'il est vraiment en train de faire, je pourrais avoir l'occasion de cette:

CoInitialize(nil);
try
  CoInitialize(nil);
  try
    //Do some ADO work
  finally
    CoUninitialize;
  end;
finally
  CoUninitialize;
end;

OriginalL'auteur Jerry Dodge | 2012-02-15