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

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

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


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Ответ
 
Опции темы
Старый 08.08.2013, 12:01   #1
_Night_Scream_
 
Регистрация: 08.11.2012
Сообщений: 7
Репутация: 8
Восклицание как рассчитать fcs - frame check sequence

Доброе время суток.
Есть устройсво (rfid считыватель), нужно написать на Delphi программу для обмена данными с этим устройсвом. Протокол известен, но возникли трудности с расчетом FCS, я так понимаю это и есть CRC16?
Сталкивался ли кто может подскажите что к чему или ссылочек киньте.
Спасибо.
_Night_Scream_ вне форума   Ответить с цитированием
Старый 08.08.2013, 15:42   #2
_Night_Scream_
 
Регистрация: 08.11.2012
Сообщений: 7
Репутация: 8
Восклицание

Бесконтактный считыватель PROX 13мгц-Reader.
http://prox.ru/index.php?item=13mhz-rw-232
FCS в данном протоколе реализована согласно стандартам CCITT X.25 или ISO/IEC 3309 или RFC1331 (PPP).
Полином 0х8408.
А кто нить сам реализовывал?
Вот из сниффера - запрос FD C7 02 02 F1 50 FE
ответ FD C7 02 03 78 41 FE
FD,FE - начало, конец.
C7 - идентификатор кадра
02 - команда
02 - данные команды
F1,50 - FCS который нифига не могу понять
Хотелось бы написать ручками. Но за бибку спасибо!

В ГОСТе ИСО/МЭК 3309-98
на 9ой страничке есть описание. Но не пойму даже что такое X ???
_Night_Scream_ вне форума   Ответить с цитированием
Старый 08.08.2013, 22:02   #3
_Night_Scream_
 
Регистрация: 08.11.2012
Сообщений: 7
Репутация: 8
Плохо

Всем лень? или никто правда не знает?
_Night_Scream_ вне форума   Ответить с цитированием
Старый 09.08.2013, 11:43   #4
Slym
Профессионал
 
Регистрация: 07.12.2011
Адрес: Siberia
Сообщений: 1,021
Репутация: 759
По умолчанию

свои наработки давай
Slym вне форума   Ответить с цитированием
Старый 09.08.2013, 20:11   #5
_Night_Scream_
 
Регистрация: 08.11.2012
Сообщений: 7
Репутация: 8
По умолчанию

Да в общем вот что получилось, помогли чуть. Пока разбираюсь, думаю вопросы еще возникнут.
var
FCS: Word;

procedure X_FCS(_D: Byte);
var
_i: Integer;
_w: Word;
begin
_w := _D xor (FCS and $FF);
_i := 8;
repeat
if Boolean(_w and 1) then
begin
_w := _w shr 1;
_w := _w xor $8408;
end
else
_w := _w shr 1;
Dec(_i);
until _i = 0;
FCS := _w xor (FCS shr 8);
end;


var
Request: array[0..6] of Byte = ($FD, $C7, $02, $02, $F1, $50, $FE);

procedure TfrmMain.Button2Click(Sender: TObject);
var
i: Integer;

begin
FCS := $FFFF;
for i := 1 to SizeOf(Request) - SizeOf(FCS) - 2 do
X_FCS(Request[i]);
ShowMessage(IntToHex(not FCS, 4));
end;
_Night_Scream_ вне форума   Ответить с цитированием
Старый 09.08.2013, 20:15   #6
_Night_Scream_
 
Регистрация: 08.11.2012
Сообщений: 7
Репутация: 8
По умолчанию

Много гуглил и не нашел как Word в 2 байта разделить.
Не подскажет ли кто?
Собственно в случае FCS можно воспользоваться конечно hi и lo, но хотелось бы и такой вариант узнать.
_Night_Scream_ вне форума   Ответить с цитированием
Старый 09.08.2013, 20:44   #7
Аватар
Модератор
Заслуженный модератор
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Адрес: Северодонецк.ua
Сообщений: 18,925
Репутация: 6688
По умолчанию

div и mod на 256 не устраивает?
__________________
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар на форуме   Ответить с цитированием
Старый 10.08.2013, 12:50   #8
_Night_Scream_
 
Регистрация: 08.11.2012
Сообщений: 7
Репутация: 8
По умолчанию

Конечно устраивает. А если будет 4х байтовое? В CRC32 например, надо отправлять 4х байтовое число ведь.
Нет ли какой нить функции разложения х-байтового числа в масив из х байт?
_Night_Scream_ вне форума   Ответить с цитированием
Старый 10.08.2013, 13:11   #9
Аватар
Модератор
Заслуженный модератор
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Адрес: Северодонецк.ua
Сообщений: 18,925
Репутация: 6688
По умолчанию

С DWORD можно так поиграться
Код:
procedure TForm1.Button1Click(Sender: TObject);
var b: array [0..3] of Byte;
    p: ^Cardinal;
    c: Cardinal;
begin
  p:=@b[0];
  c:=$FF0F0901;
  p^:=c;
  Label1.Caption:=IntToStr(b[3]);
  Label2.Caption:=IntToStr(b[2]);
  Label3.Caption:=IntToStr(b[1]);
  Label4.Caption:=IntToStr(b[0]);
end;
__________________
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар на форуме   Ответить с цитированием
Старый 12.08.2013, 07:25   #10
phomm
personality
Профессионал
 
Аватар для phomm
 
Регистрация: 28.04.2009
Адрес: Тюмень
Сообщений: 2,855
Репутация: 1511

icq: 421049471
skype: phomm-
По умолчанию

Такая функция пишется вручную за минуту.
Код:
function GetByteOfInt(val: Integer; place: Byte): Byte;
begin
  Result := val shr (place * 8) and $FF;
end;
от 0го до 3го байта (параметр place) позволяет таскать из инта (можно сделать перегрузку для ворда и инт64 или даже для указателя)
phomm вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

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


09:44.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.