Question

我正在努力用Lazarus / FreePascal实现OSX CoreMidi MidiCallback程序。

在MIDIServices单元中，定义了回调例程MIDIReadProc：

MIDIReadProc = procedure( (*const*) pktlist: MIDIPacketListPtr; readProcRefCon: UnivPtr; srcConnRefCon: UnivPtr );

当接收到midi事件时，在CoreMidi拥有的单独的高优先级线程上调用此例程。

我定义了一个回调程序来处理收到的midi事件：

Type procedure MyMidiCallback(pktList: MIDIPacketListPtr;readProcRefCon: UnivPtr; srcConnRefCon: UnivPtrMy);     

procedure TMainForm.MyMidiCallback(pktList: MIDIPacketListPtr;readProcRefCon: UnivPtr; srcConnRefCon: UnivPtr);
begin
  //  handle midi packets
end;

midi回调挂钩在'MidiInputPortCreate'的以下代码中定义：

procedure TMainForm.ReceiveMidiTestClick(Sender: TObject);
var
  NumOfSources, NumOfDestinations: ItemCount;
  x: byte;
  MIDIDestinationPointer, MidiSourcePointer: MIDIEndpointRef;
  EndPointName: CFStringRef;
  MidiClient: MidiClientRef;
  InputPort: MidiPortRef;
  MidiCallback: MidiReadProc;
begin
  NumOfDestinations := MIDIGetNumberOfDestinations;
  NumOfSources := MIDIGetNumberOfSources;
  Memo.Lines.Add('Number of Midi Sources: ' + IntToStr(NumOfSources));
  EndPointName := nil;
  MidiClient := nil;
  InputPort := nil;
  MidiCallback := @TMainform.MyMidiCallback;

  for x := 0 to NumOfDestinations -1 do  // show destinations
    begin
      MidiDestinationPointer := MidiGetDestination(x);
      MIDIObjectGetStringProperty(MidiDestinationPointer, kMIDIPropertyName, EndPointName);
      Memo.Lines.Add('Destination ' + IntToStr(x) + ': ' + CFStrToAnsiStr(EndPointName));
    end;

  for x := 0 to NumOfSources -1 do  // show sources
    begin
      MidiSourcePointer := MIDIGetSource(x);
      MIDIObjectGetStringProperty(MidiSourcePointer, kMIDIPropertyName, EndPointName);
      Memo.Lines.Add('Source ' + IntToStr(x) + ': ' + CFStrToAnsiStr(EndPointName));
    end;

  MidiClientCreate(CFSTRP('Midi Input Client'), nil, nil, MidiClient);
  MidiInputPortCreate(MidiClient, CFSTRP('Input'), MidiCallback, nil, InputPort);  //     MidiCallback
  MIDISourcePointer := MIDIGetSource(0);  // select source(0) = midi keyboard
  MidiPortConnectSource(InputPort, MIDISourcePointer, nil);
end;

编译会生成以下错误消息：

mainunit.pas(480,19) Error: Incompatible types: got "<procedure variable type of procedure(MIDIPacketListPtr,Pointer,Pointer) of object;Register>" expected "<procedure variable type of procedure(MIDIPacketListPtr,Pointer,Pointer);MWPascal>"

我现在被困在这里;希望有人可以提供帮助。

---------------------------------更新＃1 ----------- -----------------------

上面的代码确实有点奇怪，所以我重写了一些东西：

procedure TMainForm.ReceiveMidiTestClick(Sender: TObject);
var
  MidiClient: MidiClientRef;
  InputPort: MidiPortRef;
  MidiCallback: MIDIReadProc;
begin
  MidiCallback := MyMidiCallback;
  MidiClientCreate(CFSTRP('Midi Input Client'), nil, nil, MidiClient);
  MidiInputPortCreate(MidiClient, CFSTRP('Input'), MidiCallback, nil, InputPort);
  MidiPortConnectSource(InputPort, MIDIGetSource(0), nil);
end;

procedure MyMidiCallback(pktList: MIDIPacketListPtr; readProcRefCon: UnivPtr;    srcConnRefCon: UnivPtr);
begin
//  handle midi packets
end;

现在代码编译没有错误但是只要我按下midi键盘上的某个键，应用程序就会崩溃，并显示以下错误消息：

'ERROR Project ...在地址FFFFD96F'提出异常类'外部：Sigtrap'

（FFFFD96F可能是指向MidiCallback例程的指针）。

基本上，我遇到的问题是如何让MidiInputPortCreate中的MidiCallback指针正确指向我处理midi事件的MyMidiCallback程序。

顺便说一句，发送Midi活动工作正常。

Answer 1

让我们将错误声明放在单独的行中：

mainunit.pas（480,19）错误：不兼容的类型：得到了“

对象的过程（MIDIPacketListPtr，Pointer，Pointer）; Register＆gt;“expected”＆lt; 过程变量类型的过程（MIDIPacketListPtr，指针，指针）; MWPascal＆gt;“

注意两个重要的区别：

1）错误中两个过程声明中的“对象”差异意味着您传递了一个方法而不是一个正确的过程。

2）除此之外，调用约定似乎不匹配，一个是mwpascal;一个是注册。寄存器是大多数模式的默认值，因此没有调用约定修饰符意味着注册。

你问题的“回调”部分很奇怪。您将类型定义为过程，但提供方法作为实现？

在Lazarus / FreePascal中实现OSX CoreMidi MidiCallback功能的问题

1 个答案: