Как воспроизвести видео на форме?

@SergMolo · Регистрация: 24.06.2015

Author24 — интернет-сервис помощи студентам

@tezaurismosis · 08.08.2015, 15:34

SergMolo, с помощью контрола MediaPlayer.

@SergMolo · 08.08.2015, 16:49 **[ТС]**

А можно подробнее? Желательно код. Хотя бы какую dll подключать?

Добавлено через 58 минут
Получилось, но чувствую как-то криво. Оказывается, если не указать размер, то ничего не работает.

Pascal    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
6
7
8
9
var host := new ElementHost;
var v := new MediaElement;
host.Dock := DockStyle.Fill;
v.Source := new Uri('D:\Видео\Video.mp4');
v.LoadedBehavior := MediaState.Manual;
v.Width := 400;
v.Play;
host.Child := v;
self.Controls.Add(host);

@Akvalar · 28.12.2016, 22:33

Сообщение от SergMolo

Получилось, но чувствую как-то криво. Оказывается, если не указать размер, то ничего не работает.

А что подключал?

@SergMolo · 29.12.2016, 17:57 **[ТС]**

Akvalar, подключал:

Pascal    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
6
7
{$reference 'PresentationFramework.dll'}
{$reference 'WindowsFormsIntegration.dll}
 
uses System, System.Drawing, 
     System.Windows.Forms, 
     System.Windows.Controls,   
     System.Windows.Forms.Integration;

@SergMolo · 29.12.2016, 18:07 **[ТС]**

Вот вам весь проект. В итоге получилась очень полезная программа, аналога которой я не нашёл, потому и написал сам.
Управление: после запуска, в трее будет иконка, по ней ПКМ, чтобы пошло видео, копируете ссылку на видео в буфер обмена, нажимаете на пункт "Ссылка" и пойдёт видео по этой ссылке. Затем окошко с видео можно двигать, растягивать, и по нажатию в трее "Убрать рамки" уберутся рамки и видео будет поверх всех программ играть без этих лишних рамок.

@SergMolo · 29.12.2016, 18:18 **[ТС]**

Вот так это выглядит

@Akvalar · 30.12.2016, 14:58

Сообщение от SergMolo

Вот вам весь проект. В итоге получилась очень полезная программа, аналога которой я не нашёл, потому и написал сам.
Управление: после запуска, в трее будет иконка, по ней ПКМ, чтобы пошло видео, копируете ссылку на видео в буфер обмена, нажимаете на пункт "Ссылка" и пойдёт видео по этой ссылке. Затем окошко с видео можно двигать, растягивать, и по нажатию в трее "Убрать рамки" уберутся рамки и видео будет поверх всех программ играть без этих лишних рамок.

Да, действительно очень интересная программа получилась. Только у меня с ней консольное окно запускается, но это мелочи.
Теперь бы еще видео подключить к ресурсам и закомпилировать одним экзешником. И ТаймЛайн Вообще было бы круть.

Добавлено через 36 минут
И еще выдает ошибку иногда, в связи с чем не понял:

Code    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
6
() : Внутренняя ошибка компилятора в модуле [pabcnetc.exe] :'System.Exception: System.ArgumentNullException: Значение не может быть неопределенным.
Имя параметра: key
   в System.Collections.Generic.Dictionary`2.FindEntry(TKey key)
   в System.Collections.Generic.Dictionary`2.ContainsKey(TKey key)
   в PascalABCCompiler.NETGenerator.ILConverter.ConvertFromTree(IProgramNode p, String TargetFileName, String SourceFileName, CompilerOptions options, String[] ResourceFiles)
   в PascalABCCompiler.Compiler.Compile()'

Добавлено через 2 часа 0 минут
С видео, спасибо разобрался, как же теперь его из ресурса запустить?

@SergMolo · 30.12.2016, 22:51 **[ТС]**

Сообщение от Akvalar

консольное окно запускается

Так и у меня тоже. Вроде бы нужно дописать вначале {$apptype windows}, но мне как-то было лень тогда.

Сейчас дописал. Оказывается оно у меня было написано только в Project4.pas, дописал ещё в Unit1.pas - вроде не вылазит.

Сообщение от Akvalar

как же теперь его из ресурса запустить

Вроде так:

Pascal    
        
    Скопировано
1
Properties.Resources.Имя_ресурса;

Сообщение от Akvalar

ТаймЛайн

Вы имеете ввиду перемотку видео пользователем?

Добавлено через 2 минуты

Сообщение от Akvalar

И еще выдает ошибку иногда

Это на стадии компиляции? А если открыть/закрыть проект, то всё нормально? У меня вроде тоже такое было. Это у компилятора что-то.

@Akvalar · 31.12.2016, 13:17

Сообщение от SergMolo

Вроде так:
Pascal
Выделить код
1
Properties.Resources.Имя_ресурса;

Попробовал так и еще разные комбинации, не выходит:

Pascal    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure Form1.Form1_Load(sender: Object; e: EventArgs);
 {$resource mp4}
 var m:integer;
begin
  host := new ElementHost;
  host.Dock := DockStyle.Fill;
  v := new MediaElement;
  
 v.Source := Properties.Resources.mp4;
 // v.Source := new Uri('e:\1.mp4');
  v.LoadedBehavior := MediaState.Manual;
  v.Play;
  host.Child := v;
  self.Controls.Add(host);
end;

Сообщение от SergMolo

Вы имеете ввиду перемотку видео пользователем?

Да, бегунок внизу экрана.

Сообщение от SergMolo

Это на стадии компиляции? А если открыть/закрыть проект, то всё нормально? У меня вроде тоже такое было. Это у компилятора что-то.

Да иногда появляется, иногда нет.

@SergMolo · 31.12.2016, 16:06 **[ТС]**

Сообщение от Akvalar

Попробовал так и еще разные комбинации, не выходит

Создайте новую тему, задайте вопрос, я не знаю как, с ресурсами не работал никогда. Знаю только в общем.

Добавлено через 4 минуты
А Вы уже создали. Надеюсь, Вам помогут там.

@Akvalar · 31.12.2016, 16:38

Сообщение от SergMolo

Создайте новую тему, задайте вопрос, я не знаю как, с ресурсами не работал никогда. Знаю только в общем.
Добавлено через 4 минуты
А Вы уже создали. Надеюсь, Вам помогут там.

И вам спасибо, Вы мне очень помогли. С Новым Годом! :-)

Новые блоги и статьи Все статьи Все блоги /
Миграция монолита в Event-Driven микросервисную архитектуру на C# stackOverflow 11.04.2025 Монолитная архитектура – классический подход к разработке программного обеспечения. Это приложение, построенное как единое целое, где все компоненты тесно связаны между собой. Большинство проектов. . .	Go в Kubernetes: Управление ресурсами golander 11.04.2025 Разработчики Go-приложений в Kubernetes часто сталкиваются с неожиданными проблемами производительности и даже внезапными отказами контейнеров. Причина этого кроется в особенностях взаимодействия. . .	Агрегаты и сущности в DDD микросервисах Javaican 10.04.2025 Разработка современных программных систем часто приводит на распутье: монолит или микросервисы? Даже при выборе микросервисной архитектуры многие команды сталкиваются с проблемой правильного. . .	Многопоточность в C#: Task и параллельное программирование UnmanagedCoder 10.04.2025 Современные процессоры уже давно перестали наращивать тактовую частоту в пользу увеличения количества ядер. Это создало интересную ситуацию: разработчики, привыкшие к последовательному. . .	Линейное решение нелинейной задачи будет отменено как метод обработки данных из double buffering. Формулы от LM конечно с ошибками. Hrethgir 10.04.2025 В продолжение Вообще задача стояла не так остро - 1. Во вторых прямое соотношение углов через соотношения координат отрезков - невозможно. Но тем не менее. Эта LM дала ответ похожий на нормальный. . . .
Переменные в Python py-thonny 10.04.2025 Переменная в программировании — это символическое имя, связанное с областью памяти, в которой хранится значение. Она позволяет получать доступ к данным через понятные человеку идентификаторы, а не. . .	Многопоточность в C#: Task и асинхронные операции UnmanagedCoder 10.04.2025 Многопоточность позволяет выполнять несколько операций одновременно, что важно для решения двух основных задач: повышения скорости выполнения вычислительно-сложных операций и сохранения отзывчивости. . .	Линейное решение не линейной задачи (емкость вычислений в сравнении с традиционными решениями пока не определена). Hrethgir 10.04.2025 В рамках предстоящих вычислений пришлось (да, я тоже знаю про корень числа, и про степеня, и прочие теоремы, но. . . ) найти способ нахождения отношения двух углов. . . .	Запуск контейнеров Docker на ARM64 Mr. Docker 09.04.2025 Появление таких решений, как Apple M1/ M2, AWS Graviton, Ampere Altra и Raspberry Pi, сделало использование ARM-систем обыденностью для многих разработчиков и DevOps-инженеров. При этом Docker,. . .	Vue SFC компонент на PHP с Fusion Jason-Webb 09.04.2025 PHP на сервере и JavaScript на клиенте — классическое сочетание, которое, несмотря на свою эффективность, создает определенный когнитивный диссонанс при разработке. В этом контексте появляются. . .

@SergMolo 12 / 12 / 10 Регистрация: 24.06.2015 Сообщений: 83

	Как воспроизвести видео на форме? 08.08.2015, 14:25. Показов 4333. Ответов 11 Метки нет (Все метки) Как воспроизвести видео на форме? 0

@tezaurismosis Администратор 9649 / 4802 / 762 Регистрация: 17.04.2012 Сообщений: 9,638 Записей в блоге: 14
	08.08.2015, 15:34
	SergMolo, с помощью контрола MediaPlayer. 0

@Akvalar 3 / 3 / 0 Регистрация: 02.11.2013 Сообщений: 169
	28.12.2016, 22:33
	Сообщение от SergMolo Получилось, но чувствую как-то криво. Оказывается, если не указать размер, то ничего не работает. А что подключал? 0

@SergMolo 12 / 12 / 10 Регистрация: 24.06.2015 Сообщений: 83
	29.12.2016, 18:18 [ТС]
	Вот так это выглядит Миниатюры 1

@SergMolo 12 / 12 / 10 Регистрация: 24.06.2015 Сообщений: 83
	31.12.2016, 16:06 [ТС]
	Сообщение от Akvalar Попробовал так и еще разные комбинации, не выходит Создайте новую тему, задайте вопрос, я не знаю как, с ресурсами не работал никогда. Знаю только в общем. Добавлено через 4 минуты А Вы уже создали. Надеюсь, Вам помогут там. 1

@Akvalar 3 / 3 / 0 Регистрация: 02.11.2013 Сообщений: 169
	31.12.2016, 16:38
	Сообщение от SergMolo Создайте новую тему, задайте вопрос, я не знаю как, с ресурсами не работал никогда. Знаю только в общем. Добавлено через 4 минуты А Вы уже создали. Надеюсь, Вам помогут там. И вам спасибо, Вы мне очень помогли. С Новым Годом! :-) 0