VPF::LibVLC воспроизведение видео из TMemoryStream

Flashboy

Дата 12.6.2012, 01:18 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 41
Регистрация: 13.3.2010

Репутация: нет
Всего: нет

Подскажите пожалуйста,
кто-нибудь сталкивался с необходимостью воспроизвести видео файл из памяти TMemoryStream c помощью библиотеки libvlc.dll(VideoLAN)?
Воспроизведение из файла реализовано, необходимо воспроизвести из памяти.
Подскажите примером, кто знает, как из имеющихся данных реализовать.
Если по типам и функциям будет что-то непонятно, исходник в аттаче.

Код


procedure Play;
begin
  // VS:=TMemoryStream.Create;
  //VS.LoadFromFile('AnyVideo.mkv');
  
   vlcInstance :=libvlc_new(0, nil);
   vlcMedia := libvlc_media_new_path(vlcInstance, 'AnyVideo.mkv');
   vlcMediaPlayer := libvlc_media_player_new_from_media(vlcMedia);
   libvlc_media_release(vlcMedia);
   libvlc_media_player_set_hwnd(vlcMediaPlayer, Pointer(Panel1.Handle));
   libvlc_media_player_play(vlcMediaPlayer);
end;

Это сообщение отредактировал(а) Flashboy - 12.6.2012, 01:19

Присоединённый файл ( Кол-во скачиваний: 24 )

VLCPlay.zip 4,53 Kb

Illusion Dolphin

Дата 27.6.2012, 21:24 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1198
Регистрация: 3.5.2003

Репутация: 13
Всего: 63

Присоединяюсь к вопросу.
Нашёл возможность воспроизведение потока через http сервер, но при этом недоступна перемотка:

На форму кидаем TIdHTTPServer,

Код



procedure TForm2.IdHTTPServer1CommandGet(AContext: TIdContext;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
var
  FS: TFileStream;
  ContentType: string;
  {$IFDEF WIN32_OR_WIN64}
  LOldErrorMode : Integer;
  {$ENDIF}
begin
  FS := TFileStream.Create('file.avi', fmOpenRead);
  try
    ContentType := IdHTTPServer1.MIMETable.GetFileMIMEType('file.avi');
    AResponseInfo.WriteHeader;
    {$IFDEF WIN32_OR_WIN64}
    LOldErrorMode := SetErrorMode(SEM_FAILCRITICALERRORS);
    try
    {$ENDIF}
      AContext.Connection.IOHandler.Write(FS);
    {$IFDEF WIN32_OR_WIN64}
    finally
      SetErrorMode(LOldErrorMode)
    end;
    {$ENDIF}
  finally
    FS.Free;
  end;
end;

...

   открывать файл по по адресу:
   s :=  'http://localhost:' + IntToStr(IdHTTPServer1.DefaultPort);// OpenDialog1.FileName;
   vlcMedia:= libvlc_media_new_path(vlcInstance,s);

Очень была бы интересно решение без сети, но найти такого не смог.

--------------------

В мире всего две бесконечности: вселенная и человеческая глупость... На счёт вселенной я не уверен.
Шифрование и организация фотографий - Photo Database 4.5

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »