Hallo,
Ich habe mit folgendem Code + Midi Komponente Drums hingekriegt:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var
I, Dev: Integer;
begin
Dev:=0;
If MidiOutput1.NumDevs=0 then
begin
showmessage('Keine Soundkarte');
end
else
begin
for i:=MidiOutput1.Numdevs-1 downto 0 do
begin
MidiOutput1.DeviceID:=i;
end;
end;
MidiOutput1.DeviceID:=Dev;
MidiOutput1.Open;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=true;
end;
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
Timer1.Interval:=Trackbar1.Position;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Case(Times mod 4) of
0: begin
MidiOutput1.PutShort($89,36,0);
MidiOutput1.PutShort($99,36,127);
end;
2: begin
MidiOutput1.PutShort($89,40,0);
MidiOutput1.PutShort($99,40,127);
end;
end;
MidiOutput1.PutShort($12,42,0);
MidiOutput1.PutShort($99,42,64); inc(Times);
end;
Wie kann ich das jetzt mit anderen Instrumenten machen?
Hab mir schon
das hier angegugt..aber irgendwie bin ich da zu dumm zu....*verzfeifel*
Vielleicht kann kann mir ja jemand helfen...
gruss
zebrafalke