TEmbeddedwb的一個小bug

2019-11-18 18:11:39

字體：大中小

來源：轉載

供稿：網友

這幾天不知道是不是人品出了問題，老是遇上一些小bug。
    昨天在公司里寫了一個有瀏覽網頁代碼的小程序，圖方便，使用的是TEmbeddedwb控件，這個控件在delphi自帶的TWebBrowser控件上又提供了一些選項和方法。
    拿回家以后打開這個工程，在打開瀏覽頁面窗口的時候卻出錯了：“Error Creating Form:'' is not a valid floating point value”。這個窗口上沒有其他控件，就只有TEmbeddedWB控件，看情況應該是打開窗口時裝載該控件時出的錯，而錯誤應該是發生在作字符轉換到float型時出現的。
    新建一個工程，放上一個TEmbeddedWB控件，滅有問題啊。關掉后再打開，問題重現了。
    打開EmbeddedWB.pas單元，首先查找StrToFloat函數，呵，還好，只有兩個地方用到，一看都是在GetPRintValues函數用的，函數內容如下：
procedure TembeddedWB.GetPrintValues;
var
S: string;
regWinRegistry: TRegistry;

function ReadMargin(key: string): Real;
begin
    S := RegwinRegistry.ReadString(key);
    S := Stringreplace(S, ' ', '', [rfReplaceAll]);
    if DecimalSeparator <> '.' then
      S := Stringreplace(S, '.', DecimalSeparator, []);
    if Printoptions.Measure = mMetric then
      result := StrtoFloat(S) * InchToMetric else
      result := StrtoFloat(S);
end;

begin
regWinRegistry := TRegistry.Create;
try
    with regWinRegistry do begin
      RootKey := HKEY_CURRENT_USER;
      if OpenKey('Software/Microsoft/Internet Explorer/PageSetup', False) then
      begin
        PrintOptions.Header := Readstring('header');
        PrintOptions.Footer := ReadString('footer');
        PrintOptions.Margins.left := ReadMargin('margin_left');
        PrintOptions.Margins.right := ReadMargin('margin_right');
        PrintOptions.Margins.top := ReadMargin('margin_top');
        PrintOptions.Margins.bottom := ReadMargin('margin_bottom');
      end;
    end;
finally
    regWinRegistry.Free;
end;
end;

    這個函數是在注冊表中去取IE的打印設置，打開注冊表一看，果然沒有'margin_left'這四個項，加上這四個字符串值，并賦上初值0。打開窗口。OK。高興之余也不禁感慨，這個xp的操作系統裝上以后還滅怎么摧殘過，照理這四個鍵不是偶搞掉的，也就說系統裝上就沒有的，到底是microsoft人品有問題還是偶人品有問題已經不重要了，可是偶現在才明白，原來大師的程序也有bug啊，為什么不用StrToFloatDef函數哩？
    今天在公司機器上一看，果然有這四個鍵，每個值為0.75。

    小bug一個，僅作記錄，以供有同樣情形的同志參考。