[kaeniv]

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

Код:

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

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

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

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

[NumLock]

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