Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 26.01.2011, 12:19
Аватар для Raduga
Raduga Raduga вне форума
Прохожий
 
Регистрация: 26.01.2011
Адрес: Новосибирск
Сообщения: 16
Репутация: 33
По умолчанию Проигрывание медиафайлов в приложении

Здравствуйте! У меня возникла такая проблема. Я только начала изучать Dilphi,создала приложение, красивое, обучающее (по английскому языку). Но, открыв его на другом компьютере, с ужасом обнаружила, что все музыкальные и видеофайлы не открываются! Это и понятно, ведь я задавала путь к медиафайлам, который является неверным для другого компьютера. Хотя я пыталась скопировать всю папку вместе с медиафайлами((( Что же делать, чтобы все эти медиафайлы "приросли" к приложению и могли открываться на любом компьютере? Думаю, что есть что-то, что заставит их это сделать)) Спасибо.
Ответить с цитированием
  #2  
Старый 26.01.2011, 12:24
Black Raider Black Raider вне форума
Местный
 
Регистрация: 31.05.2010
Адрес: Москва
Сообщения: 466
Версия Delphi: 7
Репутация: 40
По умолчанию

Вариантов несколько, самый легкий и простой таскать их с собой в папке, но обязательно прописывать путь к ним относительно ехе шника.

вариант 2 запихнуть их в ресурс файл. и по мере необходимости выдергивать от туда (примеров в нете воз и маленькая тележка).
__________________
Новый вирус - "БОМЖ"! Он просто роется в Корзине...и спит под ярлычком "Сетевое окружение"
Ответить с цитированием
  #3  
Старый 26.01.2011, 12:29
Аватар для Raduga
Raduga Raduga вне форума
Прохожий
 
Регистрация: 26.01.2011
Адрес: Новосибирск
Сообщения: 16
Репутация: 33
По умолчанию

Цитата:
Сообщение от Black Raider
Вариантов несколько, самый легкий и простой таскать их с собой в папке, но обязательно прописывать путь к ним относительно ехе шника.

вариант 2 запихнуть их в ресурс файл. и по мере необходимости выдергивать от туда (примеров в нете воз и маленькая тележка).

Вариант 1 не получится: я должна разместить ресурс на сайте. Вариант 2, простите, не совсем поняла Но все равно, спасибо!
Ответить с цитированием
  #4  
Старый 26.01.2011, 13:02
Аватар для Страдалецъ
Страдалецъ Страдалецъ вне форума
Гуру
 
Регистрация: 09.03.2009
Адрес: На курорте, из окна вижу теплое Баренцево море. Бррр.
Сообщения: 4,723
Репутация: 52347
По умолчанию

Картинки,звуки и т.д. Это все можно поместить в так называемый файл ресурсов. Файл ресурсов в свою очередь можно внедрить непосредственно в ваш исполняемый файл и как следствие размер его может стать очень большим. Либо оформить, как отдельную библиотеку dll и по мере надобности брать из нее нужный контент. И в первом и втором случае общий размер проекта будет одинаков. Ну и доступ к контенту тоже будет несколько иным.
__________________
Жизнь такова какова она есть и больше никакова.
Помогаю за спасибо.
Ответить с цитированием
  #5  
Старый 26.01.2011, 13:07
Аватар для Raduga
Raduga Raduga вне форума
Прохожий
 
Регистрация: 26.01.2011
Адрес: Новосибирск
Сообщения: 16
Репутация: 33
По умолчанию

Простите, пожалуйста, я действительно, совсем начинающий "программист", а как внедрить этот файл ресурсов в проект?
__________________
Rainbow
I'm crazy of Delphi
Ответить с цитированием
  #6  
Старый 26.01.2011, 13:08
Аватар для Raduga
Raduga Raduga вне форума
Прохожий
 
Регистрация: 26.01.2011
Адрес: Новосибирск
Сообщения: 16
Репутация: 33
По умолчанию

Как его туда внедрить?
__________________
Rainbow
I'm crazy of Delphi
Ответить с цитированием
  #7  
Старый 26.01.2011, 15:26
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

создать ресурсы в dll:
http://www.delphisources.ru/forum/sh...13&postcount=5
сохранять в файл:
Цитата:
resourcestream.SaveToFile('avatar.jpg');
только вместо картинок медиафайлы
__________________
Пишу программы за еду.
__________________

Последний раз редактировалось NumLock, 26.01.2011 в 15:30.
Ответить с цитированием
  #8  
Старый 26.01.2011, 15:33
Аватар для Raduga
Raduga Raduga вне форума
Прохожий
 
Регистрация: 26.01.2011
Адрес: Новосибирск
Сообщения: 16
Репутация: 33
По умолчанию

Уважаемый NumLock! Спасибо огромное! Становится понятнее. Буду пробовать. Всем решавшим мою проблему тоже большое спасибо!
__________________
Rainbow
I'm crazy of Delphi
Ответить с цитированием
  #9  
Старый 26.01.2011, 15:48
Аватар для EvilRussian
EvilRussian EvilRussian вне форума
Начинающий
 
Регистрация: 21.12.2010
Адрес: Россия, Красноярский край
Сообщения: 177
Репутация: 22
По умолчанию

Назачем так сложно?
Тут же ясно: просто "начинающий программист" указал путь к файлу вида "C:\Program Files\Program\dir\11.avi", вместо необходимого "dir\11.avi"!
Зачем ей это всё?
__________________
Если не ты, то кто?
(с) Терри Пратчетт

Не забывайте ставить плюсы и говорить спасибо!
Ответить с цитированием
  #10  
Старый 26.01.2011, 17:04
Аватар для Raduga
Raduga Raduga вне форума
Прохожий
 
Регистрация: 26.01.2011
Адрес: Новосибирск
Сообщения: 16
Репутация: 33
Смущение

Цитата:
Сообщение от EvilRussian
Назачем так сложно?
Тут же ясно: просто "начинающий программист" указал путь к файлу вида "C:\Program Files\Program\dir\11.avi", вместо необходимого "dir\11.avi"!
Зачем ей это всё?
То есть, если я правильно поняла, нет необходимости задавать путь "C:\Program Files\Program\dir\11.avi"? Просто указать папку??? Я ещё так не пробовала, надо поэкспериментировать.
__________________
Rainbow
I'm crazy of Delphi
Ответить с цитированием
  #11  
Старый 26.01.2011, 17:27
Аватар для Raduga
Raduga Raduga вне форума
Прохожий
 
Регистрация: 26.01.2011
Адрес: Новосибирск
Сообщения: 16
Репутация: 33
Печаль

Ничего не получается, я, наверное, что-то не так поняла.
__________________
Rainbow
I'm crazy of Delphi
Ответить с цитированием
  #12  
Старый 26.01.2011, 17:38
Black Raider Black Raider вне форума
Местный
 
Регистрация: 31.05.2010
Адрес: Москва
Сообщения: 466
Версия Delphi: 7
Репутация: 40
По умолчанию

Хмм... вот вам еще вариант с путями

CurrentPath:=Application.GetNamePath; //Путь где экзешник
PathData:='Data'; //Папка с данными где лежат avi
Path:=CurrentPath + '\'+PathData+'\'+ FileName.avi; //Сформированный путь для открытия файла.

Например есть программа 1.ехе на диске С в папке 111, в папке C:\111\Data лежат avi файлы которые надо открыть. кусок кода выше это решит.
__________________
Новый вирус - "БОМЖ"! Он просто роется в Корзине...и спит под ярлычком "Сетевое окружение"
Ответить с цитированием
  #13  
Старый 26.01.2011, 17:40
Аватар для dr. F.I.N.
dr. F.I.N. dr. F.I.N. вне форума
I Like it!
 
Регистрация: 12.12.2009
Адрес: Россия, г. Новосибирск
Сообщения: 663
Версия Delphi: D6/D7
Репутация: 26643
По умолчанию

ExtractFilePath(Application.ExeName) - вернет путь до твоего приложения.
Если ты рядом с EXE положешь папку Multimedia (например) и в неё поскидываешь все свои файлы, то путь до любого из них можно записать как: ExtractFilePath(Application.ExeName) + '\' +<твой файл>
__________________
Грамотно поставленный вопрос содержит не менее 50% ответа.
Грамотно поставленная речь вызывает уважение, а у некоторых даже зависть.
Ответить с цитированием
  #14  
Старый 26.01.2011, 17:48
Аватар для Raduga
Raduga Raduga вне форума
Прохожий
 
Регистрация: 26.01.2011
Адрес: Новосибирск
Сообщения: 16
Репутация: 33
Радость

dr. F.I.N., Black Raider и EvilRussian! Чувствую сегодня себя ученицей-двоечницей... Спасибо Вам! честно говоря, не ожидала получить столько откликов! С благодарностью
__________________
Rainbow
I'm crazy of Delphi
Ответить с цитированием
  #15  
Старый 26.01.2011, 17:58
Аватар для PhoeniX
PhoeniX PhoeniX вне форума
Always hardcore!
 
Регистрация: 04.03.2009
Адрес: СПб
Сообщения: 3,239
Версия Delphi: GCC/FPC/FASM
Репутация: 62149
По умолчанию

Просто редко когда видишь человека, который действительно хочет понять, что и как работает, и просит помощи. К сожалению, 80% тем имеют форму "есть задание, сделайте за меня, а если будет хорошее настроение - подумаю, говорить ли спасибо."
__________________
Оставайтесь хорошими людьми...
VK id2634397, ds [at] phoenix [dot] dj
Ответить с цитированием
Ответ


Delphi Sources

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

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 12:49.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025