但在Delphi開中的PubDBConn中的如下代碼競(jìng)也提示“尚未調(diào)用 CoInitialize”

procedure CreateadocSQL;
begin
  adocSQL := TADOConnection.Create(nil);
  try
    if adocSQL.Connected then
      adocSQL.Close;
    adocSQL.ConnectionString := StrIS;
    adocSQL.LoginPrompt := FALSE;
    adocSQL.Connected := TRUE;
    adocSQL.CommandTimeout := 600;
  except
    on e: EOleException do
      Application.MessageBox(PChar(e.Source), PChar(e.Message), MB_OK + MB_ICONSTOP);
  end;
end;

initialization      

  CreateadocSQL;
end.

    最終在CreateadocSQL前后加上CoInitialize(nil)和CoUninitilize()，即

  try  
    coinitialize(nil);  
    CreateadocSQL;
  finally  
     .....  
     couninitialize;  
 end;

    當(dāng)然單元中要uses   activex。