NaN根據Python啓動給出錯誤？

Question

我正在使用Python4Delphi將Python嵌入到Delphi程序中。版本：Python 2.6.4，Delphi 2009，Windows XP。

導入json時，Delphi程序與EInvalidOp崩潰。我把它跟蹤到線

NaN, PosInf, NegInf = float('nan'), float('inf'), float('-inf') 

在 json.decoder

。

果然，命令float('nan')在嵌入Delphi程序中的Python中運行時產生了一個EInvalidOp。當在命令行Python（相同的安裝）中執行時，它僅返回nan。

任何想法Python標準啓動和嵌入式啓動之間有什麼區別可能導致這樣的錯誤？

Answer 1

這很可能是Python使用與Delphi不同的8087 control word（CW）設置。

嘗試這種代碼：

var 
    OldControlWord: Word; 
begin 
    OldControlWord := Get8087CW(); 
    Set8087CW($133F); 
    try 
    // perform your Python code here 
    finally 
    Set8087CW(OldControlWord);  
    end; 
end; 

見我blog article on the 8087 CW in Delphi爲$ 133F值的更詳細的解釋。
它需要JCL爲T8087Precision類型（它在Jcl8087單位）。

--jeroen

Answer 2

我使用以下命令： $ 1332的德爾福默認。 $ 1232是處理Python Issue 9980的價值。

procedure MaskFPUExceptions(ExceptionsMasked : boolean); 
begin 
// if ExceptionsMasked then 
// Set8087CW($1332 or $3F) 
// else 
// Set8087CW($1332); 
    if ExceptionsMasked then 
    Set8087CW($1232 or $3F) 
    else 
    Set8087CW($1232); 
end;