Каким образом можно привязать мелодию к formcreate, по таймеру

@teone · Регистрация: 04.10.2009

Студворк — интернет-сервис помощи студентам

возник еще один интересный вопрос... каким образом можно привязать мелодию к formcreate, по таймеру? к примеру, после создания формы, чтоб мелодия проигрывалась к примеру 20 секунд

@STRATEG · 05.04.2010, 16:25

Ну сделай по таймеру,ты чем проигрывать собираешься?

@teone · 05.04.2010, 16:44 **[ТС]**

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

@igoriy · 05.04.2010, 16:50

Делай через ресурсы- удобно

@teone · 05.04.2010, 16:54 **[ТС]**

а детальней?

@igoriy · 05.04.2010, 17:01

Файл ресурсов умеешь делать?

Добавлено через 6 минут
Находим в Delphi файл brcc32.exe (его можно найти в папке с делфёй ($Delphi\bin)),добавляем его в эту же директорию где
находится наш музыкальный файл
Создаем текстовый файл с именем sound.rc
Прописываем в него наши файлы. Каждый файл в ресурсах = 1 строке. Пример содержимого файла:

sound WAVE sound.wav
sound1 WAVE sound1.wav

Первое слово - имя, которое мы будем указывать в программе.
Второе - тип ресурса = wav файл
Третье - имя файла
сохраняем файл.
бросаем sounds.rc на brcc32(в буквальном смысли как копируем при перетаскивании мышью) и получаем sound.res
В результате получаем откомпиленный файл - sounds.res.
Второй этап:
В программе подключаем этот файл:
{$R sounds.res}
Теперь для воспроизведения звука нужно дать комманду:
PlaySound('SND1', 0, SND_RESOURCE or SND_ASYNC);
, где первым параметром - имя, назначенное нами файлу в файле ресурсов
Пример ( не забываем подключить модуль - mmsystem

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
unit Unit1;
 
{$R Sound.res}
 
interface
 
uses
 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 
  Dialogs, StdCtrls, ExtCtrls,mmsystem;
 
 
 
type
 
  TForm1 = class(TForm)
    Image1: TImage;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
 
  private
    { Private declarations }
 
  public
    { Public declarations }
 
  end;
 
 
 
var
 
  Form1: TForm1;
 
implementation
 
 
{$R *.dfm}
 
 
 
procedure TForm1.Button1Click(Sender: TObject);
 
begin
 
 PlaySound('sound', 0, SND_RESOURCE or SND_ASYNC);
 
end;
 
 
 
end.

@teone · 05.04.2010, 17:06 **[ТС]**

sounds.res не получил при перетягивании...(

@igoriy · 05.04.2010, 17:11

Ты sound.rc перетаскиваешь на brcc32.exe?
И еще не забываешь расширение файла rc указывать когда сохраняешь? А то ведь по умолчанию блокнот txt - просто это была моя первая ошибка по невнимательности когда учился

@teone · 05.04.2010, 17:17 **[ТС]**

нет, не забываю...
кстати, вместо wav, я всюду прописывал mp3

@igoriy · 05.04.2010, 17:18

незяяяя mp3

@STRATEG · 05.04.2010, 17:20

в ресурсах хранится Wav,перепиши и конвертани свою музыку в Wav

@teone · 05.04.2010, 17:44 **[ТС]**

кстати с wav то же самое... просто выскакивает системное окно, и сразу же пропадает, и не происходит ровно ничего

Добавлено через 22 минуты
borland resources compiler version 5.40
выскакивает лишь это... res файла нет

@STRATEG · 05.04.2010, 17:47

Кинь имя и содержжание твоего RC файла

@teone · 05.04.2010, 17:48 **[ТС]**

абсолютный аналог написаного выше - sound.rc
sound wave sound.wav
sound1 wave sound1.wav

@igoriy · 05.04.2010, 17:53

А ты файл ресурсов затолкал в папку с проектом?

@STRATEG · 05.04.2010, 17:55

Пиши так

Delphi
1
2
sound wave loadoncall sound.wav
sound1 wave loadoncall sound1.wav

Так вообще то нужно правильно делать,и у меня все создает

@teone · 05.04.2010, 17:59 **[ТС]**

при перетягивании, создавать .res файл должно туда же - в папку с проэктом? если так, то и при новых параметрах - не создает...

@igoriy · 05.04.2010, 18:02

Сообщение от teone

при перетягивании, создавать .res файл должно туда же - в папку с проэктом? если так, то и при новых параметрах - не создает...

Да res создается в другой папке - это нормально но ты его потом берешь и переносишь в папка с проектом а иначе его не видно проге - совсем

@STRATEG · 05.04.2010, 18:03

Нет он создает в Bin...все должно лежать в Bin так как ты прописал RC..тогда норма....

если такой RC файл

sound wave loadoncall sound.wav
sound1 wave loadoncall sound1.wav

то в Bin должно быть

Bin\sound.wav
Bin\sound1.wav
Bin\Sound.rc

И перетаскиваешь RC,создается файл Bin\Sound.res

@teone · 05.04.2010, 18:03 **[ТС]**

в bin также не создается... не знаю, мб в delphi 7 это как-либо иначе делается?

Новые блоги и статьи Все статьи Все блоги /
Трассировка корутин Kotlin с OpenTelemetry mobDevWorks 14.07.2025 Асинхронное программирование меняет правила игры, особенно когда речь заходит о трассировке операций. В Kotlin с его корутинами эта проблема приобретает особый оттенок, который я хотел бы детально. . .	Облачные приложения на Rust: руководство по архитектуре микросервисов golander 13.07.2025 Когда я впервые взялся за проектирование облачной платформы для одного из наших клиентов, выбор стоял между привычными Go и Java. Но после нескольких месяцев разработки микросервисной системы,. . .	Как Node.js выполняет асинхронные операции Reangularity 13.07.2025 Каждый раз, когда я рассказываю про Node. js, возникает один и тот же вопрос: "Как эта штука может быть быстрой, если JavaScript — однопоточный язык?" И это действительно кажется парадоксом. Ведь в. . .	Как писать чистый, тестируемый и качественный код на Python py-thonny 12.07.2025 Помню свой первый проект на Python. Работал тогда быстро, грязно, лишь бы работало. Код был похож на запутанный клубок - переменные по одной букве, функции на 200 строк, комментарии отсутствовали как. . .	Blazor и контроллер сервопривода IoT Meadow Maple Wired 11.07.2025 Я решил разобраться, как можно соединить современные веб-технологии с миром "железа". Интересная комбинация получилась из Blazor в качестве веб-интерфейса и микроконтроллера Meadow с его веб-сервером. . .
Генерация OpenQASM из кода Q# EggHead 10.07.2025 Летом 2024-го я начал эксперименты с библиотекой Q# Bridge, и знаете что? Она оказалась просто находкой для тех, кто работает на стыке разных квантовых экосистем. Основная фишка этой библиотеки -. . .	Изучаем новый шаблон ИИ-чата .NET AI Chat Web App stackOverflow 10.07.2025 В . NET появилось интересное обновление - новый шаблон ИИ-чата под названием . NET AI Chat Web App. Когда я впервые наткнулся на анонс этого шаблона, то сразу понял, что Microsoft наконец-то. . .	Результаты исследования от команды ARP (июль 2025 г.) Programma_Boinc 10.07.2025 Результаты исследования от команды ARP (июль 2025 г. ) Африканский проект по дождям (ARP) World Community Grid снова запущен! Мы рады поделиться обновленной информацией о нашем прогрессе с осени. . .	Angular vs Svelte - что лучше? Reangularity 09.07.2025 Сегодня рынок разделился на несколько четких категорий: тяжеловесы корпоративного уровня (Angular), гибкие универсалы (React), прогрессивные решения (Vue) и новая волна компилируемых фреймворков. . .	Code First и Database First в Entity Framework UnmanagedCoder 09.07.2025 Entity Framework дает нам свободу выбора, предлагая как Code First, так и Database First подходы. Но эта свобода порождает вечный вопрос — какой подход выбрать? Entity Framework — это. . .

@teone 1 / 1 / 0 Регистрация: 04.10.2009 Сообщений: 35

	Каким образом можно привязать мелодию к formcreate, по таймеру 05.04.2010, 15:54. Показов 3080. Ответов 26 Метки нет (Все метки) возник еще один интересный вопрос... каким образом можно привязать мелодию к formcreate, по таймеру? к примеру, после создания формы, чтоб мелодия проигрывалась к примеру 20 секунд 0

@STRATEG 1174 / 480 / 83 Регистрация: 04.03.2010 Сообщений: 1,019
	05.04.2010, 16:25
	Ну сделай по таймеру,ты чем проигрывать собираешься? 0

@teone 1 / 1 / 0 Регистрация: 04.10.2009 Сообщений: 35
	05.04.2010, 16:44 [ТС]
	этой же прогой... в нее внедрить бы плеер, но визуально невидимый... сугубо как озвучка программы.... к сожалению никогда с этим не стыкался, поэтому и абсолютно нулевой в этом теме 0

@igoriy 873 / 544 / 117 Регистрация: 24.11.2009 Сообщений: 1,329
	05.04.2010, 16:50
	Делай через ресурсы- удобно 1

@teone 1 / 1 / 0 Регистрация: 04.10.2009 Сообщений: 35
	05.04.2010, 16:54 [ТС]
	а детальней? 0

@teone 1 / 1 / 0 Регистрация: 04.10.2009 Сообщений: 35
	05.04.2010, 17:06 [ТС]
	sounds.res не получил при перетягивании...( 0

@igoriy 873 / 544 / 117 Регистрация: 24.11.2009 Сообщений: 1,329
	05.04.2010, 17:11
	Ты sound.rc перетаскиваешь на brcc32.exe? И еще не забываешь расширение файла rc указывать когда сохраняешь? А то ведь по умолчанию блокнот txt - просто это была моя первая ошибка по невнимательности когда учился 0

@teone 1 / 1 / 0 Регистрация: 04.10.2009 Сообщений: 35
	05.04.2010, 17:17 [ТС]
	нет, не забываю... кстати, вместо wav, я всюду прописывал mp3 0

@igoriy 873 / 544 / 117 Регистрация: 24.11.2009 Сообщений: 1,329
	05.04.2010, 17:18
	незяяяя mp3 0

@STRATEG 1174 / 480 / 83 Регистрация: 04.03.2010 Сообщений: 1,019
	05.04.2010, 17:20
	в ресурсах хранится Wav,перепиши и конвертани свою музыку в Wav 1

@teone 1 / 1 / 0 Регистрация: 04.10.2009 Сообщений: 35
	05.04.2010, 17:44 [ТС]
	кстати с wav то же самое... просто выскакивает системное окно, и сразу же пропадает, и не происходит ровно ничего Добавлено через 22 минуты borland resources compiler version 5.40 выскакивает лишь это... res файла нет 0

@STRATEG 1174 / 480 / 83 Регистрация: 04.03.2010 Сообщений: 1,019
	05.04.2010, 17:47
	Кинь имя и содержжание твоего RC файла 0

@teone 1 / 1 / 0 Регистрация: 04.10.2009 Сообщений: 35
	05.04.2010, 17:48 [ТС]
	абсолютный аналог написаного выше - sound.rc sound wave sound.wav sound1 wave sound1.wav 0

@igoriy 873 / 544 / 117 Регистрация: 24.11.2009 Сообщений: 1,329
	05.04.2010, 17:53
	А ты файл ресурсов затолкал в папку с проектом? 0

@teone 1 / 1 / 0 Регистрация: 04.10.2009 Сообщений: 35
	05.04.2010, 17:59 [ТС]
	при перетягивании, создавать .res файл должно туда же - в папку с проэктом? если так, то и при новых параметрах - не создает... 0

@STRATEG 1174 / 480 / 83 Регистрация: 04.03.2010 Сообщений: 1,019
	05.04.2010, 18:03
	Нет он создает в Bin...все должно лежать в Bin так как ты прописал RC..тогда норма.... если такой RC файл sound wave loadoncall sound.wav sound1 wave loadoncall sound1.wav то в Bin должно быть Bin\sound.wav Bin\sound1.wav Bin\Sound.rc И перетаскиваешь RC,создается файл Bin\Sound.res 0

@teone 1 / 1 / 0 Регистрация: 04.10.2009 Сообщений: 35
	05.04.2010, 18:03 [ТС]
	в bin также не создается... не знаю, мб в delphi 7 это как-либо иначе делается? 0