Хелп!! Прога должна делать из bmp avi.но AVIStreamSetFormat вне зависимости от кодека возвращает AVIERR_UNSUPPORTED и AVIStreamWrtie не пишет.
Вот код:


BITMAPFILEHEADER bmFH;
BITMAPINFO bmI;
void *pBits;


void __fastcall TForm2::Button1Click(TObject *Sender)
{
PAVIFILE pFile;
PAVISTREAM pStream, pCompressed;
LPAVICOMPRESSOPTIONS opt = new AVICOMPRESSOPTIONS;
AVISTREAMINFO psi;

long Result;

BmpRead("c:\\ee.bmp");

AVIFileInit();

Result = AVIFileOpen(&pFile, "sam_R.avi", OF_CREATE | OF_WRITE, 0);
ShowAVIResult(Result, "AVIFileOpen()");

psi.fccType = streamtypeVIDEO;
psi.fccHandler = 0;
psi.dwScale = 1;
psi.dwRate = 24;
psi.dwSuggestedBufferSize = bmI.bmiHeader.biSizeImage;
SetRect(&psi.rcFrame, 0, 0, bmI.bmiHeader.biWidth, bmI.bmiHeader.biHeight);

if (AVIFileCreateStream(pFile, &pStream, &psi) != AVIERR_OK)
{
Application->MessageBoxA("AVIFileCreateStream()", "AVIERROR", MB_OK);
return;
}

//*
Result = AVISaveOptions(Form2->Handle,
ICMF_CHOOSE_KEYFRAME | ICMF_CHOOSE_DATARATE | ICMF_CHOOSE_PREVIEW,
1, &pStream, &opt);
if (!Result)
{
AVISaveOptionsFree(1, &opt);
if (pFile) AVIFileRelease(pFile);
Application->MessageBoxA("AVISaveOptions()", "Error", MB_OK);
return;
}

Result = AVIMakeCompressedStream(&pCompressed, pStream, opt, 0);
ShowAVIResult(Result, "AVIMakeCompressedStream()");

Result = AVIStreamSetFormat(pCompressed, 0, &(bmI.bmiHeader), sizeof(bmI.bmiHeader));
ShowAVIResult(Result, "AVIStreamSetFormat");


for (int i=0; i <= 100; i++)
{
Result = AVIStreamWrite( pCompressed, i, 0, pBits, bmI.bmiHeader.biSizeImage, AVIIF_KEYFRAME, 0, 0);
ShowAVIResult(Result, "AVIStreamWrite()");
if (Result) break;
}

AVIStreamRelease(pStream);
AVIStreamRelease(pCompressed);
AVIFileExit();

}

Это сообщение отредактировал(а) borpavlenko - 20.3.2006, 14:56