проблемы с добавлением звука в AVI

← →
fghfg (2005-10-23 20:34) [0]

короче, пытаюсь добавить звук следующим образом (в качестве wav используется тип twave из delphix)

var
PFile: PAVIFile;
WSI: TAVIStreamInfo;
WS: PAVIStream;
wav: twave;
wavefmt: tpcmwaveformat;

...
FillCHar(WSI, SizeOf(WSI), 0);
WSI.fccType:=streamtypeAUDIO;
WSI.dwScale:=wav.format.nBlockAlign;
WSI.dwSampleSize:=wav.format.nBlockAlign;
wavefmt.wf.wFormatTag:=wav.format.wFormatTag;
wavefmt.wf.nChannels:=wav.format.nChannels;
wavefmt.wf.nSamplesPerSec:=wav.format.nSamplesPerSec;
wavefmt.wf.nAvgBytesPerSec:=wav.format.nAvgBytesPerSec;
wavefmt.wf.nBlockAlign:=wav.Format.nBlockAlign;
wavefmt.wBitsPerSample:=wav.format.wBitsPerSample;
if AVIFileCreateStream(PFile, WS, WSI) = AVIERR_OK then
begin
AVIStreamSetFormat(WS, 0, @wavefmt, sizeof(wavefmt));
if AVIStreamWrite(WS, 0, wav.size, wav.Data, wav.Size, AVIIF_KEYFRAME, Nul, Nul) <> AVIERR_OK then raise Exception.Create("...");
end;
...

так вот, сохраняю файл, открываю его плеером, а звука нет, при этом сами звуковые данные в файле есть, это видно в инфе о файле, и они оттуда спокойно достаются; пробовал вместо tpcmwaveformat юзать twaveformatex - разницы никакой; кто знает в чем дело?

← →
ooommm (2005-10-26 23:02) [1]

Может быть поможет:
http://forum.vingrad.ru/index.php?act=module&module=vingradfaq&target=main_panel&article=2942

← →
fghfg (2005-10-28 15:37) [2]

никто не знает?

проблемы с добавлением звука в AVI Найти похожие ветки