Как проверить является ли текущее соединение в TWebbrowser secure (SSL)? |
Previous Top Next |
Code: |
// 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; |
©Drkb::03457
Взято с сайта http://www.swissdelphicenter.ch/en/tipsindex.php