Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.03.13;
Скачать: CL | DM;

Вниз

PixelFormat у AVI кадра   Найти похожие ветки 

 
Ozone ©   (2004-11-29 12:04) [0]

Как получить PixelFormat кадра в AVI файле.

Пробовал так:


function GetBitmap(BITMAP: PBITMAPINFOHEADER): TBitmap;
var
  bmpDC : HDC;
  hBMP  : HBITMAP;
  bits  : PChar;
  bmp: TBitmap;
begin
    bmp := TBitmap.Create;
    bmp.Height := BITMAP.biHeight;
    bmp.Width := BITMAP.biWidth;
    bits := Pointer(Integer(BITMAP) + SizeOf(TBITMAPINFOHEADER));
    bmpDC := CreateDC("Display", nil, nil, nil);
    try
      hBMP := CreateDIBitmap( bmpDC,
                              BITMAP^,
                              CBM_INIT,
                              bits,
                              PBITMAPINFO(BITMAP)^,
                              DIB_RGB_COLORS);
    finally
      DeleteDC(bmpDC);
    end;
    bmp.Handle := hBMP;

    Result := bmp;
end;

var
  VideoStream: IAVIStream;
  AVIFrame: IGetFrame;
  BITMAP: PBITMAPINFOHEADER;
  Bmp: TBitmap;
begin
 { ... }
 AVIFrame := AVIStreamGetFrameOpen(VideoStream, nil);
 BITMAP := AVIStreamGetFrame(AVIFrame, 0);
 Bmp := GetBitmap(BITMAP);
 try
   // сдесь у Bmp.PixelFormat = pfDevice (всегда)
 finally
   Bmp.Free;
 end;


Как быть? Подскажите...


 
Ozone ©   (2004-11-29 12:31) [1]

Проблема решена. Спасибо MBo.



Страницы: 1 вся ветка

Текущий архив: 2005.03.13;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.035 c
1-1109332679
Shurik_
2005-02-25 14:57
2005.03.13
OpenDialog1


4-1106632831
SkierMax
2005-01-25 09:00
2005.03.13
Bios


1-1109689050
Bad
2005-03-01 17:57
2005.03.13
Fine Reader?


1-1109751766
Новая
2005-03-02 11:22
2005.03.13
Как динамически создавать однотипные формы?


3-1108373079
m-a-x
2005-02-14 12:24
2005.03.13
фильтрация даты