Как проверить, является ли текущее соединение в 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

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com