Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.03.06;
Скачать: CL | DM;

Вниз

Как избежать ожидания сошединения с БД в АДО.   Найти похожие ветки 

 
yaJohn ©   (2003-02-16 12:45) [0]

Имеем TADOConnection. База лежит далеко в сети. Говорим ему Connected:=true; Если имеем проблемы с сетью TADOConnection надолго впадает в ступор, после чего сообщает об ошибке.
Вопрос таков: как соединится с базой в фоновом режиме не тормозя все приложение? Т.е. нечто вроде:
TADOConnection.Connected:=true;
........ делаем много полезной работы
if not TADOConnection.Connected then
...база все еще недоступна.

Можно, конечно, посадить Connected:=true; в отдельный поток, но поведение БД-ВЦЛ в потоках вопрос темный и этого метода хотелось бы измежать...

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


 
asmith   (2003-02-16 18:28) [1]

В винде фоновый режим - это и есть отдельный поток. Но можно попытаться предпринять некие действия до соединения с базой чтобы исключить проблемы с сетью. Например, попытаться установить сетевое соединени с удаленным компьютером, на котором расположена база. Примерно так:
var
ntr : NETRESOURCE;
code : DWORD;
buf : array[0..127] of char;
...
StrPCopy(buf, "\\" + ComputerName);
with ntr do
begin
dwType := RESOURCETYPE_ANY;
lpLocalName := nil;
lpRemoteName := buf;
lpProvider := nil;
end;
code := WNetAddConnection2(ntr, "", "", 0);
WNetCancelConnection2(buf, 0, True);
if NO_ERROR <> code then
begin
// тут ничего не удастся сделать, завершаем работу
MessageDlg(bla-bla-bla);
Exit;
end;
// а тут пробуем соединиться через АДО


 
a_ruslan   (2003-02-16 19:02) [2]

Лучше всего использовать свойство ConnectionOptions установив его в значение coAsyncConnect. Тогда при выполнении команды соединения основной поток пойдет дальше. После прохождения соединения или же возникновения ошибки будет послено событие OnConnectComplete. Его входной параметр Error содержит код ошибки, если она возникла.



Страницы: 1 вся ветка

Текущий архив: 2003.03.06;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.034 c
14-17297
chernoruk
2003-02-19 23:15
2003.03.06
управление Media Player


1-17006
SergeyND
2003-02-24 23:36
2003.03.06
TRichEdit


3-16936
Kurt_
2003-02-16 17:06
2003.03.06
Люди! а как определить используя АДО, что при сохранении записи р


1-17071
IVANOV
2003-02-22 08:16
2003.03.06
Глобален ли TScreen?


6-17230
smok_er
2003-01-17 13:11
2003.03.06
Access Violation: проблемы с HttpQueryInfo