Delphi - база знаний


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

Взято с сайта



Начало  Назад  Вперед



Книжный магазин