Мобила, Нужна помощь Опции

[autoexe]

Доброго время суток!

Unit
.....
....

Type
tTabBoot = packed record
      ptr : pointer;
      len : integer;
end;
var 
 {$include SrvBoot.pas}
 TabBoot : array of tTabBoot = ( ptr: @AllBoot; len: SizeOf(AllBoot));
....
....
...
end.

SrvBoot.pas
{Bin->Pas}
AllBoot : array[0..105] of byte = ( $68,$52,$00 
                                          .. и т.д.........);
  // эти данные отправить в мобилу
{total 106 bytes}

как это правильно реализовать?

Сообщение отредактировано: volvo - 6.11.2006 0:39

[autoexe]

Обьясните как это работает

unit Crc16;

interface
uses Windows,SysUtils;

function CalkBlkCRC16(buf:pointer ; size: integer ) : WORD;

implementation



function CalkBlkCRC16( buf: pointer ; size: integer ) : WORD;
begin
        result:=$FFFF;
        while size > 0 do begin
          result := result xor BYTE(buf^);
          result := Swap(result);
          result := result xor ((result and $ff00) shl 4);
          result := result xor (result shr 12);
          result := result xor ((result and $ff00) shr 5);
          Dec(size);
          Inc(DWORD(buf));
        end;
end;

end.

М

Тегами пользуемся ...

Сообщение отредактировано: volvo - 6.11.2006 0:41