| Предыдущая тема :: Следующая тема |
| Автор |
Сообщение |
maikeru
Новенький
Зарегистрирован: 05.03.2008
Сообщения: 5
|
 Добавлено: Ср Мар 05, 2008 12:05 pm Заголовок сообщения: Не корректное сжатие кодеком |
 |
|
При захвате видео и записи его в файл в несжатом виде проходит все отлично. Но когда дело доходит до компресии каким либо кодеком, то видео сжатого файла длиться 10 секунд... Не могу разобраться в чем проблема???  |
|
| Вернуться к началу |
|
 |
WondeRu
Главвред :)
Зарегистрирован: 30.10.2006
Сообщения: 188
Откуда: Самара
|
| Добавлено: Чт Мар 06, 2008 2:30 pm Заголовок сообщения: |
|
|
| а код можешь показать? |
|
| Вернуться к началу |
|
|
maikeru
Новенький
Зарегистрирован: 05.03.2008
Сообщения: 5
|
| Добавлено: Ср Мар 26, 2008 4:53 am Заголовок сообщения: |
|
|
| Код: |
with Form_Settings.FilterGraph1 as IGraphBuilder do
AddSourceFilter(StringToOleStr(fn_in),StringToOleStr(fn_in), SourceFile);
with Form_Settings.FilterGraph1 as ICaptureGraphBuilder2 do
SetOutputFileName(MEDIASUBTYPE_Avi,StringToOleStr(fn_out),multiplexer, DestFile);
if Form_Settings.Combo_video_format.ItemIndex <> -1 then
begin
AUcodecs.Add(vdFilters.GetBaseFilter(Form_Settings.Combo_video_format.ItemIndex));
with Form_Settings.FilterGraph1 as IGraphBuilder do
AddFilter(AUcodecs.Last,StringToOleStr(Form_Settings.Combo_video_format.Items.Strings[Form_Settings.Combo_video_format.ItemIndex]));
end;
AUcodecs.Add(auFilters.GetBaseFilter(Form_Settings.Combo_audio_codec.ItemIndex));
with Form_Settings.FilterGraph1 as IGraphBuilder do
AddFilter(AUcodecs.Last,StringToOleStr(Form_Settings.Combo_audio_codec.Items.Strings[Form_Settings.Combo_audio_codec.ItemIndex]));
if AUcodecs.Count > 0 then
for i := 0 to AUcodecs.Count - 1 do
with Form_Settings.FilterGraph1 as ICaptureGraphBuilder2 do
RenderStream(nil,nil,SourceFile,AUcodecs.Items[i],multiplexer);
Form_Settings.FilterGraph1.Play;
|
|
|
| Вернуться к началу |
|
|
|
