HiAsm
HiAsm
Вверх ↑
ФорумыНовые компонентыMediaPlayerEx ← Ctrl123456Ctrl →
Этот топик читают: Гость
Ответов: 495
Рейтинг: 163
#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
Ответов: 2293
Рейтинг: 678
#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
Ответов: 495
Рейтинг: 163
#78: 2020-06-28 19:50:14 ЛС | профиль | цитата
sla8a писал(а):
точно заменил?

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

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

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

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


Add(DropFile,4156250,210,42)
{
}
работал? Он у меня давно перестал кинутые на форму файлы принимать почему-то. Наверное надо обновлять его код под новые винды.
карма: 3
Hiasm + Flowstone + CopperCube + GoDot + JS
0
87
ФорумыНовые компонентыMediaPlayerEx ← Ctrl123456Ctrl →
Сообщение
...
Прикрепленные файлы
(файлы не залиты)
HiAsm Studio 2003 - 2024
Пользовательское соглашение | support@hiasm.com
Яндекс.Метрика