На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
msm.ru
! Правила раздела Visual Basic: Общие вопросы
Здесь обсуждаются вопросы по языку Visual Basic 1-6 (а так же по схожим языкам, как, например, PowerBASIC).
Вопросы по Visual Basic .NET (это который входит в состав Visual Studio 2002/2003/2005/2008+, для тех, кто не в курсе) обсуждаются в разделе .NET.

Обратите внимание:
1. Прежде чем начать новую тему или отправить сообщение, убедитесь, что Вы не нарушаете правил форума!
2. Обязательно воспользуйтесь поиском. Возможно, Ваш вопрос уже обсуждали. Полезные ссылки приведены ниже.
3. Темы с просьбой выполнить какую-либо работу за автора в этом разделе не обсуждаются. Студенты, вам сюда: ПОМОЩЬ СТУДЕНТАМ!
4. Используйте теги [ code=vba ] ...текст программы... [ /code ] для выделения текста программы подсветкой.
5. Помните, здесь телепатов нет. Формулируйте свой вопрос максимально грамотно и чётко: Как правильно задавать вопросы
6. Запрещено отвечать в темы месячной (и более) давности, без веских на то причин.

Полезные ссылки:
user posted image FAQ Сайта user posted image FAQ Раздела user posted image Кладовка user posted image Наши Исходники user posted image API-Guide user posted image Поиск по Разделу user posted image MSDN Library Online user posted image Google

Ваше мнение о модераторах: user posted image SCINER, user posted image B.V.
Модераторы: SCINER, B.V.
  
> Создание видеофайла из рисунков BMP - нужен исходник или алгоритм. , Visual Basic v.6.0.
    Задача: склеить несколько файлов BMP как кадры и создать видеофайл.
      Я как-то так делал (язык - Си; на бэйсик переведёте, думаю):
      ExpandedWrap disabled
        extern SIZE openGLsize; // размеры
        ...
            PAVIFILE aviI;      // файл
            PAVISTREAM potok;       // поток
            AVISTREAMINFOW info={0};    // описание потока
         
            ::AVIFileInit(); // начало=инициализация AVI библиотеки
            int ret = ::AVIFileOpenW( &aviI, fName, OF_CREATE|OF_WRITE, NULL);
            if( ret )
            {
            ret = -1;
              LBL_goOut:
            ::AVIFileExit(); // закончили
            return ret;
            }
            info.fccType = streamtypeVIDEO;
            info.fccHandler = mmioFOURCC('M','S','V','C');
            info.dwFlags = AVISTREAMINFO_DISABLED;
            info.dwCaps = AVIFILECAPS_CANREAD|AVIFILECAPS_NOCOMPRESSION|AVIFILECAPS_ALLKEYFRAMES;
            info.dwScale = 1;
            info.dwRate = (int)(fps*1);
            info.dwLength = len*interK; // 30;
            info.dwQuality = 5000; // качество : 0..10*1000
            info.dwSampleSize = 0; // величина кадра : 0=меняющийся
            info.rcFrame.left = info.rcFrame.top = 0;
            info.rcFrame.right = openGLsize.cx, info.rcFrame.bottom = openGLsize.cy;
            wcscpy( info.szName, L"Моё видео");
         
            ret = ::AVIFileCreateStreamW( aviI, &potok, &info);
            if( ret ) { ret=-2; goto LBL_goOut; }
         
            BITMAPINFOHEADER bi={sizeof(BITMAPINFOHEADER),0};
            bi.biWidth = info.rcFrame.right,
            bi.biHeight = info.rcFrame.bottom, bi.biPlanes = 1,
            bi.biBitCount = 32, bi.biCompression = 0,
            bi.biSizeImage = openGLsize.cx*openGLsize.cy*4;
         
            ::AVIStreamSetFormat( potok, 0, &bi,sizeof(BITMAPINFOHEADER));
            ::AVIFileRelease( aviI ); //сам файл надо закpывать до записи
         
            for( int fr=0; fr<len-1; fr++) // ключевые
            {
            PucyeM(); // перерисуем всё
            glReadPixels( 0,0, openGLsize.cx,openGLsize.cy, GL_BGRA_EXT, GL_UNSIGNED_BYTE, ptr); // coxpaним
            ::AVIStreamWrite( potok,total,1, ptr, openGLsize.cx*openGLsize.cy*4,
                    AVIIF_KEYFRAME, &wrSamplesOK, &wrBytesOK);
            }
            ::AVIStreamRelease( potok );
            ::AVIFileExit();// закончили
        0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
        0 пользователей:


        Рейтинг@Mail.ru
        [ Script execution time: 0,0257 ]   [ 17 queries used ]   [ Generated: 19.03.24, 09:22 GMT ]