Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Мультимедиа в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 22.03.2010, 21:19   #1
kotzzz
Пользователь
 
Регистрация: 30.01.2009
Сообщений: 39
Вопрос Error loading file - при открытии .avi файла

Вообщем есть исходники медиапроигрывателя - в нем все подстроил под себя, так чтобы мне он проигрывал один виде-файл... Всё работает вуаля...

Но столкнулся с другой проблемой, у мня что-то типа тестера, прикрепил к главному окну по событию нажатия кнопки запуск формы с медиаплеером+запуск этого видео файла - пишет ошибку "Error loading file", запускаю отдельно - все нормально. Как только я прикрепляю модули к основной программе, вылазиет эта ошибка...

Код:
в основной программе:
procedure TForm1.Button1Click(Sender: TObject);
begin
 MainFrm.Show;
end;



в прикрепляемом юните:
procedure TMainFrm.FormShow(Sender: TObject);
begin
MediaFileName:='c:\PAL.avi';
Caption:=loadMediaFile(MediaFileName, fr.Handle);
if MediaStreamAvailable then try
if VideoAvailable then begin
Application.ProcessMessages;
setVideoPos(5, 5, fr.Width-15, fr.Height-15);
Application.ProcessMessages;
fr.Visible:=true;
end else
fr.Visible:=false;
Application.ProcessMessages;
playMediaStream;
Progress.Position:=0;
Progress.Max:=integer(getMediaStreamDuration div 10000) ;
except
end;
end;
Медиаплееер, создавал не я. соответственно мало понимаю в предназначениях каждых команд. Отдельно юнит с этим файлом работает, а как только делаешь связку и из программы вызываешь его - пишет ошибку, о которой я говорил выше...

В чем поблема? подскажите!
kotzzz вне форума Ответить с цитированием
Старый 22.03.2010, 22:42   #2
notHaker
Форумчанин
 
Аватар для notHaker
 
Регистрация: 01.12.2009
Сообщений: 569
По умолчанию

Цитата:
procedure TMainFrm.FormShow(Sender: TObject);
Перенесите в FormCreate (он вызывается однажды)
Код - это работа, а работа стоит денег.

pz-game.ru. 2d зомби-сурвивал для олдфагов.
notHaker вне форума Ответить с цитированием
Старый 23.03.2010, 08:40   #3
kotzzz
Пользователь
 
Регистрация: 30.01.2009
Сообщений: 39
По умолчанию

Цитата:
Сообщение от notHaker Посмотреть сообщение
Перенесите в FormCreate (он вызывается однажды)
не помогает... он тогда вообще никак не реагирует...

самое интересное что отдельно модуль работает, как только присоединяю к основной программе, он не запускается должным образом...
kotzzz вне форума Ответить с цитированием
Старый 23.03.2010, 08:46   #4
notHaker
Форумчанин
 
Аватар для notHaker
 
Регистрация: 01.12.2009
Сообщений: 569
По умолчанию

Код:
MediaFileName:='c:\PAL.avi';
Caption:=loadMediaFile(MediaFileName, fr.Handle)
Перенесите в FormCreate.

Вы разберитесь, что должно выполнятся однажды, а что при FormShow
Код - это работа, а работа стоит денег.

pz-game.ru. 2d зомби-сурвивал для олдфагов.
notHaker вне форума Ответить с цитированием
Старый 23.03.2010, 08:55   #5
kotzzz
Пользователь
 
Регистрация: 30.01.2009
Сообщений: 39
По умолчанию

Цитата:
Сообщение от notHaker Посмотреть сообщение
Код:
MediaFileName:='c:\PAL.avi';
Caption:=loadMediaFile(MediaFileName, fr.Handle)
Перенесите в FormCreate.

Вы разберитесь, что должно выполнятся однажды, а что при FormShow

Пробовал, не выходит...
kotzzz вне форума Ответить с цитированием
Старый 23.03.2010, 08:57   #6
notHaker
Форумчанин
 
Аватар для notHaker
 
Регистрация: 01.12.2009
Сообщений: 569
По умолчанию

мда... таже ошибка?
Код - это работа, а работа стоит денег.

pz-game.ru. 2d зомби-сурвивал для олдфагов.
notHaker вне форума Ответить с цитированием
Старый 23.03.2010, 09:04   #7
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Архив с проектом в студию.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 23.03.2010, 09:28   #8
kotzzz
Пользователь
 
Регистрация: 30.01.2009
Сообщений: 39
По умолчанию

Project1 - основная программа

MediaPlayer - проект проигрывания файла

Ссылка для скачивания исходников

Заранее спасибо... только если получится, исходники без файла Pal.avi передать можете...

Последний раз редактировалось kotzzz; 23.03.2010 в 09:46.
kotzzz вне форума Ответить с цитированием
Старый 24.03.2010, 08:07   #9
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Хм... Действительно...
Возможно что-то в том проекте учтено чего ты не увидел...
Например какой-нить ключик в ресурсах стоит, из-за которого загрузка не возможна.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 24.03.2010, 19:30   #10
kotzzz
Пользователь
 
Регистрация: 30.01.2009
Сообщений: 39
Вопрос

Цитата:
Сообщение от Stilet Посмотреть сообщение
Хм... Действительно...
Возможно что-то в том проекте учтено чего ты не увидел...
Например какой-нить ключик в ресурсах стоит, из-за которого загрузка не возможна.
Вот и я не могу понять... Stilet, а у тебя нет исходников проигрывателя, чтоб была возможность воспроизвести этот файл AVI?
kotzzz вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Ищу причину ошибки: Error in loading DLL, она же Error 48. hozpraktik Microsoft Office Excel 1 19.11.2009 12:39
Как решить проблему с Error in loading DLL (Error 48)? Klim Bassenger Microsoft Office Excel 4 23.10.2009 13:44
Error 1 fatal error C1083: Cannot open include file: 'iostream.h': No such file or directory s20 Общие вопросы C/C++ 2 26.09.2009 23:28
Error in loading DLL (Error 48) x8i Microsoft Office Access 2 29.07.2009 13:23
C++: ошибка при открытии файла Retiz Помощь студентам 2 30.08.2008 22:12