Скачать: CL | DM;

Очередной глюк в Делфи чтоли?   Найти похожие ветки 

← →
alt7   (2003-10-20 12:32) [0]

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 и вызов процедуры, так после ее отработки, переходим опять на коннект, бред какой-то.

---

← →
Е-Моё имя ©   (2003-10-20 13:09) [1]

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

---

← →
Ihor Osov'yak ©   (2003-10-20 14:11) [2]

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

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

удивишся..

---

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

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

---

← →
Ihor Osov'yak ©   (2003-10-20 14:30) [4]

2 [3] alt7 (20.10.03 14:16)

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

---

← →
Palladin ©   (2003-10-20 15:02) [5]

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

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.014 c