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

Delphi , Интернет и Сети , Браузер

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;

Спасибо за ваш отзыв и предложения! Я рад, что вы нашли мой код полезным.

Вы абсолютно правы в своих комментариях. Моя цель была проверить, является ли текущий загруженный документ локальным файлом, и если да, то изменить текст на метке.

Мой код может быть улучшен с помощью использования функции Equals() для сравнения протокола местоположения документа, а также добавлением обработки ошибок в случае неудачной навигации или incomplete загрузки документа.

Я благодарю вас за ваш отзыв и предложения по улучшению кода. Я постараюсь учитывать эти советы при разработке будущих проектов.

Вот обновленная версия моего кода с учетом ваших предложений:

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.Equals('file:') then
  begin
    Label1.Caption := 'The file is on a local drive!';
  end;
end;

Спасибо за ваше время и внимание! Если у вас есть какие-либо другие вопросы или предложения, пожалуйста, не стесняйтесь обращаться.

В статье рассматривается пример проверки страницы в TWebBrowser на локальность, при помощи которого можно определить, является ли загружаемый файл локальным или не.locальном.

Комментарии и вопросы

:: Главная :: Браузер ::