procedure TForm1.TimerTimer(Sender: TObject);
var
Msg:string;
begin
if Client.Active=True then
begin
Msg:=Client.ReceiveString;
if msg<>'' then
begin
MemoRead.Lines.Add(Msg);
end;
end;
end;
Проблема с зависанием программы при использовании TidUDPClient
Доброе утро, день или вечер.
Я пишу чат и использую Indy UdpServer/Client
В клиентской форме, стоит только TidUDPClient
и для получения данных с сервера я использую таймер с таким кодом
Проблема в том, что когда данные не приходят всё приложение виснет и я не могу ничего с ним сделать. Пробовал выносить в поток и в другую форму(создаётся с Application,а не Self), не помогает.:confused: :confused: :confused:
Кто может помогите. Заранее благодарен за любую помощь.
Я пишу чат и использую Indy UdpServer/Client
В клиентской форме, стоит только TidUDPClient
и для получения данных с сервера я использую таймер с таким кодом
Код:
Кто может помогите. Заранее благодарен за любую помощь.
А ты положи на форму idAntiFreeze должно помочь;) Во всяком случае мне помогло при написании почтового клиента, при получении писем прога висла,после того как я разместил idAntiFreeze зависания исчезли.
У меня стоит он и на клиенте и на сервере
Всё исправил
у меня в клиенте свойство ReceiveTimeout было больше чем в таймере интервал
вот и блокировалось программа
Всё исправил
у меня в клиенте свойство ReceiveTimeout было больше чем в таймере интервал
вот и блокировалось программа