Форум программистов
 
О проблемах, например, с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Ответ
 
Опции темы
Старый 04.09.2013, 09:14   #11
_Night_Scream_
 
Регистрация: 08.11.2012
Сообщений: 7
По умолчанию

Не подскажете почему не работает с массивом в 20 байт.
Не правильно расcчитывается FCS.
Что то нужно менять?

Код:
 
var y: byte;
begin
aAvtorise[0]:=$FD;
aAvtorise[1]:=RANDOM(200);
aAvtorise[2]:=$50;                     
aAvtorise[3]:=$02;                      
aAvtorise[4]:=$00;    
aAvtorise[5]:=$ff;
aAvtorise[6]:=$00;
aAvtorise[7]:=$ff;
aAvtorise[8]:=$00;
aAvtorise[9]:=$ff;
aAvtorise[10]:=$00;
aAvtorise[11]:=$ff;
aAvtorise[12]:=$00;
aAvtorise[13]:=$ff;
aAvtorise[14]:=$00;
aAvtorise[15]:=$ff;
aAvtorise[16]:=$00;
FCS := $FFFF;
  for y := 1 to SizeOf(aAvtorise) - SizeOf(FCS) - 2 do
    X_FCS(aAvtorise[y]);
fcs:=not fcs;
aAvtorise[17]:=lo(FCS);
aAvtorise[18]:=hi(FCS);
aAvtorise[19]:=$fe;
_Night_Scream_ вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как у Frame сделать закругленные края? pavellyba Общие вопросы Delphi 1 16.04.2011 02:13
Как научить программу создавать несколько Frame? pavellyba Общие вопросы Delphi 3 04.04.2011 23:18
Как рассчитать возраст sql запрос slai БД в Delphi 5 28.09.2010 10:02
Как рассчитать периметр фигуры Kuzia Microsoft Office Excel 4 24.12.2009 07:51
Как рассчитать значения в табеле? fs444 Microsoft Office Excel 2 16.11.2009 13:10


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS
Здесь нужно купить рекламу за 7 тыс руб в месяц! )
пишите сюда - alarforum@yandex.ru
ИКС 840