Hi

We do lots of threads with IBO and always use the code method.  Here is a basic example of how we do it....


procedure TMyThread.Execute;
begin
            //Create session for this thread
            ClientSesion := TIB_Session.Create(Nil);
            ClientSesion.UseCursor := False;

            //Create Database for all Query components
            IBODataBase     := TIBODatabase.Create(ClientSesion);
            IBODataBase.IB_Session      := ClientSesion;
            IBODataBase.Path                := Owner.DataBasefullPath;
            IBODataBase.SchemaCacheDir := ExtractFilePath(IBODataBase.Path);        
            IBODataBase.Server      := SystemServerName + FormattedSystemFB_Port;
            IBODataBase.Password    := WS_DB_PASSWORD;
            IBODataBase.Username    := WS_DB_USERNAME;
            IBODataBase.Protocol    := cpTCP_IP;
            IBODataBase.Connected   := True;

            fWriteTransaction            := TIB_Transaction.CreateForSession(IBODataBase, IBODataBase.IB_Session);
            fWriteTransaction.Isolation  := tiCommitted;

            fReadOnlyTransaction            := TIB_Transaction.CreateForSession(IBODataBase, IBODataBase.IB_Session);
            fReadOnlyTransaction.Isolation  := tiCommitted;
            fReadOnlyTransaction.ReadOnly   := True;              

            fGeneralQuery                   := TIBOQuery.Create(IBODataBase.IB_Session);     
            fGeneralQuery.IB_Session        := IBODataBase.IB_Session;         
            fGeneralQuery.IB_Connection     := IBODataBase;
            fGeneralQuery..IB_Transaction   := fReadOnlyTransaction ;

            fWorkControlQuery               := TIBOQuery.Create(IBODataBase.IB_Session);
            fWorkControlQuery.IB_Session    := IBODataBase.IB_Session;
            fWorkControlQuery.IB_Connection := IBODataBase;
            fWorkControlQuery.IB_Transaction:= fReadOnlyTransaction;            //RM 12/04/2006


        while (.....)
.....
        end;

        //Close and free all DB components
        i.e.
        fGeneralQuery.Active := False;
        fGeneralQuery.Free;

        fReadOnlyTransaction.Free;

        IBODataBase.Connected := False;
        IBODataBase.Free;

        ClientSesion.Free;


end;


       

The above is cleaned code from a thread in our system.  Note the Free stuff was just typed in now so could be wrong.

When creating transactions you can use CreateForSession or I believe the following is equivalent..
            fReadOnlyTransaction := TIB_Transaction.Create(IBODataBase.IB_Session);
            fReadOnlyTransaction.IB_Session := IBODataBase.IB_Session;


It is important that all DB components are created and freed as part of the TThread.execute procedure. 

Hope that helps

Cheers
Rob



 On 12/09/2013 4:55 a.m., soerensoerensen@... wrote: