Einzelnen Beitrag anzeigen

sonz

Registriert seit: 24. Jan 2006
Ort: Bremen
8 Beiträge
 
Delphi 2007 Architect
 
#1

midiOutPrepareHeader SysEx senden

  Alt 6. Jul 2006, 11:36
Hallo Leute, ich hoffe mal mir kann hier jemand helfen.
Ich will eine SysExMessage an ein Sequenzer senden (Cubase).
Beim Vorbereiten der MidiHeaders bekomme ich immer ein
MMSYSERR_INVALPARAM.
Hat jemand ne Idee was ich falsch mache ??

Danke, Ingo

Delphi-Quellcode:
procedure TForm1.SpeedButton5Click(Sender: TObject);
var header : pMidiHdr;
MMRes : MMRESULT;
sysex : pchar;

begin;
  header.lpData := #$F0#$7f#$7F#$06#$01#$f7;
  header.lpData := sysex;
  header.dwBufferLength := sizeof(tmidihdr);
  header.dwFlags := 0;
  mmres := midioutprepareheader(midiout,@header,sizeof(@header));
end;
Ingo
(\__/)
(O.o)
(> <) "This is Bunny. Copy Bunny into your signature to help him on his way to world domination."
  Mit Zitat antworten Zitat