TMidiGen - модуль для создания midi звуков

← →
Garfunkel (2009-04-03 20:17) [0]

У меня есть модуль для воспроизведения Midi звуков
http://rapidshare.com/files/214155300/MidiGen.pas.html
был бы очень признателен если бы кто-нибудь помог сделать его работоспособным для Delphi 2009.

использование типа этого:

var
mg : TMidiGen;

begin

mg := TMidiGen.Create(Self):
mg.PlayNote(50);
//mg.PlayString("C#4");
mg.Free;

end;

заранее благодарю.

← →
KilkennyCat © (2009-04-03 20:23) [1]

> кто-нибудь помог сделать

или сделать?

Это разные вещи... во втором случае
> был бы очень признателен

50 WMZ

← →
Garfunkel (2009-04-03 20:30) [2]

50 WMZ? Да там 3 ошибки вылезает всего.

← →
Игорь Шевченко © (2009-04-03 20:36) [3]

> 50 WMZ? Да там 3 ошибки вылезает всего.

а) дешево
б) а почему бы тебе не исправить "всего три ошибки" ?

← →
KilkennyCat © (2009-04-03 20:37) [4]

> Garfunkel (03.04.09 20:30) [2]

Ну, ладно. 49. Объясню почему: 9 - за мою работу. 40 - потому что тебе лень учиться и разобраться с разницей Char и AnsiChar. А лентяев я обслуживаю за деньги.

← →
KilkennyCat © (2009-04-03 20:40) [5]

> Игорь Шевченко © (03.04.09 20:36) [3]

> а) дешево

Согласно тарифу 1 час - 20 WMZ.
Там 10 минут на работу, 20 на тест и вообще посмотреть, мож что кривое. Я уже глянул.

← →
DVM © (2009-04-03 20:46) [6]

Ааааа, ладно, за 45WMZ сделаю

← →
Garfunkel (2009-04-03 20:49) [7]

Ну вот сразу лентяем обзывают :) Ну нет у меня ни 40 ни даже 20. Не программист я, просто для души делаю программку. Что неужели трудно помочь раз это так просто? Ну хоть раз доброе дело можно же сделать?

← →
KilkennyCat © (2009-04-03 20:54) [8]

> Ну хоть раз доброе дело можно же сделать?

Можно.
ща выложу, но только соответствие типов.

← →
Игорь Шевченко © (2009-04-03 20:54) [9]

> Согласно тарифу 1 час - 20 WMZ.

дешевый тариф

← →
KilkennyCat © (2009-04-03 20:56) [10]

> Garfunkel

http://www.kilkennycat.ru/MidiGen.zip

← →
KilkennyCat © (2009-04-03 20:58) [11]

> Игорь Шевченко © (03.04.09 20:54) [9]

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

← →
Garfunkel (2009-04-03 20:58) [12]

KilkennyCat, спасибо огромное! Я делаю программку для своих скромных нужд - я гитарист вообще-то. Сейчас проверю.

← →
Garfunkel (2009-04-03 21:14) [13]

Все работает. Спасибо еще раз.

> Garfunkel (03.04.09 21:14) [13]

Не за что.
Но вообще-то модуль кривой.
Возможны ошибки, совсем не связанные с юникодностью.

> [12] Garfunkel (03.04.09 20:58)
> Я делаю программку для своих скромных нужд - я гитарист вообще-то.

Если не секрет, какого рода программка может понадобиться гитаристу. В смысле - есть ведь всякие готовые.

← →
Garfunkel (2009-04-03 22:15) [16]

> KilkennyCat
Ошибок нету вроде. Откомпилировал под Delphi 2009. Все работает.

> AndreyV
Программа проигрывания аккордов в текстовом файле. То есть, берем текстовый файл песни с аккордами. Тычем мышой в аккорды и они звучат как должны. Еще может транспонировать аккорды песни в любую другую тональность + настройка гитары + поиск аккордов. Короче для себя делал.

> [16] Garfunkel (03.04.09 22:15)
> Программа проигрывания аккордов в текстовом файле. То есть,
> берем текстовый файл песни с аккордами. Тычем мышой в аккорды
> и они звучат как должны. Еще может транспонировать аккорды
> песни в любую другую тональность + настройка гитары + поиск
> аккордов. Короче для себя делал.

А... Вот оно как.

> они звучат как должны

А можно полюбопытствовать о содержимом такого текстового файла, в который "тычем мышой" ?

TMidiGen - модуль для создания midi звуков Найти похожие ветки