VPF::Из байта сделать два полубайта

bems

Дата 30.5.2006, 14:11 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 31
Всего: 88

Цитата(Snowy @ 30.5.2006, 10:43

)

Зачем тебе байты? string и так массив.

Нужны байты FILETIME

Цитата(ShadeSt @ 30.5.2006, 13:42

)

64 бита, это вроде всего 8мь байт (получается, что последние 8мь байт в массиве - "неопределены"??).

Так просчитаться - это задница. Но ничего не поделаешь, все уже это видели. smile

Конечно же я имел ввиду 8. Но в результате этой ошибки суть проблемы не меняется.

Цитата(ShadeSt @ 30.5.2006, 13:42

)

можно получить время, потом с помощью Format привести к нужному виду и потом добавить в memo. Может так проще будет, или инересен сам алгоритм получения строки из FileTime?

Именно так.

Цитата(ShadeSt @ 30.5.2006, 13:42

)

что делает этот код для меня, честно говоря загадка.

попытаюсь прояснить.

Код


function FileTimeToStr(ft:FILETIME):string;//ради отладки этой функции и нужен остальной код
var bytes:array[1..8] of byte absolute ft;//исправляем на 8. спасибо
    i:integer;
begin
result:='';
for i:=1 to 8 do
 result:=result+char(ord('a')+
  bytes[i] shr 4 //старшие 4 бита получаю нормально. Добавляю это значение к началу алфавита
//и получаю символ, не выходящий за пределы алфавита. Так и должно быть
  )+' '+char(ord('a')+
  bytes[i] mod 240//тут пытаюсь получить младшие 4 бита. Когда добавляю это значение
//к началу алфавита, то почему-то получаю не алфавитные символы или русаские буквы.
//в этом и проблема
  )+'    ';
end;

Цитата(ShadeSt @ 30.5.2006, 13:42

)

тут два символа и пять пробелов ( во втором случае их четыре), итого получится строка из 7*16=112 символов.

пробелы для наглядности.
цель получить строку латинских букв

--------------------

Обижено школьников: 8

ShadeSt

Дата 30.5.2006, 14:30 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 256
Регистрация: 9.8.2005
Где: Россия, г. Ставро поль

Репутация: нет
Всего: 7

Цитата

Какие последние 8 байт? (Я что то недопонимаю? )

Код


function FileTimeToStr(ft:FILETIME):string;    
var bytes:array[1..16] of byte absolute ft;

восемь байт с 9го по 16й.

Это сообщение отредактировал(а) ShadeSt - 30.5.2006, 14:31

--------------------

It's nice to be importand, but it's more importand to be nice © Scooter

Yanis

Дата 30.5.2006, 14:38 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

Цитата(ShadeSt @ 30.5.2006, 15:30

)

восемь байт с 9го по 16й.

А ты про это! Понял smile

--------------------

*щёлк*

ShadeSt

Дата 30.5.2006, 14:50 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 256
Регистрация: 9.8.2005
Где: Россия, г. Ставро поль

Репутация: нет
Всего: 7

Дело в том, что ошибка в этой строке:

Цитата(bems @ 30.5.2006, 14:11

)

bytes[i] mod 240//тут пытаюсь получить младшие 4 бита. Когда добавляю это значение

например: 50 Mod 240 = 50, т.к. остаток от деления равен пятидесяти, попробуй написать так, как советовали выше, например так:

Код


begin
result:='';
  for i := 1 to 8 do
    Result := Result + chr(ord('a') + (bytes[i] shr 4  )) + ' ' +
                       chr(ord('a') + (bytes[i] and $0F)) + '    ';
end;

--------------------

It's nice to be importand, but it's more importand to be nice © Scooter

bems

Дата 30.5.2006, 15:02 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 31
Всего: 88

Mod 240 - это вариант, когда я уже отчаился. Тут еще раз прогнал, это понятно. Как советовали выше (and $0F), сделал и заработало, спасибо.

Волнует вот что. До этого было ((bytes[i] shl 4 ) shr 4) и не работало, хотя по логике вещей должно, и выше писали то же самое. Кто-нить может это объяснить?

--------------------

Обижено школьников: 8

ShadeSt

Дата 30.5.2006, 17:20 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 256
Регистрация: 9.8.2005
Где: Россия, г. Ставро поль

Репутация: нет
Всего: 7

ИМХО при выполнении

Код


  (bytes[i] shl 4) shr 4

дельфи, по всей видимости приводит результат операции (bytes[i] shl 4)
к типу Integer, и поэтому получается , что результат не меняется.
можно делать так:

Код


  byte(bytes[i] shl 4) shr 4

для явного приведения типа, либо так:

Код


  (bytes[i] shl 28) shr 28

для того, что бы вылезти за границу Integer'а

--------------------

It's nice to be importand, but it's more importand to be nice © Scooter

ShadeSt

Дата 30.5.2006, 17:55 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 256
Регистрация: 9.8.2005
Где: Россия, г. Ставро поль

Репутация: нет
Всего: 7

Вот. я нашел, я просто разул глаза и посмотрел справку:

Код


Operator    Operation    Operand types    Result type    Examples
shl    bitwise shift left    integer    integer    X shl 2
shr    bitwise shift right    integer    integer    Y shr I

т.е. тут операнды сразу приводятся к типу Integer, поэтому такое, на первый взгляд странное поведение.

--------------------

It's nice to be importand, but it's more importand to be nice © Scooter

bems

Дата 30.5.2006, 18:40 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 31
Всего: 88

спасибочки

--------------------

Обижено школьников: 8

Guedda

Дата 31.5.2006, 10:11 (ссылка)

(нет голосов)

Загрузка ...

Подрывник

Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 14
Всего: 78

А если сделать просто:

Код


var
  bh, bl : Byte;
begin
  asm
    mov  byte ptr bh, ah
    mov  byte ptr bl, al
  end;
end;

Как я понимаю в ah хранятся старшие 4 бита, а в al - младшие. Просто их кинуть в переменные, да и всё тут )
Если не правильно, поясните.

--------------------

Ll 2

Yanis

Дата 31.5.2006, 10:25 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

Guedda
Нужно получить именно эти bh и bl, на сколько я понимаю smile

--------------------

*щёлк*

Mechanic

Дата 31.5.2006, 11:06 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 228
Регистрация: 5.5.2006
Где: Kharkov, Ukraine

Репутация: 6
Всего: 7

Цитата(Rennigth @ 30.5.2006, 10:21

)

негде сейчас посмотреть, sar это что?

Цитата(bems @ 30.5.2006, 10:21

)

C этого моменто поподробнее

sar - почти тот же shr, только с сохранением старшего бита (арифметический сдвиг), для корректной работы с отрицательными значениями.
Так вот, если написать

Код


//a: integer;
a := -7 shr 1;

Что должно получиться? smile

Ни за что не угадаете..

--------------------

Guedda

Дата 31.5.2006, 16:20 (ссылка)

(нет голосов)

Загрузка ...

Подрывник

Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 14
Всего: 78

Цитата(Mechanic @ 31.5.2006, 12:06

)

Что должно получиться? smile Ни за что не угадаете..

Получится 3.

--------------------

Ll 2

Yanis

Дата 31.5.2006, 16:54 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

Нека, -4

Это сообщение отредактировал(а) Yanis - 31.5.2006, 16:56

--------------------

*щёлк*

Mechanic

Дата 31.5.2006, 23:33 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 228
Регистрация: 5.5.2006
Где: Kharkov, Ukraine

Репутация: 6
Всего: 7

Точно, -4.. smile

    11111111111111111111111111111001 = -7

По идее, должно быть
    01111111111111111111111111111100 = 2147483644

но имеем
    11111111111111111111111111111100 = -4

Но если сделаем

Код


a := -7;
a := a shr 1;

Тогда все считается кардинально наоборот! smile

--------------------

Yanis

Дата 1.6.2006, 11:25 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

Цитата(Mechanic @ 1.6.2006, 00:33

)

Тогда все считается кардинально наоборот!

Да. Странно, что в первом случае считается некорректно.

Код

Shifts the destination right by "count" bits with zeroes shifted in on the left.  The Carry Flag contains the last bit shifted out.

Это сообщение отредактировал(а) Yanis - 1.6.2006, 11:26

--------------------

*щёлк*

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »