Сейчас на форуме: tyns777, zds, JustLife, 2nd, morgot, Rio (+4 невидимых)

 eXeL@B —› Программирование —› Помогите вывести
Посл.ответ Сообщение

Ранг: 60.6 (постоянный), 20thx
Активность: 0.07↘0
Статус: Участник

 Создано: 20 августа 2009 13:00 · Поправил: s0l
· Личное сообщение · #1

Суть проблемы:
Делфи.
Считываю 4 байта
ReadProcessMemory(HandleWindow, ptr($008910CD), @buf, 4, NumberOfBytes);

В buf падает 00 20 9D 44
Теперь мне нужно вывести это значение на Label1 в виде Float числа, чтобы получилось 1257, что у меня никаким образом не получается




Ранг: 533.6 (!), 232thx
Активность: 0.45↘0
Статус: Uploader
retired

 Создано: 20 августа 2009 14:13
· Личное сообщение · #2

Code:
  1. var
  2.   e: extended;
  3. begin
  4.   asm
  5.     mov eax, buf
  6.     bswap eax
  7.     fld eax
  8.     fstp e
  9.   end;
  10.   Label1.Caption := FloatToStr(e);
  11. end;


-----
Лучше быть одиноким, но свободным © $me

Ранг: 101.0 (ветеран), 344thx
Активность: 1.15↘0
Статус: Участник

 Создано: 20 августа 2009 14:39
· Личное сообщение · #3

Делфи это НЕ низкоуровнее программирование.


 eXeL@B —› Программирование —› Помогите вывести
Эта тема закрыта. Ответы больше не принимаются.
   Для печати Для печати