Manualy Set R_HOME Cause Error in loading DLL...etc

[crystalxp]

Thanks for your good library...this lib is very cool. i want to report some bugs(maybe?...) When Manualy Set R_HOME in Windows setting , then program can't load dll successful...

and I think use {$IFDEF Win64} in lib better than {$IFNDEF CPUX64} and TOSVersion.Architecture to get right r.dll for app (win32 app load x32 dll, and win64 app load x64 dll)

[rlsdevine]

Thanks for your feedback - I'm hoping to get back onto this in a few weeks and will take a look at your report.

[crystalxp]

helllo,I finally find why this bug happend: because of the .FindRPaths has a logical bug:

the fixed function is below:

// ------------------------------------------------------------------------------ class procedure TNativeUtility.FindRPaths(var path: string; var homeDir: string; logger: TStringList); var printPath: string; printHome: string; begin if path = '' then printPath := 'null' else printPath := path; if homeDir = '' then printHome := 'null' else printHome := homeDir; logger.Add(Format('Caller provided path = "%s", homeDir = "%s"', [printPath, printHome]));

if homeDir = '' then begin homeDir := GetEnvironmentVariable('R_HOME'); if homeDir = '' then printHome := 'null' else printHome := homeDir; logger.Add(Format('opaR looked for preset R_HOME env. var. and found: "%s"', [printHome])); end;

if homeDir = '' then begin homeDir := FindRHome(path, logger); if homeDir = '' then printHome := 'null' else printHome := homeDir; logger.Add (Format('opaR looked for platform-specific way (e.g. win registry) and found: "%s"', [printHome])); end;

if homeDir = '' then logger.Add ('Error: R_HOME was not provided and a suitable path could not be found by opaR');

if not(homeDir = '') then begin if path = '' then begin path := FindRPath(homeDir); if path = '' then printPath := 'null' else printPath := path; logger.Add (Format('opaR trying to find rPath based on rHome; Deduced: "%s"', [printPath])); end;

if path = '' then
begin
  path := FindRPath;
  if path = '' then
    printPath := 'null'
  else
    printPath := path;
  logger.Add
    (Format('opaR trying to find rPath independently of rHome; Deduced: "%s"',
    [printPath]));
end;

end else begin homeDir := FindRHome(path); if homeDir = '' then printHome := 'null' else printHome := homeDir; logger.Add(Format('opaR trying to find rHome based on rPath; Deduced: "%s"', [printHome])); end; end;

[crystalxp]

and I find another bug in win64 app when excute some case, and i post that bug as another issue. please check it , thanks.