Gunter Engel - 2025-09-22

Hi Normann,

Thank you very much for providing this wonderful library. This was really
helpful for me.

Using a MidiOutDevice with Windows 64 bit I needed to change the casting of
the callback function address from Cardinal to NativeUInt in
Winapi.Midi.Devices.pas:

function TPlatformMIDIDevice.OpenMIDIOutDevice: NativeUInt;

var

LResult: NativeUInt;

begin

LResult := midiOutOpen(@Result, DeviceID, NativeUInt(@mmeapiCallBack),
NativeUInt(Self), CALLBACK_FUNCTION);

.

Cheers,

Gunter

 
alternate