powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Программирование [игнор отключен] [закрыт для гостей] / Нужен совет...
25 сообщений из 29, страница 1 из 2
Нужен совет...
    #38589167
Фотография Mash6a
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Сейчас рассматриваю проект для обработки видео. Общая суть такая: есть видео поток, мне надо разбивать его на два потока, один каждую четную секунду, другой следующую. Посоветуйте в чем удобней этим заняться ? Если брать Паскаль в котором я нормально рублю - то там мало нормальных библиотек для обработки видео потоков. А если брать что-нибудь другое, то я знаю только основы да и вообще не знаю как там с видеопотоками.... Посоветуйте в чем лучше вам кажется ?
...
Рейтинг: 0 / 0
Нужен совет...
    #38589179
Фотография wadman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Mash6aЕсли брать Паскаль в котором я нормально рублю - то там мало нормальных библиотек для обработки видео потоков.
Ух ты. :) в гугл потом отправлю, а пока вопрос: от проекта больше ничего не нужно, кроме как один файл разбить на два?
...
Рейтинг: 0 / 0
Нужен совет...
    #38589273
Фотография Mash6a
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
На данной стадий нет, надо хотя бы чтобы потоки разбивал. Я разбирала TMediaPlayer компонент в Delphi такой баганутый, что застрелиться. А необходимо чтобы он любой видеоформат открывал или популярные.
...
Рейтинг: 0 / 0
Нужен совет...
    #38589395
Фотография k0rvin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Mash6aНа данной стадий нет, надо хотя бы чтобы потоки разбивал. Я разбирала TMediaPlayer компонент в Delphi такой баганутый, что застрелиться. А необходимо чтобы он любой видеоформат открывал или популярные.

Может стоит глянуть исходники mplayer или vlc, они довольно всеядны, правда там С/С++.
...
Рейтинг: 0 / 0
Нужен совет...
    #38589431
Фотография Mash6a
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Повожусь c Делфиком сегодня, вечером что-нить придумаю
...
Рейтинг: 0 / 0
Нужен совет...
    #38589434
Фотография Изопропил
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
k0rvinmplayer или vlc
Gui то зачем смотреть?

ffmpeg достаточно
...
Рейтинг: 0 / 0
Нужен совет...
    #38589693
Фотография wadman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Два варианта на вскидку:
1. Вirect x фильтр на видео (аудио тоже, если необходимо) поток.
2. Плагин(ы) к AviSynth (google: avisynth_pascal_v5.rar)
...
Рейтинг: 0 / 0
Нужен совет...
    #38589906
Фотография mayton
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Mash6a, посмотри исходники VirtualDub
http://sourceforge.net/projects/virtualdub/files/virtualdub-win/

\
...
Рейтинг: 0 / 0
Нужен совет...
    #38589920
Фотография k0rvin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Изопропилk0rvinmplayer или vlc
Gui то зачем смотреть?

ffmpeg достаточно

При чем тут GUI? У mplayer'а так его вообще нет. ffmpeg же только кодек, а ТСу вроде как пример работы с декодированными потоками нужен (ну и как для этого использовать кодеки). Вот mplayer как самое то. Или mencoder.
...
Рейтинг: 0 / 0
Нужен совет...
    #38591598
Фотография Mash6a
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Привет Ребят! Работаю пока в DElphi. Первая прям проблема, блин, приложила скрин ниже. А есть ли возможность поставить другие кодеки чтобы читать что-то кроме avi ?
...
Рейтинг: 0 / 0
Нужен совет...
    #38591600
Фотография Mash6a
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
...
Рейтинг: 0 / 0
Нужен совет...
    #38591656
Фотография Mash6a
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Все разобралась. Помогите мне с идеей как выводить видео в разные потоки, одну секунду на одину панель, другую на вторую
...
Рейтинг: 0 / 0
Нужен совет...
    #38593579
Фотография Mash6a
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Помогите... Мне нужно с помощью тимера выводить каждую 2 сукунду на другую панель, как это сделать ?
...
Рейтинг: 0 / 0
Нужен совет...
    #38593582
Фотография Mash6a
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Не понимаю... Если выводить каждую вторую секунду, то придется создавать второй плеер ? А если скрингот делать, то с напели он не делается... Помогите
...
Рейтинг: 0 / 0
Нужен совет...
    #38593588
Фотография Mash6a
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
вот такая ошибка, я пытаюсь запустить видео на дргой панели с другого проигрывателя, но с позиции которую выдает первый плеер
...
Рейтинг: 0 / 0
Нужен совет...
    #38593875
Фотография Mash6a
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
DirectShow пытаюсь в нем разобраться. Если кто-нибудь сталкивался с изъятием кадра из оппределенного места видео, помогите... Пожалуйста
...
Рейтинг: 0 / 0
Нужен совет...
    #38593892
Фотография Mash6a
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Нашла парочку функции, но почемуто на Image выводиттся только черный экран... Что я не так сделала ??
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
procedure TForm1.Button5Click(Sender: TObject);
var cc1,cc2: TControlCanvas;
    i,j:integer;
begin
if (MediaPlayer1.FileName='') then Exit
  else
  cc1:=TControlCanvas.Create;
  cc2:=TControlCanvas.Create;
  cc1.Control:=Panel1;
  cc2.Control:=Image1;
  for i := 0 to Panel1.Width do
    for j := 0 to Panel1.Width do
      cc2.Pixels[i,j]:=cc1.Pixels[i,j]; 
end;
...
Рейтинг: 0 / 0
Нужен совет...
    #38594019
Фотография mayton
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Наверное в одном из циклов надо заменить Width на Height
...
Рейтинг: 0 / 0
Нужен совет...
    #38594030
Фотография krapotkin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
procedure TForm1.Button5Click(Sender: TObject);
var cc1,cc2: TControlCanvas;
    i,j:integer;
begin
if (MediaPlayer1.FileName='') then Exit
  else
  cc1:=TControlCanvas.Create;
  cc2:=TControlCanvas.Create;
  cc1.Control:=Panel1;
  cc2.Control:=Image1;
  for i := 0 to Panel1.Width do
    for j := 0 to Panel1.Width do
      cc2.Pixels[i,j]:=cc1.Pixels[i,j]; 
end;


а еще после else добавить begin и удвоить end
это если говорить конкретно про этот код.

а с т.з. решения задачи требуется совсем не тривиальное программирование
нужно спрограммировать directshow фильтр, который будет делать то, что требуется
...
Рейтинг: 0 / 0
Нужен совет...
    #38594033
Фотография mayton
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
krapotkin, дай ей ссылку на HelloWorld с фильторм если есть такое. Я честно говоря даже не знаю в какую
это предметную область. Может разработка под DirectX или DXVA.
...
Рейтинг: 0 / 0
Нужен совет...
    #38594036
Фотография krapotkin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
тут и правда все не просто
не зря библиотечки для видеоштучек от $700

ну вот ресурс например
http://basicsprog.ucoz.ru/publ/6
...
Рейтинг: 0 / 0
Нужен совет...
    #38594431
Фотография Mash6a
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Поменял Width на Height - ничего не поменялось. Я подозреваю, что он вставляет первый кадр самый темный. Если на пустой панели нажать, то она пустая и покажется. DirectShow такая поебе*ь (простите прекрасный пол за нервозность)... как разделить этот дурацкии видео поток. Второй поток запустить мне не удалось, сколько бы я не возилась, т.к. пишет, что одно и тоже и запускать не хочет... Пока моя голова забита возможность снять скриншот с видеопотока. Если скрин с панели снять сложно, то может можно с отдельного окна снять... Если кто-нибудь что-нибудь знает напишите пожалуйста...:)
...
Рейтинг: 0 / 0
Нужен совет...
    #38594442
Фотография Mash6a
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Доперла... Сделаю вторую форму. Поставлю ее на дисплей MediaPlayr-а. Потом с помощью WinApi сделаю скрин с формы и повешу на первую форму. Во как... Как вам моя идейка ?
...
Рейтинг: 0 / 0
Нужен совет...
    #38594470
Фотография mayton
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Mash6aПоменял Width на Height
Маш. Мой камент просто был замечанием. Типа шёл-шёл - пирожок нашёл.
Если я вижу вложенный цикл по растру то глазами проверяю внешний по width, а внутренний
по height. И разумеется мой совет - был советом "носить шерстяные штаны зимой" и не кушать
с пола. Твою задачу он не решает но является корректирующим дополнением.

Вот как-то так.
...
Рейтинг: 0 / 0
Нужен совет...
    #38594499
Фотография Mash6a
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
mayton, да я не против, я не надеялась что это решит проблему, просто отписалась
...
Рейтинг: 0 / 0
25 сообщений из 29, страница 1 из 2
Форумы / Программирование [игнор отключен] [закрыт для гостей] / Нужен совет...
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]