发表于:2003-07-05 21:43:00
1楼
以下为Delphi代码:
//计算FCS函数的函数(FCS的计算就是所有数据异或的结果)
function EncodeFCS(Source:PChar):PChar; (OMRON专用)
var
i,FcsTmp : integer;
begin
//FCS计算
FcsTmp := 0;
for i := 0 to Length(Source) do
begin
FcsTmp := FcsTmp xor Ord(Source[i]);
end;
Result := PChar(IntToHex(FcsTmp,2)); //IntToHex函数(需要转换的值,转换结果的位数)
end;