как прочитать 4 байта как float? / FoxPro, Visual FoxPro

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / как прочитать 4 байта как float?

8 сообщений из 8, страница 1 из 1

как прочитать 4 байта как float?

#39912930

admpos

Гость

Доброго времени суток!
Читаю бинарный файл. Очередной блок - 4 байта, которые нужно перевести во float. Fox v9 через ctobin(fread(hfile, 4), '4RS') отлично переводит в integer, а как во float - до меня не доходит.
С примерами выглядит так. Hex: 30 A6 F7 40; int: 1089971760; нужный float: 7.739037.
Как вариант - перевести во float не hex, а уже вот этот int.
Подскажите плиз, в какую сторону вообще смотреть. Может, у фокса есть встроенная функция? Заранее спасибо :)

...

Рейтинг:

0 / 0

12.01.2020, 06:42

| Ответить | Цитировать | Написать

как прочитать 4 байта как float?

#39912946

Dima T

Участник

Сообщения: 15 530

Рейтинг: 0 / 0

Встроенных функций нет. Проще всего написать на С такую функцию и вызывать ее из DLL.

Можно заморочиться переводном из int. Структура float

...

Рейтинг:

0 / 0

12.01.2020, 11:41

| Ответить | Цитировать | Написать

как прочитать 4 байта как float?

#39912999

Dima T

Участник

Сообщения: 15 530

Рейтинг: 0 / 0

Накидал по-быстрому, вроде работает

Код: sql

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.

proc ToFloat
lpara tcN
local lnI, lnM, lnP
lnI = ctobin(tcN, '4RS')
lnM = bitand(lnI, 8388607) + 8388608 && Мантисса
lnP = bitrshift(lnI, 23) - 127 && Порядок
if lnP > 255 && отрицательное
	lnM = -lnM
	lnP = lnP - 256
endif
return lnM * (2^(lnP - 23))

Пользоваться так

Код: sql

? ToFloat(chr(48) + chr(166) + chr(247) + chr(64)) && Hex: 30 A6 F7 40

...

Рейтинг:

0 / 0

12.01.2020, 16:46

| Ответить | Цитировать | Написать

как прочитать 4 байта как float?

#39913184

admpos

Гость

Dima T, спасибо, работает! :)

споткнулось на одном значении: F42576BF -> -0.9615166
т.е. должно быть вот так:

Код: sql

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.

proc ToFloat
lpara tcN
local lnI, lnM, lnP
lnI = ctobin(tcN, '4RS')
lnM = bitand(lnI, 8388607) + 8388608 && Мантисса
lnP = bitrshift(lnI, 23) - 127 && Порядок
if lnP >= 255 && отрицательное
	lnM = -lnM
	lnP = lnP - 256
endif
return lnM * (2^(lnP - 23))

...

Рейтинг:

0 / 0

13.01.2020, 13:07

| Ответить | Цитировать | Написать

как прочитать 4 байта как float?

#39913212

Dima T

Участник

Сообщения: 15 530

Рейтинг: 0 / 0

Забыл что 127 вычитается, правильно так

Код: sql

if lnP > 128 && отрицательное

т.к. для отрицательного bitrshift(lnI, 23) минимум 256, а 256-127=129

...

Рейтинг:

0 / 0

13.01.2020, 13:58

| Ответить | Цитировать | Написать

как прочитать 4 байта как float?

#39926210

admpos

Гость

Я, конечно, понимаю, что это наглость с моей стороны, но все равно рискну :)
Можно попросить такую же функцию, только в обратную сторону? float -> hex. Заранее спасибо!

...

Рейтинг:

0 / 0

13.02.2020, 12:57

| Ответить | Цитировать | Написать

как прочитать 4 байта как float?

#39926549

Dima T

Участник

Сообщения: 15 530

Рейтинг: 0 / 0

На фоксе писать долго. В аттаче dll, используй ее.

Код: sql

1.
2.
3.
4.
5.
6.
7.
8.
9.

* Объявление достаточно один раз сделать
declare double int2float in int2float.dll integer
declare integer float2int in int2float.dll double

*  Использование
lnF = int2float(ctobin(chr(48) + chr(166) + chr(247) + chr(64), '4RS'))
? lnF
lnI = float2int(lnF)
? transform(lnI, '@0') && или bintoc(lnI, '4RS')

...

Рейтинг:

0 / 0

14.02.2020, 09:02

| Ответить | Цитировать | Написать

как прочитать 4 байта как float?

#39926747

admpos

Гость

Спасибо! :)

...

Рейтинг:

0 / 0

14.02.2020, 15:08

| Ответить | Цитировать | Написать

8 сообщений из 8, страница 1 из 1

Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / как прочитать 4 байта как float?

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=41&fpage=5&tid=1581585]:	0ms
get settings:	10ms
get forum list:	15ms
check forum access:	5ms
check topic access:	5ms
track hit:	38ms
get topic data:	15ms
get forum data:	3ms
get page messages:	51ms
get tp. blocked users:	2ms
others:	13ms

total:	157ms