кадр из avi

[пауэрлифтинг]

почему у меня кадр из avi файла черно-белый получаетьса?

 AVIFileInit;
       AVIStreamOpenFromFile(AviStream, 'c:\1.avi', streamtypeVIDEO,0,OF_READ, nil);
       Frame := AVIStreamGetFrameOpen(AviStream, nil);
       pbmi := AVIStreamgetFrame(Frame, CurrFrame);
       bits := Pointer(Integer(pbmi)+ SizeOf(TBITMAPINFOHEADER) );
TmpBmp.Handle := CreateDIBitmap(
// Вспомогательным контекстом служит HDC поверхности
wrkDC,
pbmi^, // Адрес размера растра и формата данных
CBM_INIT, // Флаг инициализации
bits, // Данные для инициализации
PBITMAPINFO(pbmi)^, // Данные о формате цвета
DIB_RGB_COLORS); // Флаг цветности растра
  Application.ProcessMessages;
form1.Image1.Canvas.Draw(0,0,TmpBmp);

[raxp]

ради интереса на других avi-ках пробовали? у меня цветные...

var AVIStream: pAVIStream;
    frame: pGETFRAME;
    pbmi:pBITMAPINFOHEADER;
    bits: PChar;
    hBmp: HBITMAP;
    AviInfo: TAVIFILEINFO;
    TmpBmp: TBitmap;
    DC_Handle: HDC;
begin
 AVIFileInit;
 AVIStreamOpenFromFile(AviStream, '1.avi', streamtypeVIDEO,0,OF_READ, nil);
 Frame := AVIStreamGetFrameOpen(AviStream, nil);
 pbmi := AVIStreamgetFrame(Frame, 5);
 bits := Pointer(Integer(pbmi)+ SizeOf(TBITMAPINFOHEADER) );


 TmpBmp:= TBitmap.Create;
 TmpBmp.Height:= pbmi.biHeight;
 TmpBmp.Width := pbmi.biWidth;
 bits:= Pointer(Integer(pbmi) + SizeOf(TBITMAPINFOHEADER));

 DC_Handle:= CreateDC('Display', nil, nil, nil);
 try
  hBmp:= CreateDIBitmap(DC_Handle, //handle device context
                        pbmi^,              //address bitmap size and format data
                        CBM_INIT,           //flag
                        bits,               //address initialization data
                        PBITMAPINFO(pbmi)^, //address of bitmap color-format data
                        DIB_RGB_COLORS);    //color-data usage
 finally DeleteDC(DC_Handle);end;
 TmpBmp.Handle:= hBmp;
 Image1.Picture.Bitmap.Assign(TmpBmp)

[пауэрлифтинг]

твой код работает выводит по цветному. спасибо

[raxp]

скорее вы забыли инициализировать что-то... что сказать не могу, коду у вас неполный.