Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Очередной глюк в Делфи чтоли? [D7, Win2k]


alt7 ©   (2003-10-20 12:32:00) 

D7. Компонент TTCPClient. Событие OnReceive.

Выдержка из исходника:

if <условие> then
begin
while not TCPCHist.Connected do
begin
try
TCPCHist.Connect;
except on ESocketError do begin Writeln(vLogFile,"Failed to connect to history server... ("+DateTimeToStr(Now)+")"); continue; end;
end;
end;
if TCPCHist.Connected then EvClass.History_get_quote1(vLastBuffer);
TCPCHist.Disconnect;
...
end;

Так вот, коннекчусь, while завершается, запускается процедура EvClass.History_get_quote1(vLastBuffer), из соответ. класса EventClass.
Потом она отрабатывается и, УПРАВЛЕНИЕ ОПЯТЬ ПЕРЕДАЕТСЯ НА WHILE, и все зацикливается. Где копать, на что грешить?

Уже все заремарил, отставил только Connect и вызов процедуры, так после ее отработки, переходим опять на коннект, бред какой-то.


Palladin   (2003-10-20 15:02:00) [1]

да уж... пионеры-первооткрыватели, млин...


Ihor Osov'yak   (2003-10-20 14:30:00) [2]

2 [3] alt7 (20.10.03 14:16)

ну, в общем-то легко отделался.. А то порою здесь глюконаходителей в делфи очень любят..


alt7   (2003-10-20 14:16:00) [3]

Да я уже разобрался ;))
Не в 17 строке дело, а в склерозе, забыл таймер убрать ;))
Тема закрыта.


Ihor Osov'yak   (2003-10-20 14:11:00) [4]

неа.. Глюк в 17 строке твоего кода..

Поставь точку прерывания на
if <условие> then
и
if TCPCHist.Connected then EvClass.History_get_quote1(vLastBuffer);

удивишся..


Е-Моё имя   (2003-10-20 13:09:00) [5]

неа
внеочередной


Наверх

Титульная страница Поиск, карта сайта Написать письмо