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