delphi “Invalid floating point operation.”錯誤的解決方案

這兩天用webbrower寫東西，有時候開啟SSL加密網站時會出現”Invalid floating point operation.”的錯誤，上網搜了下，把解決方案貼上。

 

導致原因


在Delphi2011中需要通過浮點單位控制指令設定浮點運算單位。浮點單位控制指令控制著浮點運算的精度、四捨五入的方式以及特定的浮點運算是否觸發異常。可以參閱Intel處理器的詳細文檔。

在Delphi2011中有函數可以直接存取處理器的控制指令。比如，可以使用Set8087CW函數改變8087CW控制指令的值，從而改變程式浮點計算的行為。編程人員需要自己負責在程式結束時重設這個指令。

 

 

解決辦法，就是直接禁用浮點異常，方法如下：
在在Delphi2011中，當使用OpenGL進行3D渲染時，推薦使用Set8087CW函數禁用浮點異常。可以在調用OpenGL函數之前，比如在mainForm的OnCreate的過程中寫入: Set8087CW(0x133f)
執行個體代碼：
1.聲明全域的變數儲存原有的8087CW設定
var
Saved8087CW: Word;
2.在mainForm的OnCreate過程中改變8087CW的值，改變之前先儲存預設值
Saved8087CW := Default8087CW;
Set8087CW($133f); { Disable all fpu exceptions }
3.在程式結束前，使用預設值重設8087CW指令值。在mainForm的OnClose過程中
Set8087CW(Saved8087CW);
4.還有一點需要注意，如果在程式中使用了SceneControl.LoadSxFile載入了3D文檔，那麼必須在程式退出時，在Set8087CW之前調用IScene的ClearLayers方法清除圖層，否則程式在退出時會出現異常。
參考代碼為：
SceneControl1.Scene.ClearLayers;
Set8087CW(Saved8087CW);
5.還有在程式退出之前需要調用如下語句
(CoAoInitialize.Create as IAoInitialize).Shutdown