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

Вниз

Progress при подключении к севреру   Найти похожие ветки 

 
MORA   (2004-10-22 00:01) [0]

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

Кстати, как определить причину той самой неудачи? (Например, как узнать, что не запущен сервер или вообще комп. выключен, или БД повреждена, или нет файла .gdb)? Как?


 
Zacho ©   (2004-10-22 00:55) [1]


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

Ну, например, анимированный gif показывай какой-нибудь, или еще что-то подобное. Или просто небольшое окошко снадписью типа "Подождите .. Подключение к БД.." И т.д. и т.п.
Хотя обычно для локальной сети подключение происходит меньше 1 сек., так что и "индикатора" никакого не надо.


> Кстати, как определить причину той самой неудачи?
> (Например, как узнать, что не запущен сервер или
> вообще комп. выключен, или БД повреждена, или нет
> файла .gdb)? Как?

Обрабатывай exception.


 
Геннадий   (2004-10-22 08:10) [2]


> к-рый "горит", пока происходит магия подключения к серваку
> БД, и тухнет, когда подключение завершено


Перед вызова метода Connect показывай (напр.) надпись "Подключаемся....", а затем
Обрабатывай события OnConnetc/OnDisconnect - прячь надпись.


 
DSKalugin ©   (2004-10-22 12:15) [3]

pb это Progressbar
   EngineMF.pb.Min := 0;
   EngineMF.pb.Max := 9;
   EngineMF.pb.Position := 0;
   EngineMF.pb.Visible := true;
   DetList_IBO.Open;
   EngineMF.pb.Position := EngineMF.pb.Position + 1;
   OrdersIBQ.Open;
   EngineMF.pb.Position := EngineMF.pb.Position + 1;
   FullSellersIBQ.Open;
   EngineMF.pb.Position := EngineMF.pb.Position + 1;
   LoadMakersIBQ.Open;
   EngineMF.pb.Position := EngineMF.pb.Position + 1;
   LoadGroupsIBQ.Open;
......


 
Пуртик   (2004-10-22 13:30) [4]


> DetList_IBO.Open;
>    EngineMF.pb.Position := EngineMF.pb.Position + 1;
>    OrdersIBQ.Open;
>    EngineMF.pb.Position := EngineMF.pb.Position + 1;
>    FullSellersIBQ.Open;
>    EngineMF.pb.Position := EngineMF.pb.Position + 1;
>    LoadMakersIBQ.Open;
>    EngineMF.pb.Position := EngineMF.pb.Position + 1;
>    LoadGroupsIBQ.Open;

Все это надо в блоке try ... finally end
Причем желательно после finally  сделать EngineMF.pb.Position := EngineMF.pb.Max


 
Digitman ©   (2004-10-22 15:52) [5]


> какой-нить индикатор, к-рый "горит", пока происходит магия
> подключения к серваку БД, и тухнет, когда подключение завершено
> (в т.ч. неудачей).


МойИндикатор.Гореть := True;
try
try
  МоеСинхронноеСоединениеСбазой.Open;
finally
 МойИндикатор.Гореть := False;
end;
except
on e:EКлассИсключенияДляМоегоСоединенияСбазой do
 begin
   //хреново дело
 end;
end;



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

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

Наверх




Память: 0.48 MB
Время: 0.057 c
1-1099664671
Сергей_
2004-11-05 17:24
2004.11.21
Сворачивание в tray: а память?


3-1098196764
Kat
2004-10-19 18:39
2004.11.21
запросом как вывести год из этого поля!?


1-1099494539
Настенька!!!
2004-11-03 18:08
2004.11.21
Цвет ячейки стриннгрида


3-1098768210
diabolik_krsk
2004-10-26 09:23
2004.11.21
Названия колонок в DBGrid в 2-а, 3-и ряда


14-1099353829
ДЫМ
2004-11-02 03:03
2004.11.21
Какой installer посоветуете?