Главная страницаОбратная связьКарта сайта

Проверить страницу в TWebBrowser на локальность


procedure TForm1.Button1Click(Sender: TObject); 
begin 
  Webbrowser1.Navigate("file:///c:/test.txt"); 
end; 

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject; 
  const pDisp: IDispatch; var URL: OleVariant); 
begin 
  if Webbrowser1.Oleobject.Document.Location.Protocol = "file:" then 
  begin 
    label1.Caption := "The file is on a local drive!" 
    // label1.Caption := "Das File befindet sich auf einer lokalen Harddisk!" 
  end; 
end;


Обсудить статью на форуме


Если Вас заинтересовала или понравилась информация по разработке на Delph - "Проверить страницу в TWebBrowser на локальность", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!
   


Copyright © 2008 - 2023 Дискета.info