Ошибка при попытке воспроизвести видео BASS -> Форум на Исходниках.Ру

	Наши проекты: Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту

Здравствуйте, Гость ! [18.191.88.249]

ПРАВИЛА РАЗДЕЛА · FAQ раздела Delphi · Книги по Delphi

Пожалуйста, выделяйте текст программы тегом [сode=pas] ... [/сode]. Для этого используйте кнопку [code=pas] в форме ответа или комбобокс, если нужно вставить код на языке, отличном от Дельфи/Паскаля.

Следующие вопросы задаются очень часто, подробно разобраны в FAQ и, поэтому, будут безжалостно удаляться:
1. Преобразовать переменную типа String в тип PChar (PAnsiChar)
2. Как "свернуть" программу в трей.
3. Как "скрыться" от Ctrl + Alt + Del (заблокировать их и т.п.)
4. Как прочитать список файлов, поддиректорий в директории?
5. Как запустить программу/файл?
... (продолжение следует) ...

Вопросы, подробно описанные во встроенной справочной системе Delphi, не несут полезной тематической нагрузки, поэтому будут удаляться.
Запрещается создавать темы с просьбой выполнить какую-то работу за автора темы. Форум является средством общения и общего поиска решения. Вашу работу за Вас никто выполнять не будет.

Внимание
Попытки открытия обсуждений реализации вредоносного ПО, включая различные интерпретации спам-ботов, наказывается предупреждением на 30 дней.
Повторная попытка - 60 дней. Последующие попытки бан.
Мат в разделе - бан на три месяца...

Модераторы: jack128, D[u]fa, Shaggy, Rouse_

Новое голосование

Ошибка при попытке воспроизвести видео BASS

frogmix

Сообщ. #1 , 23.08.17, 16:03

Newbie

Профиль · PM

Рейтинг (т): нет

Добрый день.

Есть необходимость из TStream отображать видео.
Выбрал для этой задачи BASS.

Есть вот такой код:

xVideo_Init(Form2.panel1.handle,0);

if(chan<>0) then begin

xVideo_StreamFree(chan);

chan := 0;

Stream.Free;

end;

Stream:= TMemoryStream.Create();

try

FileStream := TFileStream.Create(Global_FileStart, fmOpenRead);

except

Exit;

end;

Stream.LoadFromStream(FileStream);

FileStream.Free;

chan := xVideo_StreamCreateFileMem(Stream.Memory,Stream.Size,Form2.panel1.Handle,0);

if chan<>0 then begin

xVideo_ChannelSetWindow(chan,0,Form2.panel1.Handle);

Form2.ProgressBar1.max:=round(xVideo_ChannelGetLength(chan,xVideo_POS_SEC));

if(paused=true)then paused:=true;

xVideo_ChannelPlay(chan);

end;

Проблема в том, что этот код прекрасно работает на моём компьютере, а вот на соседнем, с той же виндовс 10, уже не работает.
Строка

chan := xVideo_StreamCreateFileMem(Stream.Memory,Stream.Size,Form2.panel1.Handle,0);

Возвращает 0.

Более того, я начинал с примера работы через DirectShow

Там есть такой код:

{вызываем RenderFile - граф фильтров строится автоматически}

MyGraphBuilder.RenderFile('C:\Program Files\Borland\Delphi5\Demos\Coolstuf\cool.avi', nil);

На моём компе работает отлично, на втором - Не удаётся прорендерить файл.

Подскажите пожалуйста, кто работал с видео, в чём может быть проблема, куда копать? Может каких-то длл не хватает, или ещё чего?
Кто нибудь может сталкивался с такой проблемой?

Добавлено 23.08.17, 16:10
От чего зависит успешное выполнение этих функций? В гугле и яндексе крайне мало информации по этому вопросу, а попыка вбить в гугл или яндекс строку "xVideo_StreamCreateFileMem" даёт вообще не тот результат, который ожидаешь...

Сообщение отредактировано: frogmix - 23.08.17, 16:10

0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)

0 пользователей:

[ Script execution time: 0,0212 ] [ 16 queries used ] [ Generated: 25.04.24, 05:31 GMT ]