| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
проблемы с добавлением звука в AVI
fghfg © (2005-10-23 20:34:00)короче, пытаюсь добавить звук следующим образом (в качестве 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 - разницы никакой; кто знает в чем дело?
fghfg (2005-10-28 15:37:00) [1]никто не знает?
ooommm (2005-10-26 23:02:00) [2]Может быть поможет:
http://forum.vingrad.ru/index.php?act=module&module=vingradfaq&target=main_panel&article=2942
| |
