IW.Browser.Browser,IW.Browser.InternetExplorer

最新推荐文章于 2018-10-05 13:53:35 发布

youyidianmimang

最新推荐文章于 2018-10-05 13:53:35 发布

阅读量346

点赞数 1

procedure TIWServerController.IWServerControllerBaseBrowserCheck(  aSession: TIWApplication; var rBrowser: TBrowser);var MinVersion:Single;begin // If is IE, but older version  if (( rBrowser is TInternetExplorer ) and ( not rBrowser.IsSupported )) then  begin    MinVersion := rBrowser.MinSupportedVersion;    rBrowser.Free;    // We will create it as the minimum supported version    rBrowser := TInternetExplorer.Create(MinVersion);  end;end;

uses IW.Browser.Browser,IW.Browser.InternetExplorer;

procedure TIWServerController.IWServerControllerBaseBrowserCheck(
  aSession: TIWApplication; var rBrowser: TBrowser);
var MinVersion:Single;
begin
 // If is IE, but older version
  if (( rBrowser is TInternetExplorer ) and ( not rBrowser.IsSupported )) then
  begin
    MinVersion := rBrowser.MinSupportedVersion;
    rBrowser.Free;

    // We will create it as the minimum supported version
    rBrowser := TInternetExplorer.Create(MinVersion);
  end;
end;