Главная страница
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.023 c
10-1085233283
Cyber
2004-05-22 17:41
2005.03.13
Вставка даных в Word


1-1109080496
newid
2005-02-22 16:54
2005.03.13
глюки стандартных компонентов?


14-1108920064
Kerk
2005-02-20 20:21
2005.03.13
зачем нужны папки _vti_* ?


1-1109323510
Dysan
2005-02-25 12:25
2005.03.13
большие числа


1-1109314667
Alex7
2005-02-25 09:57
2005.03.13
Макроподстановки