pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

RxFPC: rxCrc module

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5700 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2017-01-25 11:34:34 +00:00
parent 735529f5ea
commit ecc7d99991
2 changed files with 33 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/rx/trunk/languages/register_rxctrl.po
View File

@ -1,6 +1,10 @@
msgid ""
msgstr "Content-Type: text/plain; charset=UTF-8"
#: register_rxctrl.sloadicon
msgid "Load icon"
msgstr ""
#: register_rxctrl.stesttrxlogindialog
msgid "Test TRxLoginDialog"
msgstr ""

33
components/rx/trunk/rxtools/rxcrc.pas
View File

@ -38,17 +38,18 @@ interface
uses
Classes, SysUtils;
function crc8(Buffer:String;Polynom,Initial:Cardinal):Cardinal;
function rxCRC8(Buffer:String;Polynom,Initial:Cardinal):Cardinal; overload;
function rxCRC8(Buffer:PByteArray; BufferLen:Cardinal; Polynom,Initial:Cardinal):Cardinal; overload;
implementation
{autor - hansotten
http://forum.lazarus.freepascal.org/index.php?topic=31532.msg202338#msg202338
}
function crc8(Buffer:String;Polynom,Initial:Cardinal):Cardinal;
function rxCRC8(Buffer:String;Polynom,Initial:Cardinal):Cardinal;
var
i,j : Integer;
i,j : Integer;
begin
Result:=Initial;
{ Result:=Initial;
for i:=1 to Length(Buffer) do
begin
Result:=Result xor Ord(buffer[i]);
@ -60,6 +61,30 @@ begin
Result:=Result shl 1;
end;
end;
Result:=Result and $ff;}
if Length(Buffer) > 0 then
Result:=rxCRC8(@Buffer[1], Length(Buffer), Polynom, Initial)
else
Result:=Initial;
end;
function rxCRC8(Buffer: PByteArray; BufferLen: Cardinal; Polynom, Initial: Cardinal
): Cardinal;
var
i,j : Integer;
begin
Result:=Initial;
for i:=0 to BufferLen-1 do
begin
Result:=Result xor Buffer^[i];
for j:=0 to 7 do
begin
if (Result and $80)<>0 then
Result:=(Result shl 1) xor Polynom
else
Result:=Result shl 1;
end;
end;
Result:=Result and $ff;
end;