Форум на Исходниках.RU

Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=3615667 Wed, 29 Jul 2015 20:14:00 +0000 Синтез Midi инструментов https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=3615667 SeregaZ 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=1134914 Mon, 12 Jun 2006 17:59:55 +0000 Синтез Midi инструментов https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=1134914 Цитата

Но у нас принято исходниками делиться.

Да мне не жалко, вот держите.

Цитата

Кстати, .ехе я обработал утилитой strip и она сбросила вес файла до 473 кб вместо предыдущих 1.8 Мб. Чувствуешь разницу?А если ужать ещё UPX!, то вообще небольшая по размеру будет...

Круто...!!! Что это раньше я не воспользовался этим]]> Ash 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=1134119 Sun, 11 Jun 2006 22:16:45 +0000 Синтез Midi инструментов https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=1134119
Кстати, .ехе я обработал утилитой strip и она сбросила вес файла до 473 кб вместо предыдущих 1.8 Мб. Чувствуешь разницу?
А если ужать ещё UPX!, то вообще небольшая по размеру будет...]]> Romtek 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=1134104 Sun, 11 Jun 2006 21:44:40 +0000 Синтез Midi инструментов https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=1134104 Вот помотрите кому не лень. курсовая не много массивная получилась, но ни чё зато на пять.

вот ссылочка, если не лень зацените: http://rapidshare.de/files/22820516/kurs.rar.html]]> Ash 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=741980 Tue, 07 Jun 2005 15:50:08 +0000 Синтез Midi инструментов https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=741980

program Midi_Gamma;

uses CRT, Windows, MMSystem, MIDIDeviceUnit;

const

// Массив нот

noteseq: array[1..7] of integer = (

, , , , , A, C

);

var

MidiOut: TMIDIDevice;

devID,

CurrentNote: integer;

ch : char;

begin

MidiOut := TMIDIDevice.Create;

devID := 1;

{ номер миди-устройства, или MIDI_MAPPER - использует MIDI по умолчанию }

try

MidiOut.OpenMidi (devID);

writeln ('Press space for playing piano...');

MidiOut.MIDIProgramChange (0, 0); // установка инструмента

repeat

ch := readkey;

if ch = ' ' then

with MidiOut do

for CurrentNote := 1 to 7 do

begin

MIDINoteOn (0, NoteSeq[CurrentNote], ); // включение ноты

sleep (300); // 300 msec задержка

MIDINoteOff (0, NoteSeq[CurrentNote], ); // выключение ноты

end;

until ch = #27;

finally

// освобождать класс, даже при ошибках.

MidiOut.Destroy;

end;

end.

]]> Romtek 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=735722 Wed, 01 Jun 2005 21:36:47 +0000 Синтез Midi инструментов https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=735722

unit MIDIDeviceUnit;

interface

Uses Windows, Messages, Classes, MMsystem;

type TTablicaBrzmien = array [0..127] of string;

TTablicaDzwiekow = array [0..11] of string[2];

TMIDIDevice = class(TObject)

private

hMidiOut : PHMIDIOUT;

function MidiOutMessage(iStatus:integer;

iChannel:integer; iData1:integer;

iData2:integer):Word;

public

constructor Create;

destructor Destroy;

function ProgramName(ProgramValue:byte):string;

function NoteName(Note:byte):string;

function MIDINoteOff

(Channel:byte; KeyNumber:byte; Velocity:byte):boolean;

function MIDINoteOn

(Channel:byte; KeyNumber:byte; Velocity:byte):boolean;

function MIDIPolyphonicAfterTouch

(Channel:byte; KeyNumber:byte; AfterTouch:byte):boolean;

function MIDIControlChange

(Channel:byte; Controler:byte; Value:byte):boolean;

function MIDIChannelModeLocalControl

(Channel:byte; zalacz:boolean):boolean;

function MIDIAllNotesOff(Channel:byte):boolean;

function MIDIOmniModeOff(Channel:byte):boolean;

function MIDIOmniModeOn(Channel:byte):boolean;

function MIDIMonoModeOn(Channel:byte):boolean;

function MIDIPolyModeOn(Channel:byte):boolean;

function MIDIChannelAfterTouch(Channel:byte;AfterTouch:byte):boolean;

function MIDIProgramChange

(Channel:byte; ProgramValue:byte):boolean;

function MIDIPitchWheelChange

(Channel:byte; LowValue:byte; HighValue:byte):boolean;

end;

implementation

const TablicaBrzmien : TTablicaBrzmien =

('Piano','Brite Piano','Hammer Piano','Honkey Tonk',

'New Tines','Digi Pioano','Harpsicord','Clav','Celesta','Glocken','Music Box','Vibes',

'Marimba','Xylophon','Tabular','Santur','Full Organ','Perc Organ','BX-3 Organ','ChurchPipe',

'Positive','Musette','Harmonica','Tango','Clscic Guitar','Acoustic Guitar','Jazz guitar','Clean Guitar',

'Mute Guitar','Over Drive','Dist Guitar','Rock Monics','Jazz Bass','Deep Bass','Pick Bass','Fretless','Slap Bass 1',

'Slap Bass 2','Synth Bass 1','Synth Bass 2','Violin','Viola','Cello','ContraBass','Termolo Strings','Pizzicato',

'Harp','Timpani','Marcato','Slow String','AnalogPad','String Pad','Choir','Doo Voice',

'Voices','Orch Hit','Trumpet','Trombone','Tuba','Muted Trumpet','French Horn','Brass',

'SynBrass 1','SynBrass 2','Soprano Sax','Alto Sax','Tenor Sax','Bari Sax','Sweet Oboe','English Horn',

'Basoon Oboe','Clarinet','Piccolo','Flute','Recorder','Pan Flute','Bottle','Shakuhachi','Whistle','Ocaiona','Square Wave','Saw Wave',

'Syn Caliope','Syn Choff','Charang','Air Chorus','Rezzo4th','Bass&Lead','Fantasia','Warm Pad',

'Poly Pad','Ghost Pad','Bowed Glass','Metal Pad','Halo Pad','Sweep','Ice Rain','Sound Track','Crystal',

'Atmosphere','Brightness','Goblin','Echp Drop','Star Theme','Sitar','Banjo','Shamisen',

'Koto','Kalimba','Scotland','Fiddle','Shanai','Metal Bell','Agogo','Steel Drums',

'Woodblock','Taiko','Tom','Synth Tom','Rev Cymbal','Fret Noise','Noise Chiff','Seashore',

'Birds','Telephone','Helicopter','Stadium!!','Gun Shot');

TablicaDzwiekow : TTablicaDzwiekow =

('c','c#','d','d#','e','f','f#','g','g#','a','a#','h');

constructor TMIDIDevice.Create;

begin

new(hMidiOut);

if MidiOutOpen(hMidiOut, MIDI_MAPPER, 0, 0, 0)<>0 then

hMidiOut:=NIL;

inherited Create;

end;

destructor TMIDIDevice.Destroy;

begin

dispose(hMidiOut);

inherited Destroy;

end;

//------------------------------------------------------------------------------

function TMIDIDevice.MIDINoteOff

(Channel:byte; KeyNumber:byte; Velocity:byte):boolean;

begin

MidiOutMessage(, Channel, KeyNumber, Velocity);

end;

//------------------------------------------------------------------------------

function TMIDIDevice.MIDINoteOn

(Channel:byte; KeyNumber:byte; Velocity:byte):boolean;

begin

MidiOutMessage(, Channel, KeyNumber, Velocity);

end;

//------------------------------------------------------------------------------

function TMIDIDevice.MIDIPolyphonicAfterTouch

(Channel:byte; KeyNumber:byte; AfterTouch:byte):boolean;

begin

MidiOutMessage($A00, Channel, KeyNumber, AfterTouch);

end;

//------------------------------------------------------------------------------

function TMIDIDevice.MIDIControlChange

(Channel:byte; Controler:byte; Value:byte):boolean;

begin

MidiOutMessage($B0, Channel, Controler, Value);

end;

//------------------------------------------------------------------------------

function TMIDIDevice.MIDIChannelModeLocalControl

(Channel:byte; zalacz:boolean):boolean;

var wartosc: byte;

begin

if zalacz = true then wartosc:=127 else wartosc:=0;

MidiOutMessage($B0, Channel, A, wartosc);

end;

//------------------------------------------------------------------------------

function TMIDIDevice.MIDIAllNotesOff(Channel:byte):boolean;

begin

MidiOutMessage($B0, Channel, B, 00);

end;

//------------------------------------------------------------------------------

function TMIDIDevice.MIDIOmniModeOff(Channel:byte):boolean;

begin

MidiOutMessage($B0, Channel, C, 00);

end;

//------------------------------------------------------------------------------

function TMIDIDevice.MIDIOmniModeOn(Channel:byte):boolean;

begin

MidiOutMessage($B0, Channel, D, 00);

end;

//------------------------------------------------------------------------------

function TMIDIDevice.MIDIMonoModeOn(Channel:byte):boolean;

begin

MidiOutMessage($B0, Channel, E, 1);

end;

//------------------------------------------------------------------------------

function TMIDIDevice.MIDIPolyModeOn(Channel:byte):boolean;

begin

MidiOutMessage($B0, Channel,F, 01);

end;

//------------------------------------------------------------------------------

function TMIDIDevice.MIDIProgramChange

(Channel:byte; ProgramValue:byte):boolean;

begin

MidiOutMessage($C0, Channel, ProgramValue, 0);

end;

//------------------------------------------------------------------------------

function TMIDIDevice.MIDIPitchWheelChange

(Channel:byte; LowValue:byte; HighValue:byte):boolean;

begin

MidiOutMessage($E0, Channel, LowValue, HighValue);

end;

//------------------------------------------------------------------------------

function TMIDIDevice.MidiOutMessage(iStatus:integer;

iChannel:integer; iData1:integer;

iData2:integer):Word;

var dwMessage : LongInt;

begin

dwMessage:=(iStatus) or (iChannel) or (iData1 shl 8) or (iData2 shl 16);

result:=midiOutShortMsg(hMidiOut^,dwMessage);

end;

//------------------------------------------------------------------------------

function TMIDIDevice.MIDIChannelAfterTouch(Channel:byte;AfterTouch:byte):boolean;

begin

MidiOutMessage($D0, Channel, AfterTouch, 00);

end;

//------------------------------------------------------------------------------

function TMIDIDevice.ProgramName(ProgramValue:byte):string;

begin

result:=TablicaBrzmien[ProgramValue];

end;

function TMIDIDevice.NoteName(Note:byte):string;

begin

result:=TablicaDzwiekow[Note-((Note div 12)*12)]+', octave: ' + IntToStr(Note div 12);

if Note = 60 then result := '* ' + result;

end;

end.

Сообщения были разделены в тему "FPC, Error while linking"]]> Romtek 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=735715 Wed, 01 Jun 2005 21:20:48 +0000 Синтез Midi инструментов https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=735715 Если что появится интересное, выкладывай. :yes:

Добавлено 01.06.05, 21:31
Вот ещё одну программу наклёпал, играет мелодию "Baked Tostadas in Z Minor"

program Midi_Tostadas;

uses CRT, Windows, MMSystem;

const

noteseq: array[0..59] of integer = (

110, 69, 81, 110, 67, 79, 990, 69, 81, 220, -1, -1,

110, 67, 79, 110, 65, 77, 110, 64, 76, 110, 62, 74,

220, 61, 73, 440, 62, 74, 1980, -1, -1, 110, 57, 69,

110, 55, 67, 990, 57, 69, 220, -1, -1, 220, 52, 64,

220, 53, 65, 220, 49, 61, 440, 50, 62, 1980, -1, -1 );

var

midimsg: DWORD;

hmidi_out: HMIDIOUT;

CurrentNote,

devID,

err_cd: integer;

ch : char;

function MidiOutMessage(hMidi:HMIDIOUT; iStatus, iChannel, iData1, iData2: integer): DWORD;

var

dwMessage:DWORD;

begin

dwMessage:= iStatus or iChannel or (iData1 shl 8) or (longint( iData2 shl 16)) ;

result:= midiOutShortMsg (hMidi, dwMessage) ;

end;

begin

devID:=1;

//открытие миди выхода

err_cd:=midioutopen(@hmidi_out,devID,0,0,CALLBACK_NULL);

writeln ('Нажмите пробел для воспроизведения звука или Esc для выхода.');

writeln ('Baked Tostadas in Z Minor');

repeat

ch := readkey;

if ch = ' ' then

begin

MidiOutMessage (hmidi_out, $C0, 0, 19, 0) ;

MidiOutMessage (hmidi_out, $C0, 12, 19, 0) ;

for CurrentNote := 0 to 59 do

begin

// - MIDI Note On

// - MIDI Note Off

MidiOutMessage (hmidi_out, , 0, NoteSeq[CurrentNote], 0);

MidiOutMessage (hmidi_out, , 12, NoteSeq[CurrentNote], 0);

MidiOutMessage (hmidi_out, , 0, NoteSeq[CurrentNote], 127);

MidiOutMessage (hmidi_out, , 12, NoteSeq[CurrentNote], 127);

sleep (100);

end;

until ch = #27;

err_cd:=midioutclose(hmidi_out);

end.

Добавлено 01.06.05, 21:32
Частично содрана с другого исходника (Дельфи).]]> Romtek 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=735708 Wed, 01 Jun 2005 21:12:41 +0000 Синтез Midi инструментов https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=735708 Цитата

Но у меня слёзы наворячиваются при виде такого кода

Да что ты не плачь. Эт я на скоряк, скопировал вставил.:whistle: Просто спать уж скоро, а время на обдумки кода тратить не хотелось, вот и всё.
Больше так не буду. :no:]]> Ash 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=735686 Wed, 01 Jun 2005 20:50:20 +0000 Синтез Midi инструментов https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=735686 Но у меня слёзы наворячиваются при виде такого кода :'(

Добавлено 01.06.05, 20:53
Почему не можешь значения в массив загнать и проходить по ним циклом?]]> Romtek 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=735684 Wed, 01 Jun 2005 20:46:49 +0000 Синтез Midi инструментов https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=735684

repeat

ch := readkey;

if ch = ' ' then

begin

midimsg:={text}23c0; // установка инструмента

midioutshortmsg(hmidi_out,midimsg);

midimsg:=3190; // до вкл.

midioutshortmsg(hmidi_out,midimsg);

delay(1000);

midimsg:=3180; // до выкл.

midioutshortmsg(hmidi_out,midimsg);

midimsg:=3390; // ре

midioutshortmsg(hmidi_out,midimsg);

delay(1000);

midimsg:=3380; //

midioutshortmsg(hmidi_out,midimsg);

midimsg:=3590; // ми

midioutshortmsg(hmidi_out,midimsg);

delay(1000);

midimsg:=3580; //

midioutshortmsg(hmidi_out,midimsg);

midimsg:=3690; // фа

midioutshortmsg(hmidi_out,midimsg);

delay(1000);

midimsg:=3680; //

midioutshortmsg(hmidi_out,midimsg);

midimsg:=3890; // соль

midioutshortmsg(hmidi_out,midimsg);

delay(1000);

midimsg:=3880; //

midioutshortmsg(hmidi_out,midimsg);

midimsg:=4090; // ля

midioutshortmsg(hmidi_out,midimsg);

delay(1000);

midimsg:=4080; //

midioutshortmsg(hmidi_out,midimsg);

midimsg:=4290; // си

midioutshortmsg(hmidi_out,midimsg);

delay(1000);

midimsg:=4280; //

midioutshortmsg(hmidi_out,midimsg);

end;

until ch = #27;

До-мажор гамма :rolleyes:

На счёт нот точно неуверен, может не те, но гамма на слух слышится.

Цитата

У меня к примеру не издаёт звуков твой пример

А твоя программка которую ты здесь за постил играет?]]> Ash 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=735671 Wed, 01 Jun 2005 20:21:13 +0000 Синтез Midi инструментов https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=735671
Добавлено 01.06.05, 20:24
Задание:
Составить пример для проигрывания нот любой октавы.

Можешь написать?

Добавлено 01.06.05, 20:39
Вот нашёл интересную функцию:

function MidiOutMessage(hMidi:HMIDIOUT; iStatus, iChannel, iData1, iData2: integer): DWORD;

var

dwMessage:DWORD;

begin

dwMessage:= iStatus or iChannel or (iData1 shl 8) or (longint( iData2 shl 16)) ;

result:= midiOutShortMsg (hMidi, dwMessage) ;

end;

]]> Romtek 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=735670 Wed, 01 Jun 2005 20:19:11 +0000 Синтез Midi инструментов https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=735670 Ash 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=735663 Wed, 01 Jun 2005 20:12:48 +0000 Синтез Midi инструментов https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=735663 Romtek 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=735657 Wed, 01 Jun 2005 19:55:58 +0000 Синтез Midi инструментов https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=735657

uses CRT, Windows, MMSystem;

var

midimsg: DWORD;

hmidi_out: HMIDIOUT;

hmidi_in: HMIDIIN;

err_cd: integer;

Down:boolean;

ch : char;

begin

//открытие миди выхода

clrscr;

err_cd:=midioutopen(@hmidi_out,0,0,0,0);

writeln ('Нажмите пробел для произведения звука или Esc для выхода.');

repeat

ch := readkey;

if ch = ' ' then

begin

midimsg:={text}23c0; // $с - установка инструмента(=35 - Fretless Bass) channel=0

midioutshortmsg(hmidi_out,midimsg);

midimsg:=3090; // - проигрывание ноты (пока точно не знаю какая нота) channel=0

midioutshortmsg(hmidi_out,midimsg);

delay(1000);

midimsg:=3080; // - выключение ноты channel=0

midioutshortmsg(hmidi_out,midimsg);

end;

until ch = #27;

end.

:no:]]> Ash 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=735643 Wed, 01 Jun 2005 19:23:30 +0000 Синтез Midi инструментов https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=735643 Romtek 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=735633 Wed, 01 Jun 2005 19:12:47 +0000 Синтез Midi инструментов https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=735633
Если кому интересно:
http://www-camil.music.uiuc.edu/Classes/199E/MIDI/midimessages.html]]> Ash 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=735605 Wed, 01 Jun 2005 18:22:44 +0000 Синтез Midi инструментов https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=735605 Гугл тебе в помощь, MSDN, ...]]> Romtek 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=735603 Wed, 01 Jun 2005 18:18:32 +0000 Синтез Midi инструментов https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=735603 Ash 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=735546 Wed, 01 Jun 2005 17:03:12 +0000 Синтез Midi инструментов https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=735546
Добавлено 01.06.05, 17:30
А, всё. В опциях\линкер другие установочки зделал, всё пошло]]> Ash 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=735508 Wed, 01 Jun 2005 16:16:57 +0000 Синтез Midi инструментов https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=735508 Romtek 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=735475 Wed, 01 Jun 2005 15:45:31 +0000 Синтез Midi инструментов https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=735475 Пишет Error while linking
Указатель на последнем end'е.
Чё ему надо?]]> Ash 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=735400 Wed, 01 Jun 2005 14:37:21 +0000 Синтез Midi инструментов https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=735400

uses CRT, Windows, MMSystem;

var

midimsg: DWORD;

hmidi_out: HMIDIOUT;

hmidi_in: HMIDIIN;

err_cd: integer;

Down:boolean;

ch : char;

begin

//открытие миди выхода

err_cd:=midioutopen(@hmidi_out,1,0,0,0);

writeln ('Нажмите пробел для произведения звука или Esc для выхода.');

repeat

ch := readkey;

if ch = ' ' then

begin

midimsg:=f3a90; // поменять константу для других инструментов

midioutshortmsg(hmidi_out,midimsg);

end;

until ch = #27;

end.

Добавлено 01.06.05, 14:39
Программа написана на для Free Pascal и тестирована в версии 2.0.0
Должна работать в любых 32-битных компиляторах Паскаля.]]> Romtek 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=734229 Tue, 31 May 2005 12:48:03 +0000 Синтез Midi инструментов https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=734229 Цитата Ash @ 31.05.05, 10:55

А как можно сыграть определённую миди ноту, определённым инструментом?

Этот вопрос лучше задать в разделе Программирование звука]]> Romtek 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=734101 Tue, 31 May 2005 10:55:53 +0000 Синтез Midi инструментов https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=734101 Ash 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=734082 Tue, 31 May 2005 10:27:52 +0000 Синтез Midi инструментов https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=734082 mcisendstring (для WAV, MIDI).

Какой звук ты хочешь издавать ?

Добавлено 31.05.05, 10:37
Графика и мультимедиа->Работа со звуком

Добавлено 31.05.05, 10:52
Windows.Beep(Freq,Duration); для w2k, XP
Freq - частота
Duration - длительность

Добавлено 31.05.05, 10:52
Delphi: Multimedia

Добавлено 31.05.05, 10:53
Всё, что можно в Дельфи, можно сделать и в FPC.]]> Romtek 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=733932 Tue, 31 May 2005 08:16:29 +0000 Синтез Midi инструментов https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=733932 Ash 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=732469 Sun, 29 May 2005 18:20:05 +0000 Синтез Midi инструментов https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=732469 mciSendCommand, mciSendString

Вот пример для Дельфи (мною не проверялся):

uses

MMSystem;

// Play Midi

procedure Play;

const

FileName = 'C:\YourFile.mid';

begin

MCISendString(PChar('play ' + FileName), nil, 0, 0);

end;

// Stop Midi

procedure Stop;

const

FileName = 'C:\YourFile.mid';

begin

MCISendString(PChar('stop ' + FileName), nil, 0, 0);

end;

Вот ещё:

procedure TForm1.PlayClick(Sender: TObject);

const

midi='D:\MUSIC\Midi\tp.mid';

begin

mcisendstring(PChar('open '+midi+' type sequencer alias MIDIDemo'),0,0,Handle);

mcisendstring('play MidiDemo FROM 0',0,0,Handle);

end;

procedure TForm1.StopClick(Sender: TObject);

begin

mcisendstring('stop MidiDemo',0,0,0);

end;

С WinAPI, по идее, не должно быть проблем. Даже с Борланд Паскалем.]]> Romtek 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=732457 Sun, 29 May 2005 18:00:45 +0000 Синтез Midi инструментов https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=732457 Цитата Romtek @ 29.05.05, 17:34

Неужели такие дикие ограничения в компиляторах? Free Pascal не подойдёт?

В том то и дело что ограничения дикие. Всё надо сделать в BP/TP.

Так кто нибудь подскажет как, звуки midi под винду спеть? Пожайлусто, очень надо.]]> Ash 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=732440 Sun, 29 May 2005 17:34:22 +0000 Синтез Midi инструментов https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=732440 Цитата Ash @ 29.05.05, 16:56

Под вин на TP?

Нет, можно только в BP7.
Неужели такие дикие ограничения в компиляторах? Free Pascal не подойдёт?]]> Romtek 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=732426 Sun, 29 May 2005 16:56:10 +0000 Синтез Midi инструментов https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=732426 Цитата hot_icer @ 28.05.05, 09:17

Вобщем либо звуковуху ставь... либо под Win пиши...

Под вин на TP?]]> Ash 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=731618 Sat, 28 May 2005 09:17:32 +0000 Синтез Midi инструментов https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=731618 Ash MIDI (или FM) у тебя программный под Win, т.е. в DOS через порты
тебе не дотянутся...

Вобщем либо звуковуху ставь... либо под Win пиши...]]> hot_icer 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=731388 Fri, 27 May 2005 18:23:57 +0000 Синтез Midi инструментов https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=731388 Ash 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=730807 Fri, 27 May 2005 08:29:21 +0000 Синтез Midi инструментов https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=730807 Ash с FM в TP/BP у тебя не получится(или звуковуху надыбай SB/Adlib совместимую)...
Раз у тебя прога находит базовый порт, то есть подозрения, что wav проиграть из паскаля
можно... Тогда делаешь несколько файлов с записями инструментов и принажатии клавиш
в реалтайм микшируешь и выводишь на звуковуху(чистый гемор)

Совет достань звуковуху...]]> hot_icer 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=730540 Fri, 27 May 2005 04:25:02 +0000 Синтез Midi инструментов https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=730540 Издательство BHV
Отдельная глава посвящена программированию звуковых карт.
Вчера видел эту книгу в БиблиоГлобусе. 465 руб. Вроде не плохая книжка.]]> @Hgpeu 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=730438 Thu, 26 May 2005 20:48:25 +0000 Синтез Midi инструментов https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=730438 Цитата Ash @ 26.05.05, 19:42

У меня курсовая, виртуальное пианино надо сделать.

Универсальных модулей, рассчитаных на разные звуковые карты, нет. Используй Sound() и забудь о всяких FM.]]> Romtek 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=730374 Thu, 26 May 2005 19:42:07 +0000 Синтез Midi инструментов https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=730374 Цитата

Одноканальный... эт когда играет одна нота в еденицу времени

Это то я понял.
Я не понял чё за орган. Эт ты про PC-Speaker, чтоли. Нее..

Так чё с миди, чё он молчит, не знаешь.

Цитата

Тебе сильно позарез надо? Если не секрет, то куда?

У меня курсовая, виртуальное пианино надо сделать.]]> Ash 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=730278 Thu, 26 May 2005 17:05:53 +0000 Синтез Midi инструментов https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=730278 Ash
Значит FM только Виновозе... в DOS облом...

Одноканальный... эт когда играет одна нота в еденицу времени
(или проще: нельзя взять аккорд), т.е. прога очень проста...
На спикере проиграть несколько нот одновременно ну... немного проблематично
(хотя если выпендрится вполне возможно)
Тебе сильно позарез надо? Если не секрет, то куда?]]> hot_icer 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=730254 Thu, 26 May 2005 16:24:29 +0000 Синтез Midi инструментов https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=730254 Цитата

Ash звук интегрированный?

Да.

Цитата

Посмотри в виновозе настройку громкости FM, если там написано
типа "SW Syns" значит пи...пиликала гармошка.

Там написано програмнный синтезатор.
А FM(OPL2/OPL3) звукавуха не поддерживает.

Цитата

Тебе одноканальный орган на спикер пойдет?

Эт какой такой?]]> Ash 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=729347 Thu, 26 May 2005 01:53:42 +0000 Синтез Midi инструментов https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=729347 Ash звук интегрированный? Попробуй старую Dos игруху с FM ... вероятно из DOSа
тебе до FM не добратся... Посмотри в виновозе настройку громкости FM, если там написано
типа "SW Syns" значит пи...пиликала гармошка. Тебе одноканальный орган на спикер пойдет?]]> hot_icer 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=729319 Wed, 25 May 2005 21:26:20 +0000 Синтез Midi инструментов https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=729319
Программа говорит: Base Port: 544;

В ассемблеровском коде сделал изменения, всё равно молчит. :(]]> Ash 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=729147 Wed, 25 May 2005 06:14:07 +0000 Синтез Midi инструментов https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=729147 Ash твоя прога может определить порт, после

If not DetectSBBase then WriteLn('Error detecting SB base port!')

else WriteLn('You have '+sbNamePrefix, GetSBName);

вставь строку

WriteLn('Base port: ',sbBase);

В модуле midi.pas есть косяки (хотя у меня пахало)
асмеры меня с потрохами должны со жрать :)

mov cx,6

rep in al,dx

...........

mov cx,28

rep in al,dx

это не есть правильно! Замени на :

mov cx,6

@ops: in al,dx

loop @ops

...........

mov cx,28

@ops1: in al,dx

loop @ops1

В prehistoric'e были "in al,dx" в длинный столбик!]]> hot_icer 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=728913 Tue, 24 May 2005 20:56:19 +0000 Синтез Midi инструментов https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=728913 Цитата

Где можно посмотреть базовый порт?

Свойства системы/Оборудование/Диспетчер устройств/Звуковуха/Ресурсы
Там диапазон ввода-вывода
Или что?]]> @Hgpeu 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=728852 Tue, 24 May 2005 19:25:13 +0000 Синтез Midi инструментов https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=728852 Цитата hot_icer @ 24.05.05, 07:50

Ash Ось DOS/WIN9X? Звукавуха sb совместимая? Базовый порт 220h?
Твой старый проигрыватель работает?

Вот эта программа говорит: You have Sound Blaster Pro2

{$S-}

uses crt;

Const

sbNamePrefix = 'Sound Blaster ';

{ Префикс имени модели для функции GetSBName }

Const

svSB1 = 0; { Sound Blaster 1.0/1.5 } { 1.05??? }

svSB2 = 0; { Sound Blaster 2.0 } { 2.01 }

svSBPro = 0; { Sound Blaster Pro } { ??? }

svSBPro2 = 1; { Sound Blaster Pro2 } { 3.01, 3.02 }

svSB16 = 0; { Sound Blaster 16 } { 4.04, 4.05 }

svSB16SCSI2 = B; { Sound Blaster 16 SCSI-2 } { 4.11 }

svSBAWE32 = C; { Sound Blaster AWE32 } { 4.12 }

{ Модели Sound Blaster'а, соответствующие версиям DSP (см. DSPVersion) }

Var sbBase : Word; { Базовый порт }

Var sbIRQ : Byte; { IRQ }

Var sbLDMA : Byte; { 8-битный канал DMA }

Var sbHDMA : Byte; { 16-битный канал DMA }

Var sbBaseMIDI : Word; { Базовый порт MIDI }

Var sbModel : Word; { Модель Sound Blaster'а (см. константы smXXXX) }

Var DSPVersion : Word; { Версия DSP Sound Blaster'а (см. константы svXXXX) }

{ Параметры Sound Blaster'а }

Procedure WriteToSB(N: Byte); assembler;

{ Записывает в порт Sound Blaster'а байт N (команду или данные) }

Asm

mov dx,sbBase

add dl,0Ch

@:in al,dx

or al,al

js @

mov al,N

out dx,al

End;

Function ReadFromSB: Byte; assembler;

{ Читает байт из порта Sound Blaster'а }

Asm

mov dx,sbBase

add dl,0Eh

@:in al,dx

or al,al

jns @

sub dl,(0Eh-0Ah)

in al,dx

End;

Function ResetDSP: Boolean; assembler;

{ Выполняет сброс процессора DSP и записывает номер версии в DSPVersion. }

{ Если при инициализации возникает ошибка (например, Sound Blaster уже }

{ используется другой программой и неверно указан номер базового порта }

{ sbBase), функция возвращает значение FALSE. }

Asm

mov dx,sbBase

add dl,6

mov al,1

out dx,al

mov cx,1000h

push cx

@1:loop @1

dec ax

out dx,al

pop cx

add dl,(0Eh-06h)

@2:in al,dx

test al,80h

loopz @2

sub dl,(0Eh-0Ah)

in al,dx

cmp al,0AAh

mov al,0

jne @Error

mov al,0E1h

push ax

call WriteToSB

call ReadFromSB

mov byte ptr DSPVersion[1],al

call ReadFromSB

mov byte ptr DSPVersion[0],al

mov al,1

@Error:

End;

Function DetectSBBase: Boolean; assembler;

{ Определяет базовый порт Sound Blaster'а. В случае неудачи возвращает }

{ значение FALSE и присваивает переменной sbBase значение $FFFF. }

{ !!! Вызывает функцию ResetDSP. }

Asm

mov bx,210h

@Test:

mov sbBase,bx

call ResetDSP

or al,al

jnz @Ok

@:add bl,10h

cmp bl,70h

je @

cmp bl,80h

jbe @Test

mov sbBase,0FFFFh

@Ok:

End;

Function GetSBName: String;

{ Получить имя Sound Blaster'а ('1.x', '2.0', 'Pro' и т.д) по версии DSP }

Begin

If DSPVersion >= svSBAWE32 then GetSBName := 'AWE32 or better'

else If DSPVersion >= svSB16SCSI2 then GetSBName := '16 SCSI-2'

else If DSPVersion >= svSB16 then GetSBName := '16'

else If DSPVersion >= svSBPro2 then GetSBName := 'Pro2'

else If DSPVersion >= svSBPro then GetSBName := 'Pro'

else If DSPVersion >= svSB2 then GetSBName := '2.0'

else If DSPVersion >= svSB1 then GetSBName := '1.x'

else GetSBName := 'Unknown'

End;

Begin

If not DetectSBBase then WriteLn('Error detecting SB base port!')

else WriteLn('You have '+sbNamePrefix, GetSBName);

Repeat until keypressed;

End.

Где можно посмотреть базовый порт?

Проигрыватель Wernera в ХР играет, в Win98 нет.

-юсртыхэю 24.05.05, 19:30

Цитата @Hgpeu @ 24.05.05, 14:05

Если звуковуха старая, можно попробовать программирование fm синтезатора.

В том то и дело что была у меня звукавуха старая, начал делать с помощью FM, а потом мать обновил, а там такого счастья нет, так вот теперь нужно как-нибудь звук то издать.]]> Ash 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=728661 Tue, 24 May 2005 15:35:00 +0000 Синтез Midi инструментов https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=728661 Дубль 2:

ps Хорошо, Romtek. И документация тоже в zip]]> @Hgpeu 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=728553 Tue, 24 May 2005 14:05:49 +0000 Синтез Midi инструментов https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=728553
[Модератор: Есть также теория по портам звуковой карты - в аттаче вместе с программой.]

ps 1,5 года назад я тоже хотел написать муз редактор для миди. Получилось только для ФМ. И то не доделано и не доведено до ума. Но надеюсь что возможно поможет.]]> @Hgpeu 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=727933 Tue, 24 May 2005 07:50:26 +0000 Синтез Midi инструментов https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=727933 Ash Ось DOS/WIN9X? Звукавуха sb совместимая? Базовый порт 220h?
Твой старый проигрыватель работает?

Пиши мне на мыло, [удалено модератором].

Можно обсуждать детали, но не в форме личной переписки!]]> hot_icer 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=727436 Mon, 23 May 2005 18:42:20 +0000 Синтез Midi инструментов https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=727436 Ash 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=727385 Mon, 23 May 2005 17:50:44 +0000 Синтез Midi инструментов https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=727385 Ash покешь мыло... закину...
Конеш прога не фонтан...
Когда-то выдрал демку из PREHISTORIC2... писал методом тыка...
Работает на SB совместимых (пробовал dos/win98)]]> hot_icer 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=727348 Mon, 23 May 2005 17:10:30 +0000 Синтез Midi инструментов https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=727348 Ash 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=726332 Sun, 22 May 2005 20:04:11 +0000 Синтез Midi инструментов https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=726332 32-битные компиляторы). В особенности предлагаю библиотеку BASS.DLL. Полагаю, с ней легче разобраться, чем с ассемблером. :whistle:
К тому же вывод звука с помощью DirectX.

Добавлено 22.05.05, 20:33
Вот код с применением библиотеки BASS:

program fpctest;

uses

Crt,

Windows,

BassFPC;

var

Stream : HStream;

totallength : integer;

const

// Enter the name & path of an MP3 or other streamed music file here!

MUSIC_FILE = 'D:\MUSIC\test.mp3';

function seconds_to_minutes (v: integer): string;

var

temp1,temp2 : string;

begin

str(v div 60,temp1);

str(v mod 60,temp2);

if length(temp2) = 1 then temp2 := '0' + temp2;

result := temp1 + ':' + temp2;

end;

procedure error(msg: string);

begin

writeln(msg + ' (Error code: ',BASS_ErrorGetCode,')');

end;

procedure init_stuff;

begin

stream := 0;

// Ensure BASS 2.0 was loaded

if BASS_GetVersion() <> MAKELONG(2,1) then begin

Error('BASS version 2.1 was not loaded!');

Halt;

end;

// Initialize audio - default device, 44100hz, stereo, 16 bits

if not BASS_Init(1, 44100, 0, 0, nil) then

Error('Error initializing audio!');

end;

procedure done_stuff;

begin

// Free the stream

if (stream <> 0) then

BASS_StreamFree(stream);

// Close BASS

BASS_Free();

end;

procedure load_song;

var

p : PChar;

begin

p := PChar(MUSIC_FILE);

// Load the stream straight from a file.

stream := BASS_StreamCreateFile(FALSE,p,0,0,0);

if (stream = 0) then error('Error loading stream!');

end;

procedure play_song;

begin

// Play stream.

if not BASS_ChannelPlay(stream, FALSE) then

Error('Can''t play stream');

end;

procedure stop_song;

begin

BASS_ChannelStop(stream);

end;

begin

clrscr;

writeln('Welcome to the FPS BASS Test - by Paradice Software.');

init_stuff;

writeln('BASS Initialised successfully. ');

writeln('Press any key to load file: ' + MUSIC_FILE);

readkey;

load_song;

writeln('Song loaded successfully. press any key to play');

readkey;

totallength := round(BASS_ChannelBytes2Seconds(stream,BASS_StreamGetLength(stream)));

play_song;

writeln('Playing... press any key to stop!');

repeat

gotoxy(1,10);

writeln('Playing: ' + seconds_to_minutes(round(BASS_ChannelBytes2Seconds(stream,BASS_ChannelGetPosition(stream)))) + ' of ' + seconds_to_minutes(totallength));

// Bass plays in a separate thread, so we can sleep here to yield CPU.

sleep(100);

until keypressed;

readkey;

stop_song;

clrscr;

done_stuff;

writeln('Done... exit');

end.

По-моему всё довольно наглядно и просто.]]> Romtek 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=726264 Sun, 22 May 2005 18:10:21 +0000 Синтез Midi инструментов https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=726264 Ash 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=725573 Sat, 21 May 2005 19:22:12 +0000 Синтез Midi инструментов https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=725573 Цитата Ash @ 20.05.05, 18:10

Мне вобще нужно что бы при нажатии на клавишу воспроизводился звук определённой ноты и инструмента. Как установить для миди звук и инстр.

Модуль тут совсем ни причём. Муз.редактором собираешь MIDI файл, а этот модуль должен его проиграть.
А если тебе нужно именно по нажатию клавиши, то это уже гораздо сложнее. Я не имею представления как это делать. В модуле сосем не имеет смысла разбираться, т.к.Если тебе необязательно звучание инструмента, а просто пищание PC-speaker, то вполне сойдёт Sound()]]> Romtek 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=724908 Fri, 20 May 2005 21:30:13 +0000 Синтез Midi инструментов https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=724908 Ash 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=724892 Fri, 20 May 2005 21:18:27 +0000 Синтез Midi инструментов https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=724892 Romtek 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=724755 Fri, 20 May 2005 18:10:07 +0000 Синтез Midi инструментов https://forum.sources.ru/index.php?showtopic=96130&view=findpost&p=724755

asm

mov dx,StatusPort

@1:

in al,dx

and al,DRR

jnz @1

mov al,[b]

dec dx {DataPort = StatusPort - 1}

out dx,al

end;

if il>=2 then begin {Event mit 2 oder 3 Bytes}

b:=bp^; { Byte holen }

while port[StatusPort] and DRR <> 0 do;

port[Dataport] := bp^;

asm

mov dx,StatusPort

@2:

in al,dx

and al,DRR

jnz @2

mov al,[b]

dec dx

out dx,al

end;

inc(bp);

if il=3 then begin { 3. Byte ?? }

b:=bp^; { Byte holen }

while port[StatusPort] and DRR<>0 do;

port[Dataport] := bp^;

asm

mov dx,StatusPort

@2:

in al,dx

and al,DRR

jnz @2

mov al,[b]

dec dx

out dx,al

end;

inc(bp);

я так полагаю что воспроизведение осущевстляется именно здесь, но как оно осущевстляется я понять не могу, может кто поможет. Мне вобще нужно что бы при нажатии на клавишу воспроизводился звук определённой ноты и инструмента. Как установить для миди звук и инстр.
Из всех модулей для миди работает только этот, поэтому за него и ухватился.]]> Ash 32-битные компиляторы