HiAsm
HiAsm
Вверх ↑
ФорумыНовые компонентыMediaPlayerEx ← Ctrl12345678Ctrl →
Этот топик читают: Гость
Ответов: 522
Рейтинг: 167
#76: 2020-06-28 19:13:15 ЛС | профиль | цитата
sla8a , при компиляции примеров из архива выдает ошибку.
C:\HiAsm_AltBuild\Elements\delphi\code\hiMediaPlayerEx.pas(119) Error: Undeclared identifier: 'Volume'
Win 10 64 bit. SVN 2337

Редактировалось 2 раз(а), последний 2020-06-28 19:14:59
карма: 4

0
Ответов: 2415
Рейтинг: 691
#77: 2020-06-28 19:24:08 ЛС | профиль | цитата
tig-rrr, media.pas точно заменил? Ой наверно нет
И что интересно в media.pas сейчас никаких изменений не вносил. А Volume добавлен уже очень давно. Видно media.pas оооочень старый.

Редактировалось 1 раз(а), последний 2020-06-28 19:26:47
карма: 11

0
Ответов: 522
Рейтинг: 167
#78: 2020-06-28 19:50:14 ЛС | профиль | цитата
sla8a писал(а):
точно заменил?

MPEeX.jpg
Exxxx.png
карма: 4

0
Ответов: 2415
Рейтинг: 691
#79: 2020-06-28 20:01:13 ЛС | профиль | цитата
tig-rrr, красивые скриншоты, вот только где ответ на мой вопрос?
sla8a писал(а):
media.pas точно заменил?

Обрати внимание что вопрос относиться к файлу media.pas, а не к hiMediaPlayerEx.pas. Он там рядышком в папке лежит, его нужно самому скопировать.

Редактировалось 1 раз(а), последний 2020-06-28 20:01:40
карма: 11

0
Ответов: 522
Рейтинг: 167
#80: 2020-06-28 20:21:04 ЛС | профиль | цитата
sla8a писал(а):
Обрати внимание что вопрос относиться к файлу media.pas,

Даже и не знаю чего сказать...
sla8a писал(а):
Какие прогнозы на 09.08?

После таких элементарных вещей , какие прогнозы.
sla8a, СПАСИБО!

Редактировалось 1 раз(а), последний 2020-06-28 20:22:47
карма: 4

0
Ответов: 107
Рейтинг: 0
#81: 2020-07-05 13:47:39 ЛС | профиль | цитата
sla8a, А можно добавить точку для снятия скриншотов? Я уже пробовал через дочернюю форму, путем копирования картинки, но ничего не вышло(. Мне просто нужно чтобы скриншот получался полноценный, без фоновых полос, а именно кадр с видео...
Я знаю, что уже тут всех достал своими странными хотелками, но действительно мне это очень нужно

Редактировалось 1 раз(а), последний 2020-07-05 13:48:25
карма: 0

0
Ответов: 62
Рейтинг: 1
#82: 2021-07-03 16:33:24 ЛС | профиль | цитата
Пишу в надежде, что тема не совсем позабыта)
Видеокомпоненты работают полностью исправно, но только до поры до времени, на пару открытий файлов. Дальше видео не отрисовывается, слышно только звук. Парадоксально, что лечится изменением пути к собранному .ехе, но опять же ненадолго. Windows 10 20H2 х64, из медиа только K-Lite Codec Pack, все видео играются без проблем в целом. Возможно что-то прозевал, но на Win7 х64 таких проблем нету

Пробовал все компоненты, и новый MediaPlayerEx, и старый, и DirectShow, и старая версия HiAsm равно как и чистая альтернативная дают те же результаты. SVN обновлен, .pas-файлы не упущены
карма: -1

0
Ответов: 2415
Рейтинг: 691
#83: 2021-07-03 20:37:17 ЛС | профиль | цитата
Vaeltaja, протестировать на Windows 10 20H2 х64 у меня нет вазможности, да и судя по описанию проблема скорее всего не в компоненте. Остаётся подождать отзывы других пользователей.
карма: 11

0
Ответов: 1308
Рейтинг: 48
#84: 2025-01-19 20:44:12 ЛС | профиль | цитата
sla8a, привет, спасибо, классный компонент. Не подскажешь, что в нем изменить чтоб из второго примера где несколько видео плееров открываются, можно было один и тот же файл на множестве плееров воспроизводить? Пишет ошибку компонент что-то про необходимость уникального Alias, а как его создать - пытаюсь, через созданную верхнюю точку при каждом открытии файла обновлять FMedia.Alias, но все равно пишет ту же ошибку.

FName := ReadString(_Data,_data_FileName,_prop_FileName);
als := ReadString(_Data,_data_Alias);
if FileExists(FName) then
begin
FMedia.Alias := als;
FMedia.FileName := FName;


Редактировалось 1 раз(а), последний 2025-01-19 20:44:46
карма: 3
Hiasm + Flowstone + CopperCube + GoDot + JS
0
Ответов: 2415
Рейтинг: 691
#85: 2025-01-20 15:00:25 ЛС | профиль | цитата
Aziz, привет. Не будет работать Alias чтобы ты не правил в hiMediaPlayerEx.pas, в Media.pas он не используется.
Заносит название и на этом все: 

property Alias: String read FAlias write FAlias;

Обновил архив с элементом в первом посте. Добавлено свойство Alias. Замена Media.pas обязательна!
Вот схема для тестирования свойства Alias: 

Add(MainForm,2953706,441,126)
{
 Width=663
 Height=531
 Position=1
 Point(Handle)
}
Add(Button,10599209,168,189)
{
 Left=305
 Top=450
 Height=35
 Layout="gor_04"
 Caption="Open"
 Point(doEnabled)
 link(onClick,2607619:doRead,[])
}
Add(ODialog,6287391,259,189)
{
 Filter="All Unknown Types|*.3gp;*.asf;*.avi;*.divx;*.flv;*.m1v;*.m2v;*.mkv;*.mov;*.mp4;*.mpe;*.mpeg;*.mpg;*.mpv;*.ogm;*.qt;*.ram;*.rm;*.rv;*.swf;*.vob;*.wm;*.wmv;*.aac;*.ac3;*.aif;*.aifc;*.aiff;*.ape;*.au;*.flac;*.it;*.kar;*.lxm;*.m4a;*.mid;*.midi;*.mka;*.mod;*.mp1;*.mp2;*.mp3;*.mpa;*.mpc;*.ogg;*.ra;*.rmi;*.s3m;*.snd;*.stm;*.wav;*.wv;*.wma;*.xm;*.bmp;*.jpeg;*.jpg"
 Title=""
 StartDir=""
 FileName=""
 link(onExecute,13699253:doStrCat,[])
}
Add(MultiElementEx,3519637,441,196)
{
 link(Handle,2953706:Handle,[])
}
BEGIN_SDK
  Add(EditMultiEx,14426325,21,21)
  {
   WorkCount=#5:##add|
   DataCount=#6:Handle|
   Width=468
   Height=452
   Point(##add)
   link(##add,8640049:doSplit,[(123,27)(123,97)])
  }
  Add(MediaPlayerEx,6787446,217,252)
  {
   Point(DisplayRect)
   Point(onOpen)
   Point(doSetDisplayRect)
   Point(onError)
   Point(doSpeed)
   Point(doStartPos)
   Point(Alias)
   link(FileName,8640049:Part1,[(223,145)(230,145)])
   link(Handle,14426325:Handle,[(230,205)(27,205)])
   link(DisplayRect,11883663:Rect,[])
   link(onOpen,6787446:doSetDisplayRect,[(261,258)(261,341)(198,341)(198,293)])
   link(Alias,8640049:Part4,[(244,205)(279,205)(279,150)(251,150)])
  }
  Add(Rect,11883663,231,161)
  {
   X2=200
   Y2=200
   link(X1,8640049:Part2,[])
   link(Y1,8640049:Part3,[])
  }
  Add(MultiStrPart,8640049,224,91)
  {
   Count=4
   link(onSplit,6787446:doOpen,[(310,97)(310,397)(182,397)(182,258)])
  }
END_SDK
Add(StrList,2441747,203,126)
{
 Strings=#12:;10;10;vid_1|13:;220;10;vid_2|13:;430;10;vid_3|13:;10;220;vid_4|14:;220;220;vid_5|14:;430;220;vid_6|
}
Add(ArrayRW,2607619,217,189)
{
 link(onRead,6287391:doExecute,[])
 link(Array,2441747:Array,[])
 link(Index,2575604:Var1,[(230,181)])
}
Add(StrCat,13699253,301,189)
{
 link(onStrCat,12385094:doEvent1,[])
 link(Str2,2607619:Item,[(314,177)(343,177)(343,234)(223,234)])
}
Add(CounterEx,5113674,252,140)
{
 Max=5
}
Add(Hub,12385094,350,189)
{
 OutCount=3
 link(onEvent1,5113674:doNext,[(422,195)(422,132)(240,132)(240,146)])
 link(onEvent2,3519637:##add,[])
 link(onEvent3,9386742:doEvent,[])
}
Add(GetDataEx,2575604,252,176)
{
 link(Data,5113674:Count,[])
}
Add(IndexToChanel,9386742,371,203)
{
 Count=1
 Data=Integer(0)
 Point(Index)
 link(onEvent1,10599209:doEnabled,[(415,209)(415,242)(160,242)(160,195)])
 link(Index,2575604:Var3,[(377,181)])
}

Отпишись по результатам тестирования.
карма: 11

0
Ответов: 1308
Рейтинг: 48
#86: 2025-01-22 01:05:05 ЛС | профиль | цитата
sla8a, спасибо огромное! Все супер, только при первом запуске второе видео не перерисовывалось, превращалось в фото, только движение формы по экрану оживляло. Но потом со второго разу - перезапуска уже этот глюк исчез. Win11.

Редактировалось 1 раз(а), последний 2025-01-22 16:19:16
карма: 3
Hiasm + Flowstone + CopperCube + GoDot + JS
0
Ответов: 1308
Рейтинг: 48
#87: 2025-01-22 18:22:51 ЛС | профиль | цитата
sla8a, а как сделать чтобы еще и 


Add(DropFile,4156250,210,42)
{
}
работал? Он у меня давно перестал кинутые на форму файлы принимать почему-то. Наверное надо обновлять его код под новые винды.
карма: 3
Hiasm + Flowstone + CopperCube + GoDot + JS
0
Ответов: 1308
Рейтинг: 48
#88: 2025-05-12 16:08:32 ЛС | профиль | цитата
sla8a, привет! Тут еще один вопрос возник - как а отключить чтобы плеер не выводил окно на хендле которого он выводит видео на передний план? Делаю прогу плеера со скинами, которые должны ПОВЕРХ видео накладываться и немного перекрывать его. Но не получается - стоит загрузить видео, как окно плеера с заднего плана выходит на передний, даже динамически его отсылать на задний не выходит. Это свойства винды такие или в компоненте можно где-то сделать опциональным вывод на передний план? Пока решил проблему влоб - путем использования дочерней формы со скином, в которой вырезаю отверстие регионом и через это отверстие уже смотрю на главную форму, на которой в image выводится видео. Дочерние формы имеют свойство модальности видимо и поэтому всегда остаются поверх главной формы.

Редактировалось 2 раз(а), последний 2025-05-12 16:09:33
карма: 3
Hiasm + Flowstone + CopperCube + GoDot + JS
0
Ответов: 2415
Рейтинг: 691
#89: 2025-05-12 18:35:33 ЛС | профиль | цитата
Aziz, привет! А давай ты схемой это покажешь, а то у меня не получается чтоб окно поверх начало переходить после воспроизведения видео: 

Add(MainForm,2953706,203,140)
{
 Width=825
 Height=554
}
Add(ChildFormEx,10226667,357,182)
{
}
BEGIN_SDK
  Add(EditMultiEx,6721597,21,21)
  {
   WorkCount=#6:doOpen|
   link(doOpen,8623126:doOpen,[(77,27)(77,167)])
  }
  Add(MainForm,1032023,140,98)
  {
   Top=40
   Position=2
   Point(Handle)
  }
  Add(MediaPlayerEx,8623126,133,161)
  {
   link(Handle,1032023:Handle,[])
  }
END_SDK
Add(ChildFormEx,4177972,301,182)
{
 link(onClick,15941330:doWork2,[])
}
BEGIN_SDK
  Add(EditMultiEx,15922800,21,21)
  {
   EventCount=#7:onClick|
   Width=538
   Height=424
  }
  Add(MainForm,7119232,140,98)
  {
   Left=35
   Top=105
  }
  Add(Button,15173251,133,287)
  {
   Left=180
   Top=160
   Caption="Open"
   link(onClick,5230217:doExecute,[])
  }
  Add(ODialog,5230217,203,287)
  {
   link(onExecute,15922800:onClick,[(397,293)(397,27)])
  }
END_SDK
Add(Button,13702061,259,140)
{
 Left=375
 Top=485
 Caption="open"
 link(onClick,106962:doExecute,[])
}
Add(ODialog,106962,301,140)
{
 link(onExecute,15941330:doWork1,[(347,146)])
}
Add(HubEx,15941330,343,182)
{
 link(onEvent,10226667:doOpen,[])
}
карма: 11

0
Ответов: 1308
Рейтинг: 48
#90: 2025-05-13 05:57:12 ЛС | профиль | цитата
Вот схема. Можно даже не вставлять картинку в Image. Видео должно играть на главной форме (она синего цвета) и видеться через окно вырезанное регионом. Но как только видео стартует, оно "дырявый" Image задвигает на задний план..

Add(MainForm,2953706,525,147)
{
 Width=507
 Height=385
 Color=-16777203
 Point(Handle)
 link(onCreate,1545626:doCreateRect,[(667,167)(667,510)])
}
Add(MediaPlayerEx,7794242,700,357)
{
 Scale=2
 link(Handle,2953706:Handle,[(713,268)(531,268)])
}
Add(Image,4167310,770,245)
{
 Width=491
 Height=346
 Align=5
 Point(Handle)
 Point(Width)
 Point(Height)
}
Add(ODialog,6287391,637,357)
{
 Filter="All Unknown Types|*.3gp;*.asf;*.avi;*.divx;*.flv;*.m1v;*.m2v;*.mkv;*.mov;*.mp4;*.mpe;*.mpeg;*.mpg;*.mpv;*.ogm;*.qt;*.ram;*.rm;*.rv;*.swf;*.vob;*.wm;*.wmv;*.aac;*.ac3;*.aif;*.aifc;*.aiff;*.ape;*.au;*.flac;*.it;*.kar;*.lxm;*.m4a;*.mid;*.midi;*.mka;*.mod;*.mp1;*.mp2;*.mp3;*.mpa;*.mpc;*.ogg;*.ra;*.rmi;*.s3m;*.snd;*.stm;*.wav;*.wv;*.wma;*.xm;*.bmp;*.jpeg;*.jpg|All Files|*.*"
 Title=""
 StartDir=""
 FileName=""
 link(onExecute,7794242:doOpen,[])
}
Add(Button,5485962,581,357)
{
 Left=5
 Top=280
 Height=45
 link(onClick,6287391:doExecute,[])
}
Add(RGN_Rect,1545626,777,504)
{
 Point2=100
 link(onCreateRect,5949742:doCreateRect,[])
 link(Point2,152639:Point,[(790,476)(754,476)(754,583)(713,583)])
}
Add(RGN_Combine,3864493,889,504)
{
 Mode=2
 link(onCombine,7533673:doSetRegion,[])
 link(Region1,1545626:Result,[(895,492)(929,492)(929,547)(783,547)])
}
Add(RGN_Rect,5949742,833,504)
{
 Point1=3621480
 Point2=9621480
 link(onCreateRect,3864493:doCombine,[])
}
Add(RGN_SetToWindow,7533673,945,504)
{
 link(Handle,4167310:Handle,[(951,390)(783,390)])
}
Add(PointXY,152639,707,539)
{
 X=40
 Y=40
 link(X,4167310:Width,[(713,408)(790,408)])
 link(Y,4167310:Height,[(720,408)(797,408)])
}


Кстати, интересный глюк - если из твоей схемы копировать твой компонент Медиаплеера из твоего примера из дочерней формы и пытаться его скопипастить на основное поле Хиасм, то происходит жуть какая-то - при любой попытке зайти в схему или создать новый проект в хиасме будет вылазить ошибка.. При этом в схеме появляется белесый большой квадрат. Лечится только пререзагрузкой Хиасма.. Собственно, поэтому твою схему не стал модифицировать)

Редактировалось 3 раз(а), последний 2025-05-13 06:01:39
карма: 3
Hiasm + Flowstone + CopperCube + GoDot + JS
0
ФорумыНовые компонентыMediaPlayerEx ← Ctrl12345678Ctrl →
Сообщение
...
Прикрепленные файлы
(файлы не залиты)
HiAsm Studio 2003 - 2024
Пользовательское соглашение | support@hiasm.com
Яндекс.Метрика