Как проверить является ли текущее соединение в TWebBrowser secure (SSL)?
01.01.2007
// 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;
Взято с сайта https://www.swissdelphicenter.ch/en/tipsindex.php