|
Вопрос # 6 683/ вопрос открыт / |
|
Здравствуйте!
Приветствую, уважаемые эксперты!
Использую компонент PasLibVlc в программе Но когда меняю
BorderStyle(bsSizeable>>bsNone)
и WindowState (wsNormal>>wsMaximized) и обратно
пропадает видео, но играет звук. Помогите разобраться с проблемой.
Сделал перезапуск видео со времени которое было при изменении размера,
но это не то есть задержка на воспроизведение а при работе с rtsp
и другими данными вообще только переподключение.
Приложение: Переключить в обычный режим- unit Unit1;
-
- interface
-
- uses
- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
- Dialogs, MPlayer, StdCtrls, ExtCtrls, PasLibVlcPlayerUnit;
-
- type
- TForm1 = class(TForm)
- PasLibVlcPlayer1: TPasLibVlcPlayer;
- procedure FormShow(Sender: TObject);
- procedure PasLibVlcPlayer1Click(Sender: TObject);
- private
- { Private declarations }
- public
- { Public declarations }
- end;
-
- var
- Form1: TForm1;
- PosMS: Int64;
- implementation
-
- {$R *.dfm}
-
-
-
-
- procedure TForm1.FormShow(Sender: TObject);
- begin
- PasLibVlcPlayer1.Play('D:Free YouTube DownloaderKA50.mp4');
- PasLibVlcPlayer1.SetVideoPosInMs(PosMS);
- end;
-
- procedure TForm1.PasLibVlcPlayer1Click(Sender: TObject);
- begin
- PosMS:= PasLibVlcPlayer1.GetVideoPosInMs;
- if (Form1.WindowState = wsNormal) then
- begin
- Form1.BorderStyle:= bsNone;
- Form1.WindowState:= wsMaximized;
- end else
- begin
- Form1.WindowState:= wsNormal;
- Form1.BorderStyle:= bsSizeable;
- end;
- end;
-
- end.
 |
Вопрос задал: AiraKobra45 (статус: Посетитель)
Вопрос отправлен: 25 февраля 2018, 17:35
Состояние вопроса: открыт, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 1; последнее сообщение — 26 февраля 2018, 13:17; участников в обсуждении: 1.
|
|
AiraKobra45 (статус: Посетитель), 26 февраля 2018, 13:17 [#1]:
А Вот ы Delphi 10.2 такого косяка нет. Но нужен На Delphi 7
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
