Главная страница
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.044 c
6-1105434379
Aleksandr.
2005-01-11 12:06
2005.03.13
Как наладить HTTP/HTTPS прокси через IdTCPClient?


4-1106136295
ShiZ
2005-01-19 15:04
2005.03.13
Отлавливание сигналов с клавиатуры.


14-1108974584
Cosinus
2005-02-21 11:29
2005.03.13
TChart - Invalid Pointer Operation. Достало уже.


14-1108748490
Knoxville
2005-02-18 20:41
2005.03.13
Как из картинки с текстом сделать просто текст?


1-1109667568
Serge_2
2005-03-01 11:59
2005.03.13
StatusBar - прорисовка