Советы по Delphi

Пирожные на заказ на сайте tortynazakazspb.ru. |

Байтовый своппинг


Ознакомьтесь в файле помощь Delphi с функцией Swap. Но там в определении есть опечатка, правильно будет так:

    function Swap(X) : word;

Ниже приведен пример использования:

    var
X: Word; begin
X := Swap($1234);   { $3412 } end;

на первый взгляд ничего сложного.

Для своппинга 16-битного целого или слова, используйте следующий код:

    value: integer; value := swap(value); {внутренняя паскалевская функция}

Для свапирования 32-битного длинного целого:

    value: longint; value := swap(value shr 16) or (longint(swap(value and $ffff)) shl 16);

Я не знаю какие стандарты используются для значений с плавающей точкой, но если они соответствуют типам integer и longint (это моя догадка), то можно воспользоваться следующим кодом (для double):

    value: double; block: array[0..7] of byte absolute value; temp:  byte;
for i := 0 to 3 do begin temp := block[i]; block[i] := block[7-i]; block[7-i] := temp; end;

При использовании типа real массив должен быть 0..5 и цикл от 0 до 2; при использовании типа comp, 0..7 и от 0 до 3; для single 0..3 и от 0 до 1; для extended 0..9 и от 0 дo 4.

Вы можете переделать это в процедуру, которая получает указатель на значение и его размер, например (возможно нуждается в оптимизации и улучшении):

    procedure swapper (valin: pointer; size: integer); var i: integer; temp: byte; val:  ^byte; begin size := size - 1; val := valin; for i := 0 to (size div 2) do begin temp := val[i]; val[i] := val[size-i]; val[size-i] := temp; end; end;

и затем так использовать это:

    swapper (@value, sizeof(value));

(Это должно работать для longint, integer и пр., но swap() более эффективен.)

Обратите внимание на то, что дополнительно к своппингу байтов, вы можете делать преобразование формата (например, из Microsoft floating point в ANSI); я не знаком глубоко с темой чисел с плавающей точкой, поэтому эту тему я опущу. Качественной проверкой может служить сдиг байтов и проверку получившегося значения на другой системе, признающей формат чисел, обрабатываемый Delphi.

...у меня была аналогичная проблема: я считывал с диска TColor в формате RGB ($RRGGBB), тогда как delphi пользуется форматом BGR.

Я решил свою проблему and'ингом начального числа с маской, извлекая этим необходимые значения и "устанавливая" их в мой формат. Вот так:

    color := $F03200;
r := (color and $FF0000) div $010000; {должно возвратить $F0}
g := (color and $00FF00) div $000100; {должно возвратить $32}
b := (color and $0000FF);             {должно возвратить $00}
newcolor := (b * $010000) + (g * $000100) + b;

Если это сработает, то newcolor должен содержать $0032F0.

Вы можете использовать процедуру, написанную на языке ассемблер. Например, такую:

    var
result : byte;
asm {
mov cx,8 mov ah,0 mov al,<БАЙТ В ФОРМАТ BIG ENDIAN FORMAT> @do_loop
shr al,1 shl ah,1 jcc @dont_set_bit  ; просто осуществляем переход (правда, я не уверен что это правильно) xor ah,1 @dont_set_bit:
loop do_loop mov result,al }

Это скорее псевдо-код (поскольку мой ассемблер сильно хромает). Если вы хотите, чтобы код был более "портативным", то воспользуйтесь вместо inline-ассемблера паскалем (где можно использовать SHL - смещения бит налево и SHR - направо). [001970]




Начало  Назад  Вперед



Книжный магазин