| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как переделать код расчета CRC32? [D7, WinXP]
Aleksandr. © (2004-08-05 14:41:00)У меня раньше был асмовский код и паскалевский код. Но понадобилось написать ряд библиотечек для сайта на Delphi .Net, а в ней не поддерживаются ни asm ни absolute. Паскалевский код
function CalculateCRC32(var buffer; const size:integer): cardinal;
var
i : integer;
data : array [0..0] of byte absolute buffer;
begin
result:=$FFFFFFFF;
for i:=0 to size-1 do result:=(result shr 8) xor (CRC32Table[byte(result) xor data[i]]);
result:=result xor $FFFFFFFF
end;
Вот без поддержки absolute мне никак не получается свести data с buffer. Как это можно сделать еще? Delphi .Net вообще какая-то долбанутая с поддержкой - в хелпе у нее все есть, расписывается, для чего нужны asm, absolute, а компилятор нафиг посылает, утверждает, что инвалидная директива.
Aleksandr. (2004-08-05 15:28:00) [1]Усе, привел падлу. Засчитала...
Aleksandr. (2004-08-05 15:01:00) [2]Шиш, пробовал я такое. Не разрешает .Net нетипизированный присваивать массиву байт. А если наколоть ее и сделать так:
Data:=PByteArray(Buffer),
то она скажет вот в этой строчке
result:=(result SHR 8) XOR (CRC32Table[byte(result) XOR data[i]]);
что array type required.
REA (2004-08-05 14:46:00) [3]Что-то типа такого:
Var
Data: PByteArray;
Data := Buffer;
| |
