Socket в цикле

← →
_kos (2006-07-14 19:29) [0]

Привет всем! Пишу приложение для системы автоматизированного контроля которое по сети через сокет передаёт некие параметры в цикле. Датчик опрашивается раз в полсекунды, и раз в полсекунды надо передать данные по сети.

фрагмент кода
Stop := False; while not Stop do begin LabelCPUSpeed.Caption := FloatToStr(GetSpeed)+" MHz"; str:= LabelCPUSpeed.Caption+#0; ServerSocket1.Socket.Connections[0].SendText(str); Application.ProcessMessages; end;

при этом возникает ошибка "List index of bounds(0)", подскажите в чём проблема.

← →
Fay © (2006-07-14 21:27) [1]

нет клиентов

← →
_kos (2006-07-14 22:01) [2]

Как я не до думался, точно!!!!!!!! Спасибо!!!

← →
Fay © (2006-07-15 07:20) [3]

2 _kos (14.07.06 22:01) [2]
А если бы и были, почему Connections[0]? Почему не Connections[37] ?

← →
Интересующийся (2006-07-15 09:37) [4]

_kos (14.07.06 19:29)

Сервер в каком режиме работает?

Насколькоя понимаю пример кода взят из таймера работающего с интервалом 500?

Предлагаю такой вариант:

(stNonBlocking)

1. В ClientRead серверу пишим

str:=FloatToStr(GetSpeed)+" MHz"; LabelCPUSpeed.Caption:=str;//Предполагаю, что строку следует перенести в другое место Socket.SendText(str); Application.ProcessMessages;//Предполагаю, что строку следует перенести в другое место

2. Клиенту пишим вызом сервера с передачей необходимых параметров (в зависимости от конечной реализации протокола общения сервера и клиента)

3. В приложение клиент добавляем таймер вызывающий сервер по определенному интервалу

(stThreadBlocking)

При таком режиме ход работы примерно тот же, но юзать надо ThreadEnd и ThreadStart (вместо Socket используем Thread:TServerClientThread)

← →
Интересующийся (2006-07-15 09:40) [5]

Предлагаю перенести этот код в таймер серверного приложения или в отдельный поток (но без Application.ProcessMessages)

str:=FloatToStr(GetSpeed)+" MHz"; LabelCPUSpeed.Caption:=str; Application.ProcessMessages;

_kos (14.07.06 19:29)
для системы автоматизированного контроля
Если такая (Connections[0]) прога будет на какойнибудь АЭС... я обделаюсь до колен...

Socket в цикле Найти похожие ветки