Временное решение проблемы с воспроизведением YouTube в TWebBrowser в Delphi

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

Вопрос, поднятый разработчиком, заключается в том, что при попытке воспроизведения встроенных YouTube клипов в приложении на Delphi с использованием компонента TWebBrowser возникают сбои. Это происходит из-за ошибки, связанной с плагином Flash Player и некорректной операцией с плавающей точкой. Проблема наблюдается на различных версиях Delphi (D5, D7, D9) и не решается обычным переимпортом SHDocVw.dll или использованием альтернативных компонентов.

Предложенное решение:

Разработчики предложили временное решение, которое заключается в отключении обработки исключений FPU. Это можно сделать с помощью функции Set8087CW и установки значения $133F. Этот код отключает все исключения FPU, что позволяет избежать сбоев, вызванных Flash Player.

Код на Object Pascal (Delphi):

function Get8087CW: Word;
asm
    PUSH    0
    FNSTCW  [ESP].Word
    POP     EAX
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Timer1.Enabled := False;
  Timer1.Interval := 5000; // 5 секунд
  Saved8087CW := Get8087CW;
end;

procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
begin
  Timer1.Enabled := False;
  System.Set8087CW($133F); // Отключение всех исключений FPU
end;

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  Timer1.Enabled := True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Timer1.Enabled := False;
  Set8087CW(Saved8087CW);
end;

Важное замечание: Отключение обработки исключений FPU может повлиять на работу всего приложения, особенно если оно использует математические вычисления. Поэтому перед применением этого метода следует тщательно оценить потенциальные риски.

Альтернативное решение:

Также было предложено использовать функцию Math.SetExceptionMask, которая позволяет отключить определенные исключения FPU. Однако, эта функция доступна не во всех версиях Delphi (например, в D5), и её использование может потребовать дополнительной настройки.

Вывод:

Приведенные решения позволяют временно решить проблему воспроизведения YouTube клипов в TWebBrowser, но следует учитывать потенциальные риски и возможное влияние на другие части приложения. В идеале, следует искать более надежное и постоянное решение проблемы, возможно, обновление Flash Player или использование альтернативных методов отображения контента.

Создано по материалам из источника по ссылке.

Разработчики столкнулись с проблемой воспроизведения YouTube в TWebBrowser на Delphi и предложили временное решение, заключающееся в отключении обработки исключений FPU для избежания сбоев, вызванных плагином Flash Player.

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

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

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