Нужно сделать 1 коннект (должен находится на сервере части проги) к БД для многих клиентов (клиентские приложения).

Для начала пробую сделать все в одном приложении:

uses ADODB_tlb; //Import Type Library - "Microsoft ActiveX Data Objects 2.7"

var
c: _Connection;
rs1, rs2: _RecordSet;
begin
c:=ADODB_tlb.CoConnection.Create;
c.ConnectionString:=
'Provider=MSDAORA.1;'
+'Password=guest;'
+'User ID=guest;'
+'Data Source=orcl';
c.CursorLocation:=adUseClient;
c.Open('','','',-1);

rs1:=ADODB_tlb.CoRecordset.Create;
rs1.Open('select * from myTable1',
c,adOpenStatic,adLockBatchOptimistic,adCmdText);

rs2:=ADODB_tlb.CoRecordset.Create;
rs2.Open('select * from myTable2',
c,adOpenStatic,adLockBatchOptimistic,adCmdText);
//....
end;

Все прекрасно работает!

Теперь нужно сделать один коннект, который возвращается СОМ-сервером

Возвращаемый сервером результат (код сервера):
var
c: _Connection; //ГЛОБАЛЬНАЯ ПЕРЕМЕННАЯ

fucntion TMyServer.Get_Connection: _Connection;
begin
if c = nil then begin
c:=ADODB_tlb.CoConnection.Create;
c.ConnectionString:='Provider=MSDAORA.1;'
+'Password=guest;'
+'User ID=guest;'
+'Data Source=orcl';
c.CursorLocation:=adUseClient;
c.Open('','','',-1);
end;
Result:=c;
end;
initialization
TAutoObjectFactory.Create(ComServer, TMyServer,
Class_MyServer,
ciMultiInstance, tmApartment);
end.
1. Делаю out-proc (в EXE) COM-сервер. Работаю с этим сервером (код клиента).

var
c: _Connection;
i: IMyServer;

begin
i:=CoMyServer.Create;//Подсоединились к серверу
c:=i.Get_Connection;
ShowMessage(c.ConnectionString);//Все классно работает - обратились к свойству интерфейса и получили результат

rs1:=ADODB_tlb.CoRecordset.Create;
rs1.Open('select * from myTable1',
c,adOpenStatic,adLockBatchOptimistic,adCmdText);
//ERROR!!!!!!! При выполнении этого метода вылетает Exception "Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another"

end;

2. Делаю in-proc (в DLL) COM-сервер.
Клиент тот же самый, что и в первом случае. Здесь все нормально работает без всяких исключений. Но, когда я запускаю несколько клиентов, то у всех свой коннект к БД!! А мне нужен 1 коннект для всех клиентов!! Ведь по идее для каждого клиента должен создаваться серверный обьект, который ссылается на глобальную переменную c: _Connection и должен возвращать ее!!! Таким образом должен быть только 1 коннект к БД!!

Вопрос: что мне сделать, чтобы заработал 1-й случай, или начал работать правильно 2-й? (желательно, 1-й)

И никак нельзя заставить ADO создавать коннекты, когда ему захочется?

Смысл всего этого следующий. Есть ограничение на количество коннектов к БД (например к БД должен быть только один коннект от всех юзеров, и не более). Один из вариантов решения данной задачи - это использование СОМ-объекта, который раздает один единственный коннект к БД(который этот же СОМ-объект и установил) всем клиентам. Например, клиент говорит этому объекту, дай мне коннект, тот коннектится к БД и возвращает ему уже открытый _Connection....далее клиент работает с этим коннектом. Потом второй клиент говорит, дай мне коннект...объект возвращает ему тот же самый коннект, что и первому клиенту. И получается два клиента работают с БД, а на самом деле к БД только один коннект (данный коннект происходит от заранее определенного имени и все клиенты равноправны и, если клиенты получили доступ к данному коннекту, то они могут работать с БД от этого имени без ограничений)...

Вообщем, если есть другие варианты решения, то не стесняйтесь и говорите :)). Или, как сделать, чтобы работал мой вариант, то тоже пишите.
Задача еще усложняется тем, что клиенты могут быть написаны на разных языках...именно поэтому и используется ADO.

to Dankov: Да, принимается во внимание! Считается, что клиенты будут выполнять очень краткосрочные операции......

2 pkarklin: Да, совершенно верно - все это делается из-за лицензионного соглашения....но не с мелкомягкими...
А где можно достать данную инфу и прочитать подробнее? (возможно и MS SQL придется юзать)