Цитата:
|
Сообщение от DeVolf
2NLObP мне ето все и так было ясно вот что наисать в "action" чтоб Х давалось значение ибо "х:=" не прокатывает :(
|
естесственно не прокатывает, здесь плучается клиент при нажатии кнопки отвечает серверу пакетом #$21, со 2го байта которого идет стринг, в данном случае 'open' либо 'close'
так что можно заменить их на нужные тебе числовые значения, и в скрипте уже ловить пакет:
Код:
if fromclient and (pck[1]=#$21) then
begin
Xstr:=reads(2);
Xint:=strtoint(Xstr);
end; //если нажата кнопка прочитать ее значение и перевести в интеджер