Сервер СУБД Interbase 6.0, серверная часть программы написана на Delphi 6, реализован COM сервер и для доступа к нему используется Borland Socket Server. Клиенты обращаются с Borland Socket Server через SocketConnection.

Когда обращаешься к СУБД монопольно, то нет никаких проблем, но если попытаться хотябы с 2х машин одновременно запросить поиск или запись в БД или еще что нибудь, то сразу все приостанавливается (клиенты - не отвечают, а сервер типа замер и ничего не делает).

Не знаю даже на что грешить или на Interbase или может есть какие-то свойства для таблиц в БД или COM сервер, что врядли.
Подскажите идею, неужели Interbase не у кого не работает как нада?

Привожу часть исходника сервера:

Код

unit Unit2;                                                               {$WARN SYMBOL_PLATFORM OFF} interface uses   Windows, Messages, SysUtils, Classes, ComServ, ComObj, VCLCom, DataBkr, Controls,   DBClient, Flat_Server_TLB, StdVcl, Unit1, Variants,Dialogs, Registry,IBBlob,ShellApi,   ExtCtrls; type     TFlatDataModule = class(TRemoteDataModule, IFlatDataModule)   private     { Private declarations }   protected     class procedure UpdateRegistry(Register: Boolean; const ClassID, ProgID: string); override;     procedure Login(const username, password: WideString; out exist, user_id,       user_bukva, user_otdel: OleVariant); safecall;     procedure GetRights(const username, password: WideString;       out rights: OleVariant); safecall;    //Здесь идут заголовки других процедур      public      function TempDir_FileName(ext:string;kod:string) : string;     { Public declarations }   end; implementation uses DB, IBServices; {$R *.DFM} class procedure TFlatDataModule.UpdateRegistry(Register: Boolean; const ClassID, ProgID: string); begin   if Register then   begin     inherited UpdateRegistry(Register, ClassID, ProgID);     EnableSocketTransport(ClassID);     EnableWebTransport(ClassID);   end else   begin     DisableSocketTransport(ClassID);     DisableWebTransport(ClassID);     inherited UpdateRegistry(Register, ClassID, ProgID);   end; end; //Здесь идут сами процедуры initialization   TComponentFactory.Create(ComServer, TFlatDataModule,     Class_FlatDataModule, ciMultiInstance, tmApartment); end.

Заранее спасибо...

Наконец решил эту проблему... Все заработало правильно, просто пришлось изменить параметры создания COM сервера

Код

initialization   TComponentFactory.Create(ComServer, TFlatDataModule,     Class_FlatDataModule, ciMultiInstance, tmSingle);