|
Вопрос # 2 787/ вопрос открыт / |
|
Приветствую, уважаемые эксперты! Вы не могли бы мне подробно объяснить как можно с помощью модуля VFW произвести слияние двух ави файлов в один... Я пробовал описать но у меня не получается, прилагаю исходник. В чём ошибка? AviStreamWrite выполняется с ошибкой...
Приложение: Переключить в обычный режим- procedure TForm1.Button1Click(Sender: TObject);
- var
- AviFile,a:PAviFile;
- AviStream,AviStream2,ss:PAviStream;
- AviInfo:TaviFileInfo;
- StreamInfo:TAviStreamInfo;
- pData:PByteArray;
- b,s:integer;
- begin
- AviFileInit;
- if AviFileOpen(AviFile,'c:1.avi',OF_READ or OF_SHARE_DENY_WRITE,nil)=0 then
- begin
- try
- AviFileInfo(AviFile,AviInfo,sizeof(AviInfo));
- AViStreamOpenFromFile(AviStream,'c:1.avi',StreamTypeVIDEO,0,0,nil);
- AViStreamOpenFromFile(AviStream2,'c:d.avi',StreamTypeVIDEO,0,0,nil);
- AVIStreamInfo(AviStream,StreamInfo,SizeOf(Streaminfo));
- GetMem(pData,aviInfo.dwWidth*AviInfo.dwHeight*3*10);
- AviFileOpen(A,'c:m.avi',OF_Write+OF_Create,nil);
- AviFileCreateStream(a,ss,StreamInfo);
-
- if failed(AviStreamRead(Avistream,1,10,pData,aviInfo.dwWidth*AviInfo.dwHeight*3,b,s))
- then ShowMessage('Awer');
- if failed(AviStreamWrite(ss,1,10,pdata,aviInfo.dwWidth*AviInfo.dwHeight*3,AVIIF_KEYFRAME, s,b))
- then ShowMessage('Awer');
- except
- ShowMessage('qwerty');
-
- end;
 |
Вопрос задал: Serj0987 (статус: Посетитель)
Вопрос отправлен: 15 мая 2009, 13:13
Состояние вопроса: открыт, ответов: 0.
|
Мини-форум вопроса
Мини-форум пуст.
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
