Воспроизведение видео с MemoryStream, использование FFMpeg

Мне тяжело, ища способ воспроизведения видеофайла из TMemoryStream (или аналогичного буфера в памяти) с помощью FFMpeg. Я видел много вещей, включая UltraStarDX, дорогие компоненты FFMpeg для Delphi и т.д.

Один компонент, называемый FFMpeg Vcl Player утверждает, что воспроизводит видеоформаты из потока памяти. Я загрузил пробную версию, и я предполагаю, что она использует CircularBuffer.pas, если на то пошло (возможно).

Кто-нибудь знает, как это сделать?

Изменить: Теперь лучший вопрос - как воспроизвести зашифрованный видеофайл, используя FFMpeg или подобные библиотеки.

Ответ 1

Чтобы воспроизводить видео из потока памяти, вы можете использовать пользовательский AVIOContext.

static const int kBufferSize = 4 * 1024;

class my_iocontext_private
{
private:
    my_iocontext_private(my_iocontext_private const &);
    my_iocontext_private& operator = (my_iocontext_private const &);

public:
    my_iocontext_private(IInputStreamPtr inputStream)
       : inputStream_(inputStream)
       , buffer_size_(kBufferSize)
       , buffer_(static_cast<unsigned char*>(::av_malloc(buffer_size_))) {
    ctx_ = ::avio_alloc_context(buffer_, buffer_size_, 0, this,
           &my_iocontext_private::read, NULL, &my_iocontext_private::seek); 
    }

    ~my_iocontext_private() { 
        ::av_free(ctx_);
        ::av_free(buffer_); 
    }

    void reset_inner_context() { ctx_ = NULL; buffer_ = NULL; }

    static int read(void *opaque, unsigned char *buf, int buf_size) {
        my_iocontext_private* h = static_cast<my_iocontext_private*>(opaque);
        return h->inputStream_->Read(buf, buf_size); 
    }

    static int64_t seek(void *opaque, int64_t offset, int whence) {
        my_iocontext_private* h = static_cast<my_iocontext_private*>(opaque);

        if (0x10000 == whence)
            return h->inputStream_->Size();

        return h->inputStream_->Seek(offset, whence); 
    }

    ::AVIOContext *get_avio() { return ctx_; }

    private:
       IInputStreamPtr inputStream_; // abstract stream interface, You can adapt it to TMemoryStream  
       int buffer_size_;
       unsigned char * buffer_;  
       ::AVIOContext * ctx_;
   };


   //// ..........

   /// prepare input stream:
   IInputStreamPtr inputStream = MyCustomCreateInputStreamFromMemory();

   my_iocontext_private priv_ctx(inputStream);
   AVFormatContext * ctx = ::avformat_alloc_context();
   ctx->pb = priv_ctx.get_avio();

   int err = avformat_open_input(&ctx, "arbitrarytext", NULL, NULL);
   if (err < 0) 
       return -1;

   //// normal usage of ctx
   //// avformat_find_stream_info(ctx, NULL);
   //// av_read_frame(ctx, &pkt); 
   //// etc..

Ответ 2

Вы можете тратить время на переписывание FFMPEG с С++ на Delphi или беспорядок с библиотеками-оболочками.

Или, если вас просто интересует воспроизведение видео в Delphi, ознакомьтесь с компонентами Mitov VideoLab.

http://www.mitov.com/products/videolab#components

Ответ 3

Если вы хотите воспроизвести Stream из памяти, вы можете создать виртуальную память. Я предлагаю BoxedAppSdk.

Это поможет вам создать виртуальный диск с виртуальными файлами, которые вы можете записать на нем, а затем предоставить виртуальный путь к компоненту проигрывателя, который у вас есть.

BoxedApp не является бесплатным, но он действительно потрясающий и очень простой в использовании!