Как проверить является ли текущее соединение в TWebbrowser secure (SSL)?

// You need a TWebbrowser, a TLabel
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
 const pDisp: IDispatch; var URL: OleVariant);
begin
 if Webbrowser1.Oleobject.Document.Location.Protocol = 'https:' then
  label1.Caption := 'Sichere Verbindung'
 else
  label1.Caption := 'Unsichere Verbindung'
end;

Взято с сайта http://www.swissdelphicenter.ch/en/tipsindex.php

Отправить комментарий

Проверка
Антиспам проверка
Image CAPTCHA
...