MediaPlayer

[Killbrum]

Всем доброе время суток! Вот тут сидел с плеером... при запуске на других компютерах возникает MCI ошыбка. Ну я впихнул в каталог с файлом звуковой файлик да и дело с концом. Но, интересно можно зделать так чтоб етой ошыбки не возникало без звукового файла? Чтоб в комплекте шол только 1 ехе файл?

[mutabor]

Конечно возникает, то что ты в инспекторе объектов задаешь файл, на самом деле просто записывается путь к нему в свойство FileName. Естественно если файл не обнаруживается, возникает ошибка.

Чтобы ошибки не возникало, достаточно проверять предварительно наличие файла функцией FileExists.

Чтобы в комплекте шел один exe файл, музыку нужно засунуть в ресурсы этого exe.

[Killbrum]

Ну да я понимаю что я пишу путь . Если я зделаю чтоб МП запускалса без пути к файлу возникнет ошыбка EMCIDivaceError. Потому и хочу впихнуть файлик. Ты немог бы подсказать как конкретно впихнуть етот файлик?
Ах да и ещо одно. Как называетса в програме етот еррор? Ну я имею ввиду MCI чтоб я мог зделать для него исключительную ситуацыю

[mutabor]

чтобы воспроизведение началось успешно, необходимо:
1. Задать путь к файлу - Mediaplayer1.FileName:='music.mp3';
2. Открыть устройство - Mediaplayer1.Open;
3. Включить проигрывание - Mediaplayer1.Play;

Вовсе не обязательно "подшивать" музыкальный файл в екзешник. Вполне можно положить его рядом с ним, так даже лучше. Нормальный адекватный юзер никогда не удалит этот файл, так как многие программы свои звуки хранят именно так, и все это знают. На случай удаления, перед загрузкой музыки просто проверять путь к файлу, если файл не существует выдать сообщение "Звуковой файл не найден. Вероятно вы его удалили..." ну и дальше в таком роде. Ну и естественно не пытаться его проигрывать. Лучше предотвратить исключение чем его обрабатывать.

Конечно можно хранить в ресурсах, это отдельная тема, причем многократно рассмотренная, и на этом форуме в том числе.
При загрузке из ресурса, этого еррора не может быть по определению.

[Killbrum]

Большое спасибо за разяснение
Нащет как ето делать я все так и делал . Просто иногда напрягает таскать етот мп3 файлик за собой. Нащет исключения спс, буду знать

[Manitu]

Прошу извинить за вмешательство, но...
>>Чтобы в комплекте шел один exe файл, музыку нужно засунуть в ресурсы этого exe.
Как сохранить приложение, чтобы все файлы, которые ему нужны, вложенные папки и т.д. содержались в этом экзешнике??

[mutabor]

Ну с вложенными папками это вы уже загнули, но отдельные файлы включаются в ресурсы без проблем.
Изображения и текст - даже не надо лишних движений, достаточно добавить к проекту TImage и загрузить в него картинку, текст - TMemo.
С остальными файлами, как в принципе и с этими тоже, нужно поступать так.
1. Написать rc файл.
2. Скомпилировать из него с помощью brcc32 res-файл.
3. Добавить в код строку {$R имя файла.res} и написать процедуры загрузки из ресурсов.
Подробно как это делать читатайте на этом форуме, в книгах, в интернете. Тема одна из популярных - Загрузка из ресурсов (работа с ресурсами, компиляция ресурсов).

[Killbrum]

Помоги плиз разобратса с кодом делфи. Взял его с здешних плееров.

function FormatTime(Time: Integer): string;
const
sec = 1000;
min = 60 * sec;
hour = 60 * min;
var
h, m, s : Integer;
begin
h := Time div hour;
m := (Time div min) mod 60;
s := (Time div sec) mod 60;
if Time < hour then
Result := Format('%d:%.2d', [m, s])
else
Result := Format('%d:%.2d:%.2d', [h, m, s]);
end;

Если дослвоно то насколько я понимаю оно:
Час:= Время делим на 60 (а откуда мы с етой функцыи взяли время? Нигде оно тут непрописано.... да и в варе юнита тоже.... ето что зарезервированая?)
Также и с минутами вроде. Час делим на минуты а потом с етого берьом мод... мод насколько я помню ето...тьфу уже забыл
Дальше если время менше часа значит выводим ето в минутах и секундах. А если менше значит в часах, мин и с. ('%d:%.2d:%.2d', [h, m, s]) прокоментируйте плиз как оно ето выводит? что такое %d:%.2d:%.2d ето зарезервированая функция?
И интересно как после етого я могу ссылатса мол
label1.Caption:=FormatTime(Position )+'/'+ FormatTime(Lenght) ???
Ведь в етой функцыи неговоритса про Позицыю и продолжытельность. Чтото я тут ничего непонимаю...