Question

我已经研究了如何用Delphi IHTTPSECURITY实现TWebBrowser接口。我正在尝试通过https导航到站点。该站点具有自签名证书。我希望避免在浏览器中弹出/显示安全警告。

如果我将浏览器的silent模式切换为true，则不再弹出安全对话框，但是浏览器会自动选择“否”作为对“是否要继续”问题的回答。 >

我认为解决此问题的方法是通过IHTTPSecurity接口。我找到了用于EmbeddedWB（why-doesnt-queryservice-get-called-for-ihttpsecurity-when-using-tembeddedwb）的代码。我尝试为TWebBrowser实现此功能，但是onSecurityProblem函数不会触发。我的代码如下：

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.OleCtrls, Vcl.StdCtrls, SHDocVw, ActiveX, Winapi.Urlmon, Winapi.WinInet;

  type TWebBrowser = class(SHDocVw.TWebBrowser, IHTTPSecurity, IWindowForBindingUI)
  private
    function GetWindow(const guidReason: TGUID; out hwnd): HRESULT; stdcall;
    function OnSecurityProblem(dwProblem: Cardinal): HRESULT; stdcall;
  end;


type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses System.NetEncoding;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
  var
    Flags, TargetFrameName, PostData, headers, url:OleVariant;
    authenticate:string;
begin
  webBrowser1.Navigate('about:blank');
  Flags := '1';
  TargetFrameName := '';
  PostData := '';

  Authenticate := TNetEncoding.Base64.Encode('MediaUser:test');
  Headers:='Authorization: Basic '+Authenticate;
  webBrowser1.Navigate(Edit1.text, flags, TargetFrameName, PostData, headers);
end;

function TWebBrowser.GetWindow(const guidReason: TGUID;
  out hwnd): HRESULT;
begin
  Result := S_FALSE;
end;


function TWebBrowser.OnSecurityProblem(dwProblem: Cardinal): HRESULT;
begin
  if (dwProblem = ERROR_INTERNET_INVALID_CA) or
     (dwProblem = ERROR_INTERNET_SEC_CERT_CN_INVALID)
    then Result := S_OK
    else Result := E_ABORT;
end;

end.

我在做什么错了？

作为附带的问题，当上述应用终止时，我得到一个未指定的EoleException。

使用IHTTPSecurity在Web浏览器中绕过自签名证书

0 个答案: