[kaeniv]

Пробовал найти ответ, но вероятно не так ищу, потому уже решил создать тему.
Очень прошу помочь с проблемой, пришлось взяться за сокеты в Delphi, а до этого вообще с ним не связывался, проблема такая, сразу приведу кусок программы:

Код:

1 2 3 4 5 6 7 8 9 10 11

begin WHILE start do begin   ................................   ClientSocket1.Open;   ClientSocket1.Close;   ............................... end; Application.Processmessages; Sleep(3000); end;

MAD: Учимя оформлять код!

Если убрать цикл, то сокет как положено выполнит свою работу, но с циклом возникли проблемы, программа не завершалась, условие на завершение цикла было связанно с работой сокета. Я провел трассировку и увидел интересный момент - сокеты не выполнялись вообще... Когда я убрал цикл и снова провел трассировку, то сокет выполнялся, НО только после того как произошло завершение всего тела программы, после последнего END.

Сама программа периодически проверяет наличие данных в БД MySQL, если есть, то отправляет их через сокет в виде XML, затем записывает ответ и т.д. Но из-за этой проблемы не удается выполнять это в цикле...

[NumLock]

такой кусок можно смело удалить из программы без последствий