останавливай таймер после отправки
delphi Код:
Procedure OnTimer;
begin
buf:=#$38;
WriteS(text);
WriteD(2);
WriteS(nick);
SendToServerEx(Name);
Timer1.Enabled:=false;
end;
это первое. Второе: invterval:=5000 - значит в ситуациях когда будут приходить несколько чаринфо с интервалом менее 5 секунд - не всем им будет послано сообщение, надо делать чтото вроде буфера, для сбора ников...Хотя может это и к лучшему.
__________________
На фразы в аську типа "слух карочь 1)как точить 2)как раскачаться за 5 мин" - игнор. ИМХО идиотизм
Дай голодному рыбу - он будет один день сыт. Покажи ему, как удить рыбу - он пошлёт тебя и скажет, что у него есть более интересные занятия, чем забрасывать снасти в воду
David Kastrup @ de.comp.text.tex.
"Приобретенные навыки общения с маленькими детьми - сильно упрощают взаимопонимание на форумах..."
А вы знаете, что для качественной сварки - место шва нужно протереть спиртом?
Последний раз редактировалось Breadfan, 17.06.2011 в 09:30.
|