无效的浮点运算

Question

我一直收到这个错误"无效浮点运算"。

我在德尔福7。

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
TlHelp32, Dialogs, StdCtrls, ExtCtrls, Buttons, ComCtrls;
var //global
PHandle, cancel, bytes, scantype: integer;

procedure Tmain.scanbtnClick(Sender: TObject);
    var max, address: Integer;
    floatinput, floatinput1, floatinput2, datafloat: Real;
    x: cardinal;
    itm: TListItem;
begin
  floatinput := StrToFloat(Trim(valueinput.Text));
  floatinput1 := StrToFloat(Trim(valueinput1.Text));
  floatinput2 := StrToFloat(Trim(valueinput2.Text));
  if floatinput2 < floatinput1 then
  begin
    floatinput1 := floatinput1 + floatinput2;
    floatinput2 := floatinput1 - floatinput2;
    floatinput1 := floatinput1 - floatinput2;
  end;
  result.Show;
  x := 0;
  address := 0;
  result.resultlist.Clear;
  repeat
    Application.ProcessMessages;
    statusbar1.Panels.Items[1].Text := 'Searching... ' + IntToStr(address * 100 div max) + '% (' + IntToStr(address div bytes) + ' out of ' + IntToStr(max div bytes) + ').';
    if ReadprocessMemory(PHandle, Ptr(address), @datafloat, bytes, x) then
      begin
        if (x > 0) then
        begin
          if scantype = 0 then
          begin
            if datafloat = floatinput then             //error here
            begin
              itm := result.resultlist.Items.Add;
              itm.Caption := '0x' + IntToHex(address,8);
              itm.SubItems.Add(FormatFloat('0.0#########', datafloat));
            end;
          end;
          if scantype = 1 then
          begin
            if datafloat > floatinput              //also here
            then begin
              itm := result.resultlist.Items.Add;
              itm.Caption := '0x' + IntToHex(address,8);
              itm.SubItems.Add(FormatFloat('0.0#########', datafloat));
            end;
          end;
          if scantype = 2 then
          begin
            if datafloat < floatinput     //here too
            then begin
              itm := result.resultlist.Items.Add;
              itm.Caption := '0x' + IntToHex(address,8);
              itm.SubItems.Add(FormatFloat('0.0#########', datafloat));
            end;
          end;
          if scantype = 2 then
          begin
            if (dataint <= intinput2) and (dataint >= intinput1)    //even here
            then begin
              itm := result.resultlist.Items.Add;
              itm.Caption := '0x' + IntToHex(address,8);
              itm.SubItems.Add(FormatFloat('0.0#########', datafloat));
            end;
          end;
        end;
      end;
    if x <> 0
    then address := address + x
    else address := address + bytes;
  until (address >= Max) or (cancel = 1);
end;

我甚至检查了cpu窗口，这是因为它试图从指向空值的指针加载浮点值。

它不是ReadMemory，因为这段代码在while循环中，它在遇到此错误之前返回了几个有效值。

我该怎么办？

提前谢谢。

Answer 1

我们可以看到代码中存在两个潜在的问题。

首先，您不检查ReadProcessMemory的返回值。由于各种原因，这个电话可能会失败。由于您不检查错误，因此无法知道函数调用是否成功。始终检查API调用是否成功。阅读MSDN上的文档来了解如何做到这一点。通常这涉及到检查函数返回值，就像这里的情况一样。如果函数失败，则浮点变量可能包含未初始化的数据，并可能导致错误。

另一个问题是datafloat是通过从另一个进程读取字节来填充的。如果这些字节不代表有效的浮点值，那么如果您尝试对该值进行操作，将引发异常。并非所有的位模式都表示有效的浮点值。例如，您可能偶然发现了一个信号NaN值。也许您应该将其与CompareMem进行比较，因为您似乎正在读取任意内存，这看起来像是在对其他程序进行逆向工程。通过逐位比较进行测试将避免将无效值加载到浮动寄存器的风险。

最后，我不知道你对null测试浮点值是什么意思，不管null是什么。浮点值是不可为空的。你很可能在那里有重大误解。