Aktuális protokol típusának meghatározása a WebBrowser komponensben

Miután feltettünk a Form-ra egy WebBrowser komponenst, először is azt kell megoldanunk, hogy egy-egy web helyet megjelenítsen. Ehhez használhatjuk a Navigate függvényt, melyben paraméterként a betöltendő web hely címét kell megadnunk.

procedure TForm1.Button1Click(Sender: TObject);
begin
  WebBrowser1.Navigate('http://www.SoftwareOnline.hu');
end;

Amikor a web hely betöltése befejeződött, akkor jön létre az OnNavigateComplete2 esemény. Ettől kezdve WebBrowser komponensen keresztül lekérdezhetjük az adott web hely által használt protokolt. Ezt az információt a Document objektum Location property-jének Protocol property-je árulja el, mely sztringként tárolja a protokol megnevezését, amelyből következtethetünk, hogy az adott web hely használ-e SSL titkosítást a kommunikáció során.

procedure TForm1.WebBrowser1NavigateComplete2(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  if Webbrowser1.Oleobject.Document.Location.Protocol='https:' then begin
    Label1.Caption:='SSL kapcsolat';
  end else begin
    Label1.Caption:='Nem SSL kapcsolat';
  end;
end;