Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=426003&view=findpost&p=3903105 Tue, 16 Apr 2024 07:33:49 +0000 Текст поверх WindowsMediaPlayer https://forum.sources.ru/index.php?showtopic=426003&view=findpost&p=3903105 Цитата Jin X @
Всем салют!
На форме есть контрол WindowsMediaPlayer.
Мне нужно вывести текст поверх него.

Вывести текст можно более другим способом - проигрывать не самое видео, а скрипт от Avsynth. А вот в нем уже запрограммировать тайм-коды, положение, гарнитуру и цвет текста. Ну, естественно, для такой обработки Avsynth должен быть установлен в системе. До появления ChatGPT скрипты приходилось писать долго и муторно вручную, сейчас с этим гораздо проще - просто написать задание для ChatGPT. Пример:

Цитата
напиши мне скрипт для Аvsynth, который загружает видео video.mkv, и проигрывает его, при этом от начала и до конца проигрывания выводится текст в верхнем левом углу с отступами по вертикали и горионтали 96pх "Пример текста". Текст должен выводится белым цветом, шрифтом Arial, размером 14px. Текст должен иметь обводку черным цветом толщиной 2px

Вот ответ ChatGPT:
    video = DirectShowSource("video.mkv")
    text = "Пример текста"
    text_color = $FFFFFF
    text_outline_color = {text}0000
    text_outline_thickness = 2
    text_font = "Arial"
    text_size = 14
    text_padding_x = 96
    text_padding_y = 96
     
    text_clip = TextSub(video, text, font=text_font, size=text_size, text_color=text_color, \
                        align=3, x=text_padding_x, y=text_padding_y, \
                        text_outline=text_outline_thickness, text_outline_color=text_outline_color)
     
    StackHorizontal(video, text_clip)

Этот скрипт нужно сохранить в файл с расширением .avs и проигрывать его.
Пробуй.]]> Majestio Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=426003&view=findpost&p=3903092 Tue, 16 Apr 2024 05:56:11 +0000 Текст поверх WindowsMediaPlayer https://forum.sources.ru/index.php?showtopic=426003&view=findpost&p=3903092 Gonarh
Думаешь GDI не перерисует поверх? Помню как-то давно была фишка...
Запускаешь видео в WMP, жмешь аль+принтскрин. Запускаешь Paint, делаешь заливку черным, жмешь ctrl+v, и вот видео идет и Пайнте и в плеере. Только в пайнте можно поверх рисовать=)

ПС
Сейчас проверил с различными плеерами, не проканывает=)]]> Bubaylo Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=426003&view=findpost&p=3860859 Wed, 09 Mar 2022 16:46:43 +0000 Текст поверх WindowsMediaPlayer https://forum.sources.ru/index.php?showtopic=426003&view=findpost&p=3860859 Gonarh Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=426003&view=findpost&p=3860842 Wed, 09 Mar 2022 15:34:26 +0000 Текст поверх WindowsMediaPlayer https://forum.sources.ru/index.php?showtopic=426003&view=findpost&p=3860842 Но не могу понять как её создать. Делаю copy-paste, получается ерунда какая-то.
Во-первых, её положение относительно формы другое. Т.е. у формы Left/Top относительно экрана, а у объекта – относительно листа.
Во-вторых, не понимаю, как поменять текст. Пишу TextFrame.TextRange.Text = S, ругается.

Как-то можно именно _создать_ объект "Надпись" без рамки и с прозрачным фоном?
Желательно установив нужный цвет текста, сделав его жирным.
Разместить в нужное место.]]> Jin X Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=426003&view=findpost&p=3860837 Wed, 09 Mar 2022 14:23:32 +0000 Текст поверх WindowsMediaPlayer https://forum.sources.ru/index.php?showtopic=426003&view=findpost&p=3860837 На форме есть контрол WindowsMediaPlayer.
Мне нужно вывести текст поверх него.
Каким образом это можно сделать?
Проблема в том, что все остальные контролы всегда отображаются под WMP.]]> Jin X Visual Basic: Общие вопросы