Создание обработчиков сообщений

@Garic_ · Регистрация: 03.11.2009

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

void __fastcall MyDoMessage(TMessage &msg);
bool __fastcall OpenWaveIn(HWND hWnd,int nChan,int Freq,int Bits);
void __fastcall CloseWaveIn(HWND hWnd);
bool __fastcall DataWaveIn(HWND hWnd, HWAVEIN hwav, LPWAVEHDR pHdr);

и

BEGIN_MESSAGE_MAP
VCL_MESSAGE_HANDLER(WM_USER+1, TMessage, WMUSER1)
VCL_MESSAGE_HANDLER(WM_USER+2, TMessage, WMUSER2)
END_MESSAGE_MAP(TForm)
void __fastcall WMUSER1(TMessage & msg);
void __fastcall WMUSER2(TMessage & msg);

Вопрос->откуда и как в unit1.h получить выше изложенное. Ведь не лапками нацарапано!

@Зоти Сергей · 08.01.2010, 23:45

Что значит откуда получить? Ручками напечатать
Объявите MESSAGE MAP и ф-ции обработки сообщений прямо в классе. Обычно в разделе protected.
Хотя и не обязательно.

C++
1
2
3
4
5
6
7
8
9
10
11
class TForm1 : public TForm
{
...
protected:
BEGIN_MESSAGE_MAP
VCL_MESSAGE_HANDLER(WM_USER+1, TMessage, WMUSER1)
VCL_MESSAGE_HANDLER(WM_USER+2, TMessage, WMUSER2)
END_MESSAGE_MAP(TForm)
void __fastcall WMUSER1(TMessage & msg);
void __fastcall WMUSER2(TMessage & msg);
}

и остальные тоже в классе.. но только в private или в public.

в итоге должно получиться:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
class TForm1 : public TForm
{
__published: // IDE-managed Components
 
protected:
    BEGIN_MESSAGE_MAP
    VCL_MESSAGE_HANDLER(WM_USER+1, TMessage, WMUSER1)
    VCL_MESSAGE_HANDLER(WM_USER+2, TMessage, WMUSER2)
    END_MESSAGE_MAP(TForm)
    void __fastcall WMUSER1(TMessage & msg);
    void __fastcall WMUSER2(TMessage & msg);
private:
    void __fastcall MyDoMessage(TMessage &msg);
    bool __fastcall OpenWaveIn(HWND hWnd,int nChan,int Freq,int Bits);
    void __fastcall CloseWaveIn(HWND hWnd);
    bool __fastcall DataWaveIn(HWND hWnd, HWAVEIN hwav, LPWAVEHDR pHdr);
public: 
    __fastcall TForm1(TComponent* Owner);
};

а вот описание функций самому придется царапать...

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
void __fastcall TForm1::MyDoMessage(TMessage &msg)
{
 
}
bool __fastcall TForm1::OpenWaveIn(HWND hWnd,int nChan,int Freq,int nBits)
{
 
}
void __fastcall TForm1::CloseWaveIn(HWND hWnd)
{
 
}
bool __fastcall TForm1::DataWaveIn(HWND hWnd, HWAVEIN hwav, LPWAVEHDR pHdr)
{
 
}
void __fastcall TForm1::WMUSER1(TMessage &msg)
{
 
}
void __fastcall TForm1::WMUSER2(TMessage &msg)
{
 
}

WMUSER1 и WMUSER2 будете где то сами посылать.
например:
SendMessage(Form1->Handle,WM_USER+1, 200, 100);
//выполнится WMUSER1 причем:
//200 передастся в функцию WMUSER1 в качестве парраметра msg.WParam
//100 передастся в функцию WMUSER1 в качестве парраметра msg.LParam

Если что-то не понятно - пишите.

@Garic_ · 09.01.2010, 01:10 **[ТС]**

За это спасибо, разобрался.
Только вот ошибка бьёт 'is not a valid integer value' При нажатии (Button1 - Запуск)

void __fastcall TForm1::Button1Click(TObject *Sender)
{
if(MyhWnd)
{
if(MyhWnd)DeallocateHWnd(MyhWnd);
MyhWnd=NULL;
}
//Создаю окно для отработки сообщений waveIn
MyhWnd=AllocateHWnd(MyDoMessage);
if(!MyhWnd){ ShowMessage("No create MyhWnd"); return; }
Freq=StrToInt(ComboBox1->Items->Strings[ComboBox1->ItemIndex]); //тут то и глючит
nChan=RadioGroup1->ItemIndex+1;
nBits=(RadioGroup2->ItemIndex+1)*8;
// Запускаем waveIn
if(!OpenWaveIn(MyhWnd,nChan,Freq,nBits))
{
if(MyhWnd)DeallocateHWnd(MyhWnd);
MyhWnd=NULL;
ShowMessage("Err Open SoundDriver");
return;
}
Label3->Caption="Sound Open";
//И процесс пошёл
}

код я взял с сайта
http://inprise.narod.ru/cbuild... 86921.html
правда заменил
if ((pInfo == NULL) !! (pInfo->hwav != hwav))return false;
на
if ((pInfo == NULL) || (pInfo->hwav != hwav))return false;

@Зоти Сергей · 09.01.2010, 23:37

У Вас в ComboBox1 текст какой то, возможно.
Там должно быть какое то число..(харрактеризующее частоту звука, судя по всему). По этому при вызове StrToInt получаете ошибку.

Добавлено через 13 минут
В диспетчере объектов ComboBox1 введите в свойство Items:
8000
11025
22050
44100

@Garic_ · 10.01.2010, 16:23 **[ТС]**

Подбросил не глючит.

AnsiString reg[4] = {"8000","11025","22050","44100"};
// ----- Для waveIn ----------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
int i;
for (i=0; i<4; i++)
ComboBox1->Items->Add(reg[i]);
//*******************************
ComboBox1->ItemIndex=3; // 44100 Hz

Афтор пишет что:

Проверка проводилась на машине с FM Radio, в качестве источника входных сигналов.

У меня в ноут буке такое удовольствие (FM Radio) отсутсвует. Не знаю, что бы придумать в качестве эталона частотного сигнала. Может ты знаешь?

@Зоти Сергей · 11.01.2010, 22:50

Данная программа открывает LineIn и читает оттуда.
Для этой программы не важно, что будет использоваться в качестве входного сигнала.
Она должна реагировать на все, что "звучит" с колонок вашего компьютера. По этому, простой способ, проверить ее работоспособность - это запустить какой-либо звуковой поток.. например с интернет радио. FM радио - это в данном случае программа, которая запущена и проигрывает что-либо. Вы можете использовать для теста Windows Media Player. Запустите какой-то MP3. Эта программа будет реагировать на аналоговый сигнал. Там ProgressBar-ы для левого и правого канала указывают на силу входящего сигнала.

@neoMitya · 12.01.2010, 08:33

Garic_, выложи пожалуйста проект скомпилиный, если не трудно, а то чего-то у меня не получается его скомпилить, выдает 26 ошибок.

@Зоти Сергей · 12.01.2010, 15:30

Ну... вот так как то... у меня работает, вроде.

@Garic_ · 19.01.2010, 17:40 **[ТС]**

Извеняюсь, то что надолго повис. Спасибо за потсказку, проблема была в RadioGroup в items 8 bits
16 bits. теперь работает. Но есть ещё вопрос,в RichEdit1 получить пошаговый вывод дискретизации за одну секунду 44100 отщётов. Примерно так.
1 10101111
2 01101110
.............
44100 10101100

вот при мер но он неудачный.

bool __fastcall TForm1:

ataWaveIn(HWND hWnd, HWAVEIN hwav, LPWAVEHDR pHdr)
{
..................
while (n < pInfo->buffersize)
{
................
SendMessage(Form1->Handle,WM_USER+1, 0, LevelLeft);
RichEdit1->Lines->Add(IntToStr(czrc++) + " " + IntToStr(LevelLeft));

cpp_developer · 17.11.2011, 22:26

Комментарий модератора

Перемещено в тему Как послать сообщение в dll

Новые блоги и статьи Все статьи Все блоги /
Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Programma_Boinc 01.01.2026 Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Сочетание глобально распределённой вычислительной мощности и инновационных. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .

@Зоти Сергей 230 / 227 / 65 Регистрация: 18.12.2009 Сообщений: 316
	09.01.2010, 23:37
	У Вас в ComboBox1 текст какой то, возможно. Там должно быть какое то число..(харрактеризующее частоту звука, судя по всему). По этому при вызове StrToInt получаете ошибку. Добавлено через 13 минут В диспетчере объектов ComboBox1 введите в свойство Items: 8000 11025 22050 44100 1

@Зоти Сергей 230 / 227 / 65 Регистрация: 18.12.2009 Сообщений: 316
	11.01.2010, 22:50
	Данная программа открывает LineIn и читает оттуда. Для этой программы не важно, что будет использоваться в качестве входного сигнала. Она должна реагировать на все, что "звучит" с колонок вашего компьютера. По этому, простой способ, проверить ее работоспособность - это запустить какой-либо звуковой поток.. например с интернет радио. FM радио - это в данном случае программа, которая запущена и проигрывает что-либо. Вы можете использовать для теста Windows Media Player. Запустите какой-то MP3. Эта программа будет реагировать на аналоговый сигнал. Там ProgressBar-ы для левого и правого канала указывают на силу входящего сигнала. 1

@neoMitya 25 / 25 / 8 Регистрация: 27.10.2009 Сообщений: 81
	12.01.2010, 08:33
	Garic_, выложи пожалуйста проект скомпилиный, если не трудно, а то чего-то у меня не получается его скомпилить, выдает 26 ошибок. 0