Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=153208&view=findpost&p=3936144 Sun, 15 Feb 2026 07:01:02 +0000 (Видео+Bitmap)*realtime=? https://forum.sources.ru/index.php?showtopic=153208&view=findpost&p=3936144 там есть возможность установки изображения под видео, а если не подойдëт такой вариант, то ищи ещё отдельно рисование на экране, то бишь не на форме, или компоненте, а прямо на экране.]]> Extazy25 Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=153208&view=findpost&p=1249069 Sun, 03 Sep 2006 17:15:37 +0000 (Видео+Bitmap)*realtime=? https://forum.sources.ru/index.php?showtopic=153208&view=findpost&p=1249069 Scally Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=153208&view=findpost&p=1249047 Sun, 03 Sep 2006 16:57:01 +0000 (Видео+Bitmap)*realtime=? https://forum.sources.ru/index.php?showtopic=153208&view=findpost&p=1249047 Scally
Я тут полистал DirectX SDK. Там написанно что надо создовать два устройства для вывода на 2 разных монитора.
Так что попробуй через IVMRMonitorConfig установить монитор.

Примеров vfw у меня нет. Вернее есть на Си из MSDN.]]> Pavia Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=153208&view=findpost&p=1249027 Sun, 03 Sep 2006 16:34:47 +0000 (Видео+Bitmap)*realtime=? https://forum.sources.ru/index.php?showtopic=153208&view=findpost&p=1249027 Ты говорил о VFW! Может кинешь мне примеров поболее решение данной задачи.

ведь я уверен что для тебя это не сложно

1. Открываем на 2-м рабочем столе полноэкранное устройство(Оверлей) размером 720х576
2. Играем растягивая клип на весь размер пункта 1
3. поверх клипа проэцируем BMPшку

ОЧЕНЬ ПРОШУ. Я УЖЕ НЕЗНАЮ К КОМУ ОБРАЩАТЬСЯ.

Я уже кучу народу опросил, но все молчат или дают уклончивые ответы типа: капай в инете. Или опять предлагают лажу типа DSPack которая никогда нормально не заработает.]]> Scally Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=153208&view=findpost&p=1248993 Sun, 03 Sep 2006 15:59:05 +0000 (Видео+Bitmap)*realtime=? https://forum.sources.ru/index.php?showtopic=153208&view=findpost&p=1248993 Scally
У меня телека нет. Но мой совет отключи overlay может поможет.И за одно поставь vmrWindowed.

Добавлено
Выстави нужны монитор через IVMRMonitorConfig.]]> Pavia Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=153208&view=findpost&p=1248987 Sun, 03 Sep 2006 15:46:31 +0000 (Видео+Bitmap)*realtime=? https://forum.sources.ru/index.php?showtopic=153208&view=findpost&p=1248987 Оно в памяти всегда рисуется, оттуда ты и считываешь, вот и думашь что всегда.
А отрисовка на телевизоре (на втором устройстве. НЕ НА МОНИТОРЕ) прекращается когда сварачиваешь окно или закрываешь его другим окном.

И твой пример:

VMRBitmap:= TVMRBitmap.Create(VideoWindow);
Bitmap:=TBitmap.Create;
with VMRBitmap, Canvas do
try
Bitmap.LoadFromFile(ExtractFilePath(Application.ExeName) + '\penguin.bmp');
LoadBitmap(Bitmap);
ColorKey:=clFuchsia;
Options := VMRBitmap.Options + [vmrbSrcColorKey];
Source := VMRBitmap.Canvas.ClipRect;
DrawTo(0,0,1,1, 1);
finally
Bitmap.Free;
end;

вообще не работает пока не начнёшь выводить видео через TFILTER на это окно.]]> Scally Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=153208&view=findpost&p=1248971 Sun, 03 Sep 2006 15:29:09 +0000 (Видео+Bitmap)*realtime=? https://forum.sources.ru/index.php?showtopic=153208&view=findpost&p=1248971 Scally
Так оно все время рисуется. Вот пример снимаем изоброжение свернутого окна.
Работает только при
// VideoWindow.VMROptions.Mode:=vmrWindowless;
    var
      Stream: TMemoryStream;
      bitmap:Tbitmap;
    begin
    FormPlayWin.WindowState:=wsMinimized; {сворачиваем}
     sleep(5000); {пауза}
      bitmap:=Tbitmap.Create;
      Stream:= TMemoryStream.Create;
      try
        if VideoWindow.VMRGetBitmap(Stream) then
         begin
          bitmap.LoadFromStream(Stream);
          bitmap.SaveToFile(ExtractFilePath(Application.ExeName) + '\pp.bmp');
         end;
      finally
        Stream.Free;
        bitmap.Free;
      end;
    end;
]]> Pavia Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=153208&view=findpost&p=1248960 Sun, 03 Sep 2006 15:10:25 +0000 (Видео+Bitmap)*realtime=? https://forum.sources.ru/index.php?showtopic=153208&view=findpost&p=1248960 Цитата Pavia @
Scally
Пробовал все нормально. Что там у тебя не так? После разворачивания все появляется вновь.

Дык а я очём???
Чё толку что он при разварачивании всё появляется вновь! ОН ВАЩЕ НЕ ДОЛЖЕН ИСЧЕЗАТЬ НИКОГДА.
Если ты не понял я говорю про отрисовку на полноэкранном устройстве, когда сварачиваешь!!!
Оно и делает невозможным использование этого компонента! Оно должо ВСЕГДА быть! И в срёрнутом и в развёрнутом.]]> Scally Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=153208&view=findpost&p=1248956 Sun, 03 Sep 2006 15:04:57 +0000 (Видео+Bitmap)*realtime=? https://forum.sources.ru/index.php?showtopic=153208&view=findpost&p=1248956 Scally
Пробовал все нормально. Что там у тебя не так? После разворачивания все появляется вновь.]]> Pavia Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=153208&view=findpost&p=1248945 Sun, 03 Sep 2006 14:52:54 +0000 (Видео+Bitmap)*realtime=? https://forum.sources.ru/index.php?showtopic=153208&view=findpost&p=1248945 Никакие ONPaint тут не помогают ибо оно как-то системно? когда окно прячется его прорисовка ВАЩЕ прекращается пока оно опять хоть кусочек не будет виден на экране! Попробуй сам свернуть, или перекрой другим окном окно с видео при наложении на него.]]> Scally Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=153208&view=findpost&p=1248942 Sun, 03 Sep 2006 14:47:37 +0000 (Видео+Bitmap)*realtime=? https://forum.sources.ru/index.php?showtopic=153208&view=findpost&p=1248942 with VMRBitmap do
begin
DestLeft
DestTop
DestRight
DestBottom
Dest
end;
Опять таки DrawTo(0,0,1,1, 1);

Для ресайза видео файла есть.
with (VideoWindow as IVMRMixerControl9) do
SetOutputRect(0, @NormalizedRect);

VideoWindow.VMROptions.KeepAspectRatio:=True; - сохронять пропорции

Для получения размеров.
VideoWindow.VMROptions.Mode:=vmrWindowless;
(VideoWindow as IVMRWindowlessControl9).GetNativeVideoSize(W,H,AW,AH);

VideoWindow.Width
VideoWindow.Height

Bitmap.Width
Bitmap.Height]]> Pavia Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=153208&view=findpost&p=1248922 Sun, 03 Sep 2006 14:22:14 +0000 (Видео+Bitmap)*realtime=? https://forum.sources.ru/index.php?showtopic=153208&view=findpost&p=1248922 Цитата Pavia @
Вот наложение.
       VMRBitmap:= TVMRBitmap.Create(VideoWindow);
       Bitmap:=TBitmap.Create;
       with VMRBitmap, Canvas do
       try
          Bitmap.LoadFromFile(ExtractFilePath(Application.ExeName) + '\penguin.bmp');
          LoadBitmap(Bitmap);
          ColorKey:=clFuchsia;
          Options := VMRBitmap.Options + [vmrbSrcColorKey];
          Source := VMRBitmap.Canvas.ClipRect;
          DrawTo(0,0,1,1, 1);
        finally
          Bitmap.Free;
        end;


А ты делал через canvas. В этом случае ты должен перерисовывать каждый раз когда сробатывает событие onPaint.

А ты сам-то пробвал запускать это???
Одно из главных недочётов что я тебе писал! ОБЯЗАТЕЛЬНО НАДО ДЕЛАТЬ РЕСАЙЗ!!!!
Клипы имеют разный размер по X и Y.
И при наложении текста, или картинки всё это получается разного качества.
Если клип 720х576 то текст читаемый! А если 360x288 то уже не читабельный, всё кубами!

Поэтому надо ОБЯЗОН ресайзить видео до к примеру 720х576 а уже потом рисовать на нём текст или картинку!
Как это сделать???

И ещё одна проблема! X и Y у DRAWTO вводятся в процентах а не в пикселях! Это очень плохо.


Кинь пожалуйста примеров для VFW вместе с самим VFW.pas а то мой видать с ошибкой и не компилится! Можно на мыло.]]> Scally Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=153208&view=findpost&p=1248910 Sun, 03 Sep 2006 14:09:15 +0000 (Видео+Bitmap)*realtime=? https://forum.sources.ru/index.php?showtopic=153208&view=findpost&p=1248910
       VMRBitmap:= TVMRBitmap.Create(VideoWindow);
       Bitmap:=TBitmap.Create;
       with VMRBitmap, Canvas do
       try
          Bitmap.LoadFromFile(ExtractFilePath(Application.ExeName) + '\penguin.bmp');
          LoadBitmap(Bitmap);
          ColorKey:=clFuchsia;
          Options := VMRBitmap.Options + [vmrbSrcColorKey];
          Source := VMRBitmap.Canvas.ClipRect;
          DrawTo(0,0,1,1, 1);
        finally
          Bitmap.Free;
        end;


А ты делал через canvas. В этом случае ты должен перерисовывать каждый раз когда сробатывает событие onPaint.]]> Pavia Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=153208&view=findpost&p=1248816 Sun, 03 Sep 2006 11:56:10 +0000 (Видео+Bitmap)*realtime=? https://forum.sources.ru/index.php?showtopic=153208&view=findpost&p=1248816 Цитата Pavia @
Scally
Да все там есть. Только готовить надо уметь.
Покрайней мере при рисовании на видео окне прямо в примере видео начинает мерцать Это говорит о уже не пригодности компонента.

Цитата Scally @
И отсуцтвует очень важная и нужная вещь: ресайз (Resize) играющего видео. Оно нужно для того, чтоб проигрывать клип любого размера в размере к примеру 720х576 без потери пропорций, ибо видео может быть и большего и меньшего размера и при наложении на него картинки будет разное качество или размер.

VideoWindow.VMROptions.KeepAspectRatio:=true;
смотри пример
Demos\D6-D7\VMR\VMRPlayWin
кго и смотрел! А толку? Там такого нет.

Цитата Scally @
, НО минус в том что при сварачивании или закрыванием ОКНА С ВИДЕО другим окном - прекращается наложение картинки и текста на полноэкранное устройство, хотя видео выводится.

Не понял о чем это ты. Ну останови вывод. Или в OnPaint обробатывай.
попробуй поставить VideoWindow.VMROptions.Preferences+{или -}[vpPreferAGPMemWhenMixing]
Ничего из этого непомогает! При сварачивании видео окна или закрыванием его другим окном полностью - прекращается наложение хоть картинки, хоть текста.

А вобще мне больше нравится VFW (Video For Windows).
Мне-бы тоже понравилось если были примеры.
кинь если есть плиз.
я недумаю что моя задача очень сложна!

Но кроме как ответов: - "Копай там-то - там-то"
никто ничё неможет. Я уже весь в земле :)! Нашел много другого кроме этого, а если и находил похожее, то оно по каким-то мелочным причинам неподходит.

Такое ощущение что никто незнает как это сделать.

Если несложно закинь примеров поболее для VWF.

Может у тебя аська есть? Так было-б быстрее.

Буду рад РАБОЧИМ примерам. Те что в комплекте - не работают толком!]]> Scally Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=153208&view=findpost&p=1248802 Sun, 03 Sep 2006 11:39:03 +0000 (Видео+Bitmap)*realtime=? https://forum.sources.ru/index.php?showtopic=153208&view=findpost&p=1248802 Scally
Да все там есть. Только готовить надо уметь.

Цитата Scally @
И отсуцтвует очень важная и нужная вещь: ресайз (Resize) играющего видео. Оно нужно для того, чтоб проигрывать клип любого размера в размере к примеру 720х576 без потери пропорций, ибо видео может быть и большего и меньшего размера и при наложении на него картинки будет разное качество или размер.

VideoWindow.VMROptions.KeepAspectRatio:=true;
смотри пример
Demos\D6-D7\VMR\VMRPlayWin

Цитата Scally @
, НО минус в том что при сварачивании или закрыванием ОКНА С ВИДЕО другим окном - прекращается наложение картинки и текста на полноэкранное устройство, хотя видео выводится.

Не понял о чем это ты. Ну останови вывод. Или в OnPaint обробатывай.
попробуй поставить VideoWindow.VMROptions.Preferences+{или -}[vpPreferAGPMemWhenMixing]

А вобще мне больше нравится VFW (Video For Windows).]]> Pavia Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=153208&view=findpost&p=1247593 Fri, 01 Sep 2006 16:39:32 +0000 (Видео+Bitmap)*realtime=? https://forum.sources.ru/index.php?showtopic=153208&view=findpost&p=1247593 Есть надобность проигрывать любой видеофайл установленым в системе видеокодеком, с наложением картинки (TBitmap) по определённой маске или по исключению цвета.
Пробвал компонент DSPACK, НО минус в том что при сварачивании или закрыванием ОКНА С ВИДЕО другим окном - прекращается наложение картинки и текста на полноэкранное устройство, хотя видео выводится.
И отсуцтвует очень важная и нужная вещь: ресайз (Resize) играющего видео. Оно нужно для того, чтоб проигрывать клип любого размера в размере к примеру 720х576 без потери пропорций, ибо видео может быть и большего и меньшего размера и при наложении на него картинки будет разное качество или размер. Компонент TVideoGrabber не подходит по той-же причине, отсуцтвие проигрывания видео в заданом размере (Resize).

В связи с этим ищется компонент который мог бы это организовать. Посоветуйте плиз.]]> Scally Delphi: Общие вопросы