Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 2 787

/ вопрос открыт /

Приветствую, уважаемые эксперты! Вы не могли бы мне подробно объяснить как можно с помощью модуля VFW произвести слияние двух ави файлов в один... Я пробовал описать но у меня не получается, прилагаю исходник. В чём ошибка? AviStreamWrite выполняется с ошибкой...

Приложение:
  1. procedure TForm1.Button1Click(Sender: TObject);
  2. var
  3. AviFile,a:PAviFile;
  4. AviStream,AviStream2,ss:PAviStream;
  5. AviInfo:TaviFileInfo;
  6. StreamInfo:TAviStreamInfo;
  7. pData:PByteArray;
  8. b,s:integer;
  9. begin
  10. AviFileInit;
  11. if AviFileOpen(AviFile,'c:1.avi',OF_READ or OF_SHARE_DENY_WRITE,nil)=0 then
  12. begin
  13. try
  14. AviFileInfo(AviFile,AviInfo,sizeof(AviInfo));
  15. AViStreamOpenFromFile(AviStream,'c:1.avi',StreamTypeVIDEO,0,0,nil);
  16. AViStreamOpenFromFile(AviStream2,'c:d.avi',StreamTypeVIDEO,0,0,nil);
  17. AVIStreamInfo(AviStream,StreamInfo,SizeOf(Streaminfo));
  18. GetMem(pData,aviInfo.dwWidth*AviInfo.dwHeight*3*10);
  19. AviFileOpen(A,'c:m.avi',OF_Write+OF_Create,nil);
  20. AviFileCreateStream(a,ss,StreamInfo);
  21.  
  22. if failed(AviStreamRead(Avistream,1,10,pData,aviInfo.dwWidth*AviInfo.dwHeight*3,b,s))
  23. then ShowMessage('Awer');
  24. if failed(AviStreamWrite(ss,1,10,pdata,aviInfo.dwWidth*AviInfo.dwHeight*3,AVIIF_KEYFRAME, s,b))
  25. then ShowMessage('Awer');
  26. except
  27. ShowMessage('qwerty');
  28.  
  29. end;


Serj0987 Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: Serj0987 (статус: Посетитель)
Вопрос отправлен: 15 мая 2009, 13:13
Состояние вопроса: открыт, ответов: 0.


Мини-форум вопроса

Мини-форум пуст.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 24 февраля 2020, 12:42
Выполнено за 0.02 сек.
Рейтинг@Mail.ru