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

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

Вернуться   Форум программистов > Клуб программистов > Свободное общение
Регистрация

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 19.02.2007, 00:56   #11
Alar
Александр
Администратор
 
Аватар для Alar
 
Регистрация: 28.10.2006
Сообщений: 17,606
По умолчанию

переместил в свободное общение.
Alar вне форума Ответить с цитированием
Старый 19.02.2007, 05:13   #12
Seqular
Пользователь
 
Аватар для Seqular
 
Регистрация: 16.02.2007
Сообщений: 37
По умолчанию

Тебе будут нужны WAVE файлы, а не MP3. Помещаешь их в ресурс и компилируешь в RES-файл. Присоединяешь при компиляции программы... Насчет проигрывания файлов - используй
sndPlaySound('файл.wav', SND_ASYNC);
Seqular вне форума Ответить с цитированием
Старый 19.02.2007, 08:49   #13
Fainder
Участник клуба
 
Регистрация: 15.02.2007
Сообщений: 1,112
По умолчанию

Цитата:
Сообщение от Небесный Посмотреть сообщение
Я бы с удовольствием, но не знаю что это и с чем его едят, можно немного более разжевать!!!

...uses mmsystem...

PlaySound(Pointer('Filename.wav'),0 ,SND_SYNC);

Я это юзал чтобы произносить текущее время в проге. Вот только мп3 не хавает, только wav
Fainder вне форума Ответить с цитированием
Старый 19.02.2007, 14:28   #14
zetrix
Delphi/C++/C#
Участник клуба
 
Аватар для zetrix
 
Регистрация: 29.10.2006
Сообщений: 1,972
По умолчанию

Цитата:
переместил, в свободное общение.
надеюсь никто не против.


Справочник по API есть на сайте (смотрите мою подпись!)
zetrix вне форума Ответить с цитированием
Старый 01.03.2007, 01:55   #15
Небесный
Зелень
Форумчанин
 
Аватар для Небесный
 
Регистрация: 03.02.2007
Сообщений: 302
По умолчанию

Нашел, как сделать(http://www.delphirus.com/modules.php...wpage&pid=668), но у меня появился встречный вопрос. Как с waw-файла сделать файл с расширением *.rc и затем скомпилировать, чтобы получился *.res. В общем вот в эти вопросы я уперся, уже рылся и в поиске на форуме, подобного ниче не нашел.
Небесный вне форума Ответить с цитированием
Старый 01.03.2007, 06:27   #16
-=DeS=-
Форумчанин
 
Аватар для -=DeS=-
 
Регистрация: 20.12.2006
Сообщений: 135
По умолчанию

Сначала создаёшь файл *.тхт пишешь в него
budilnik WAVE Music.wav
имя(как будешь обращаться к музыке из программы), тип(WAVE), и путь к файлу(лучше всего кинуть всё в одну папку)... переименовываешь *.txt в *.RC
далее открываешь командную строку заходишь в папку с файлами звука и *.RC файлом пишешь
brcc32 имя.RC
в папке должен появиться файл *.res
подключай его в своей программе
{$R имя.res}
воспроизвести звук можно так:
Код:
PlaySound('ИМЯ', 0,SND_RESOURCE or SND_ASYNC);
после компиляции не потребуется других файлов кроме самого *.exe
writeln('Hello Dude!!!');

Последний раз редактировалось -=DeS=-; 01.03.2007 в 06:31.
-=DeS=- вне форума Ответить с цитированием
Старый 01.03.2007, 10:56   #17
Небесный
Зелень
Форумчанин
 
Аватар для Небесный
 
Регистрация: 03.02.2007
Сообщений: 302
По умолчанию

Цитата:
Сообщение от -=DeS=- Посмотреть сообщение
далее открываешь командную строку заходишь в папку с файлами звука и *.RC файлом пишешь
brcc32 имя.RC
в папке должен появиться файл *.res
[/SIZE]
Немного неудобно, за свое непонимание, у меня проблеммы с командной срокой, я вообще никогда не работал с ней и понятия не имею как? Открыть открыл - а дальше ???????????
Небесный вне форума Ответить с цитированием
Старый 01.03.2007, 11:20   #18
pinhead
Пользователь
 
Аватар для pinhead
 
Регистрация: 08.12.2006
Сообщений: 36
Хорошо

Цитата:
Сообщение от Небесный Посмотреть сообщение
Немного неудобно, за свое непонимание, у меня проблеммы с командной срокой, я вообще никогда не работал с ней и понятия не имею как? Открыть открыл - а дальше ???????????
Очень плохо! А разве DOS не знаком ?
Создай *.txt файлик в нем напиши:
"brcc32.exe[тут пробел][имя твоего RC файла].RC"
Сохрани его с расширением *.bat.
Сохранённый bat файл перемести в директорию с Delphi32.exe, не забуть тудаже поместить твой RC файл.
Потом запусти *.bat файл и получишь [имя твоего RC файла] только с расширением .*rec - это и есть файл ресурса
Знание этого – Мудрость.
Умение этим пользоваться – Искусство.
pinhead вне форума Ответить с цитированием
Старый 01.03.2007, 13:40   #19
-=DeS=-
Форумчанин
 
Аватар для -=DeS=-
 
Регистрация: 20.12.2006
Сообщений: 135
По умолчанию

ты неможешь зайти в папку из под доса?
writeln('Hello Dude!!!');
-=DeS=- вне форума Ответить с цитированием
Старый 01.03.2007, 22:28   #20
Небесный
Зелень
Форумчанин
 
Аватар для Небесный
 
Регистрация: 03.02.2007
Сообщений: 302
По умолчанию

Ура, победа!!! Первый шаг сделан (запомню на всю жизнь ).
Но по ходу появился новый вопрос!!!
Создал рес-файл, поместил в папочку с проэктом.
Делаю проигрывание через компонет "батон". И сдесь у меня затыки!!!
Вылаживаю код:
Цитата:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R MyWave.res}
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
hResource: THandle;
pData: Pointer;
begin
hResource:=LoadResource( hInstance, FindResource(hInstance, 'MyWave', RT_RCDATA));
try
pData := LockResource(hResource);
if pData = nil then raise Exception.Create('Cannot read MyWave');
// Здесь pData указывает на MyWave
// Теперь можно, например, проиграть его (Win32):
PlaySound('MyWave', 0, SND_MEMORY);
finally
FreeResource(hResource);
end;
end.
При этом выдает такие ошибки:
Цитата:
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'
[Error] Unit1.pas(44): Declaration expected but end of file found
[Error] Unit1.pas(42): ';' expected but '.' found
[Error] Unit1.pas(37): Undeclared identifier: 'SND_MEMORY'
[Error] Unit1.pas(37): Undeclared identifier: 'PlaySound'
Небесный вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Есть идея для создания игры!!! Mb666 Gamedev - cоздание игр: Unity, OpenGL, DirectX 8 01.04.2009 23:59
Есть интересная идея. Помогите создать игру для мобильника Romez Общие вопросы по Java, Java SE, Kotlin 3 14.05.2008 12:14
Не знаю как это сделать:) LSDkltn БД в Delphi 2 09.11.2007 13:39
Есть идея для комп. игры!!!!!! Что делать дальше??? Mb666 Свободное общение 8 21.10.2007 16:52