Форум: "Базы";
Текущий архив: 2002.09.05;
Скачать: [xml.tar.bz2];
ВнизДоступ к базе нескольких клиентов Найти похожие ветки
← →
S@shka (2002-07-29 21:10) [0]Народ есть TIdTCPSERVER при коннекте к которому ...
procedure TIdTCPServerExecute (AThread:TIdThread)
begin
FillDB (athread.connection.readln());
end;
То есть надо проситать данные от клиента и занести в базу
Процедура описана как
procedure FillDb (S;String);
begin
IbTransaction1.StartTransaction;
IbQuery.Sql.Clear;
IbQuery.Sql.Add ("insert into MYTABLE values (:Val)");
IbQuery.ParamByName ("Val").AsString:=S;
IbQuery.ExecSql;
IbTransaction1.Commit;
end;
Все работает если подключается один клиент. Но если их несколько - то для каждого (как видно) создается свой поток в которых вызывается FillDb и естественно все и глохнет. Данные в базу не вставляются.
Как это обойти не знаю.
Заранее спасибо.
← →
zalvi (2002-08-16 09:33) [1]Каким образом настроено подключение клиентов на удаленных машинах
и на той, где непосредственно находится БД?
← →
Reindeer Moss Eater (2002-08-16 09:45) [2]Должен быть модуль данных, написанный с учетом Thread Safe. Для каждого соединения создается отдельный его экземпляр. И все работает замечательно. И не забудь про TSession в модуле данных
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2002.09.05;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.006 c