TRVMicrophone causes blank FMX app to crash on startup

[kingdomsrl]

Hi. I'm trying to build a simple audio recorder by using TRVMicrophone, but including this component on a blank FMX project causes it to crash. This was tested for Windows platform, using Delphi 11.3 and RVMedia FMX version 9.3 with source code.

When running the blank project with debugger it shows "Range check error" and points to line 4173 on fmxMRVCamView:

Code: Select all

Screen_Cursors[crSRV_MOVE_LEFT] := LoadCursor(HInstance, 'CURLEFT');

Not sure what the relation is between TRVCamView and TRVMicrophone though.

[Sergey Tkachenko]

Please change all calls of for FireMonkey, from {$IFDEF FIREMONKEY} to {$ELSE} to

Code: Select all

  Screen_Cursors[crSRV_MOVE_LEFT] := crArrow;
  Screen_Cursors[crSRV_MOVE_RIGHT] := crArrow;
  Screen_Cursors[crSRV_MOVE_UP] := crArrow;
  Screen_Cursors[crSRV_MOVE_DOWN] := crArrow;
  Screen_Cursors[crSRV_MOVE_LEFTDOWN] := crArrow;
  Screen_Cursors[crSRV_MOVE_LEFTUP] := crArrow;
  Screen_Cursors[crSRV_MOVE_RIGHTDOWN] := crArrow;
  Screen_Cursors[crSRV_MOVE_RIGHTUP] := crArrow;
  Screen_Cursors[crSRV_MOVE_CENTER] := crArrow;
  Screen_Cursors[crSRV_MOVE_STOP] := crArrow;

It will be fixed in the next update.

[kingdomsrl]

It works now. Thanks.