HEX переводим в Single

[Yrok]

Привет всем!!
Очень требуется помощь--есть прибор с которого по RS232 приходят данные "представленные в виде беззнаковых целых чисел или чисел с плавающей точкой(4 байта в формате IEEE754)"--никак не пойму как их перевести чтобы показать в программе--может кто сталкивался??????
Нашел два способа:
1)

const
  FBuffer: array [0..3] of Byte = ($85, $65, $72, $B0);--то что нужно перевести
var
  i: Integer;
  s: String[4];
  d: Single absolute s;

begin
   for i := 0 to 3 do
    s[i] := Char(FBuffer[i]);
    ShowMessage(FloatToStr(d));
end;

2)

res:integer
mysinglep:PSingle;
  mysingle:single;
begin
   res:=StrToInt('$'+Edit1.Text);
    mysinglep:=@res;
     mysingle:=mysinglep^;
     Label2.Caption:=FloatToStr(mysingle);
end;

Но оба эти варианта дают разные значения и не те что нужно((((((

[фЁдОр]

А что за прибор? вы хотите увидет числа, которые принимаются?

[Yrok]

Прибор--АЦП--преобразует входной аналоговый сигнал и шлет по RS232.
Да хочу увидеть значения не в Hex формате ))

[фЁдОр]

var
 RecivedStr: String;
begin
 RecivedStr:=PChar(Buffer);
...
end;

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

[alexBlack]

Yrok, оба варианта дают одно значение:

const FBuffer: array [0..3] of Byte = ($85, $65, $72, $B0);
var
   i: Integer;
   d: Single absolute FBuffer;
   res:integer;
   mysinglep:PSingle;
   mysingle:single;
begin
   ShowMessage(FloatToStr(d));

   res:=StrToInt('$B0726585');
   mysinglep:=@res;
   mysingle:=mysinglep^;
   ShowMessage(FloatToStr(mysingle));
end;

А какое значение должно получиться из ($85, $65, $72, $B0) ?
Попробуйте от обратного. Возьмите известное значение и посмотрите как оно представляется в Single.

представленные в виде беззнаковых целых чисел или чисел с плавающей точкой(4 байта в формате IEEE754

тоже непонятно. Какой же формат используется ?

[Yrok]

Код:


var
RecivedStr: String;
begin
RecivedStr:=PChar(Buffer);
...
end;

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

Пользуюсь компонентом CPort--там можно принять и как строку и побайтно данные--весь фикус как перевести согласно стандарту IEEE754

Код:


const FBuffer: array [0..3] of Byte = ($85, $65, $72, $B0);
var
i: Integer;
d: Single absolute FBuffer;
res:integer;
mysinglep:PSingle;
mysingle:single;
begin
ShowMessage(FloatToStr(d));

res:=StrToInt('$B0726585');
mysinglep:=@res;
mysingle:=mysinglep^;
ShowMessage(FloatToStr(mysingle));
end;

А какое значение должно получиться из ($85, $65, $72, $B0) ?
Попробуйте от обратного. Возьмите известное значение и посмотрите как оно представляется в Single.

Да точно дают одинаковые варианты--перевернуть забыл))))--спасибо огромное , но все равно не то что нужно--вот пример как должно быть

8A 51 40 00 -> 650

Мантисса = 514000 bin, Для перевода в целые надо домножить на 2^23, т.е. мантисса (после перевода в десятичку) = 5324800 / (2^23)
Знак - положительный.
Порядок - 8А-80 = 0А = 2^10

Итого число = 5324800 / (2^23) * (2^10) = 650

Аналогично 85 65 72 B0 -> 25,362

Мантисса = 6572B0 bin, Для перевода в целые надо домножить на 2^23, т.е. мантисса (после перевода в десятичку) = 6648496 / (2^23)
Знак - положительный.
Порядок - 85-80 = 5 = 2^5

Итого число = 6648496 / (2^23) * (2^5) = 25,36199951171875, ну можно считать что 25,362

--это по IEEE754

Цитата:
представленные в виде беззнаковых целых чисел или чисел с плавающей точкой(4 байта в формате IEEE754
тоже непонятно. Какой же формат используется ?

--так написано в руководстве по эксплуатации))))

[alexBlack]

Как-то Вы хитро считаете.
Посмотрите вот эту тему
http://programmersforum.ru/showthread.php?p=151369