Пробовал найти ответ, но вероятно не так ищу, потому уже решил создать тему.
Очень прошу помочь с проблемой, пришлось взяться за сокеты в Delphi, а до этого вообще с ним не связывался, проблема такая, сразу приведу кусок программы:
Код:
begin
WHILE start do
begin
................................
ClientSocket1.Open;
ClientSocket1.Close;
...............................
end;
Application.Processmessages;
Sleep(3000);
end;
MAD: Учимя оформлять код!
Если убрать цикл, то сокет как положено выполнит свою работу, но с циклом возникли проблемы, программа не завершалась, условие на завершение цикла было связанно с работой сокета. Я провел трассировку и увидел интересный момент - сокеты не выполнялись вообще... Когда я убрал цикл и снова провел трассировку, то сокет выполнялся, НО только после того как произошло завершение всего тела программы, после последнего END.
Сама программа периодически проверяет наличие данных в БД MySQL, если есть, то отправляет их через сокет в виде XML, затем записывает ответ и т.д. Но из-за этой проблемы не удается выполнять это в цикле...