DEMO - coinitialize

Hi,

when i try to use your DEMO i always get an EOleSysError "CoInitialize has not been called"
What can i do?

Jürgen

Call CoInitialize in CreateADOConnection as well. This is an ADO limitation (not RemoteDB limitation) since CoInitialize must be called in every thread. We have fixed the demo here as well.


function TForm1.CreateADOConnection: TADOConnection;
var
  Conn: TADOConnection;
  ConnectionString: string;
begin
  CoInitializeEx(nil, COINIT_MULTITHREADED); // Add this
  ConnectionString := edConnectionString.Text;
  Conn := TADOConnection.Create(nil);
  Conn.ConnectionString := ConnectionString;
  Conn.LoginPrompt := false;
  Result := Conn;
end;