Как проверить является ли текущее соединение в TWebbrowser secure (SSL)?
Как проверить является ли текущее соединение в 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;
Взято с сайта
