aboutsummaryrefslogblamecommitdiffstats
path: root/Game/Code/lib/midi/midiin.dcu
blob: cb5d0bfb2b6db9359ff77c4fbe18b0857b1bd26b (plain) (tree)



























































































































                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     
#3k�%7�^�MidiIn�<plib\midi\midiin.pas��>&dSystemgTObject.SafeCallException�
ĄgTObject.AfterConstruction�
ĄgTObject.BeforeDestruction�
ĄgTObject.Dispatch�
ĄgTObject.DefaultHandler�
ĄgTObject.NewInstance�
ĄgTObject.FreeInstance�
ĄgTObject.Destroy�
ĄfWordN��fBoolean��ef
AnsiString�+{�fstring�+{�gFalsesɚ�g@ClassCreate�V�g@AfterConstruction��Kg@BeforeDestruction�S�g
@ClassDestroy����fPChar�u�Rg@LStrAsg�Ԝg@HandleFinally�`p�g@RaiseExcept�`p�gSizeOff	PAnsiChar�u�Rg
@LStrArrayClr���gBreakg@LStrAddRef�`Eg@LStrCmp�`p�g	@LStrCatN�`p�fTObject|��gTObject.Create�
Ąg@LStrClr\��>gTObject.Free�
Ąg@HandleAnyException�`p�g@DoneExcept�`p�gGetMemg@GetMem��+�fByte��fCardinalI��KgAssignedcdSysInitcdClassesf
TComponent�AffTNotifyEvent��fTListv	r�g.TComponentf��gTComponent.DefineProperties�a0�gTComponent.Loaded�a0�gTComponent.Notification�a0�gTComponent.ReadState�a0�gTComponent.SetName�a0�gTComponent.UpdateRegistry�a0�gTComponent.ValidateRename�a0�gTComponent.WriteState�a0�gTComponent.QueryInterface�a0�gTComponent.BeforeDestruction�a0�gTComponent.SafeCallException�a0�gTPersistent.AssignTo�!FqgTPersistent.Assign�!FqgTComponent.Create�a0�f.35�@�XgcsDesigningM���gTComponent.Destroy�a0�g	csLoadingA���g.TListY�O�g	TList.Add�)�Eg	TList.Get�)�EgRegisterComponentsw�}cdSysUtilsf	Exception���!g
.Exception�ΪsgStrAllocK�%gStrPas$��g
StrDisposeo})�gException.Create��gStrMoveGc�cdWinTypescdMessagesfTMessage�=5cdWinProcsfTHandleI��KfDWORDI��KfLOBYTE��fLOWORDN��gHiByte�
�!���gHiWord���C��cdMMSystemfHMIDIIN	�f�fVERSIONI��KgmidiInGetNumDevs���gMAXERRORLENGTH���1gmidiInGetErrorTextpOafTMidiInCaps��gmidiInGetDevCaps�J��gMMSYSERR_NOERROR�}�1gmidiInPrepareHeader,��fTMidiHdr欌�gmidiInUnprepareHeader,��gmidiInAddBuffer,��g
midiInOpen� [gCALLBACK_FUNCTION/r�gmidiInReset��TgmidiInClose��TgmidiInStart��Tg
midiInStop��TgMIM_DATAv��1cdMididefsfPMidiCtlInfo��*fTMidiCtlInfo)��cdMiditypefTMyMidiEventUif
TMyMidiHdr��=�g.TMyMidiHdrv�gTMyMidiHdr.Create��RWg
.TMyMidiEvent8��cdMidiconsgMIDI_BEGINSYSEX���1gMIM_OVERFLOW-��1cdCircbuffPCircularBuffer�i�GgGlobalSharedLockedFreeJgCircbufAlloc��s�gGlobalSharedLockedAlloc��M�gCircbufFree�A\UfTMidiBufferItemo�BgCircbufReadEvent���gCircbufRemoveEvent�ncdDelphmcbgmidiHandlerR�;ceGraphicsceControlsceFormsgAllocateHWnd�o/�gDeallocateHWnd�B�jceDialogsc5MidiIn�_���c5Systemc5SysInitTc5ClassesVc5SysUtils�c5WinTypes�c5Messages�c5WinProcs�c5MMSystem�c5MidiDefs�c5MidiType�c5MidiCons�c5Circbuf�c5Delphmcbc%misOpen����<%	misClosed����<%misCreating����<%
misDestroying����<*MidiInputState�{_�A<&.EMidiInputError��F�?>*EMidiInputError��r��@&.TMidiInput��1�HB*
TMidiInput��]��D7.3FF5Graphics
c5Controlsc5Formsc5Dialogs!c(TMidiInput.Create��}ՎHD!SelfD!.J!AOwnerc��D(TMidiInput.Destroy��}Վ�1HD!SelfD!.Jc��D(TMidiInput.MidiInErrorString��}Վ��D!SelfD!WError#Result 	errorDescf
�c��D(TMidiInput.SetSysexBufferSize��}Վ��HD!SelfD!
BufferSizec��D(TMidiInput.SetSysexBufferCount��}Վ��HD!SelfD!BufferCountc��D(TMidiInput.SetSysexOnly��}Վ�HD!SelfD!
bSysexOnlyc��D(TMidiInput.SetDeviceID��}Վ1�HD!SelfD!DeviceID 
MidiInCapsf,�c��D(TMidiInput.SetProductName��}Վ�HD!SelfD!NewProductNamef� 
MidiInCapsf,� testDeviceIDf� testProductNamef�c��D(TMidiInput.Prepareheaders��}Վq�HD!SelfD ctr 	MyMidiHdr6c�D(TMidiInput.UnprepareHeaders��}Վ
�HD!SelfD ctrc�!D(TMidiInput.AddBuffers��}Վ��HD!SelfD ctrf�c�-D(TMidiInput.Open��}Վ��HD!SelffD� hMemf �c�9D(TMidiInput.GetMidiEvent��}Վ	�4D!SelfD Result4 thisItemf:�c�ED(TMidiInput.GetEventCount��}Վ"�D!SelfD Resultc�UD(TMidiInput.Close��}ՎQ�HD!SelfDc�aD(TMidiInput.Start��}Վ�HD!SelfDc�iD(TMidiInput.Stop��}Վ�HD!SelfDc�qD(TMidiInput.MidiInput��}Վ��HD!SelfD"Messagec�yD(Register��`p�XHc(Finalization��`p�\!�Hc�(MidiIn�!Hc��CQm]<�G@�FPuq�cGDeF�}y�&,Handle `��D,	FDeviceIDh��D,FMIDIHandle(p��D,FState<x��D,FError|��D,
FSysexOnly��D,FDriverVersion*��D,FProductName!��D,FMID1��D,FPID9��D,	FCapacityA��D,PBuffer8Q��D,FNumdevsa��D,FOnMIDIInput���D,FOnOverflow���D,FSysexBufferSize���D,FSysexBufferCount���D,MidiHdrs���D,PCtlInfo0���D.Prepareheaders����D.UnprepareHeaders�!���D.
AddBuffers�-���D.SetDeviceID�����D.SetProductName�����D.
GetEventCount�U���D.SetSysexBufferSize�����D.SetSysexBufferCount�����D.SetSysexOnly�����D.MidiInErrorString����D/Create���D0Destroy���1�D1
MIDIHandle(�����	D1
DriverVersion*�����
D1MID�����D1PID�����D1Numdevs�����D1MessageCount��U��D.Open�9��!D.Close�a��%D.Start�i��)D.Stop�q��-D.GetMidiEvent�E��1D.	MidiInput�y��5D1ProductName
�����9D1DeviceID
����=D1Capacity
����AD1Error

����ED1SysexBufferSize
����8�ID1SysexBufferCount
��� �MD1	SysexOnly
����QD1OnMidiInput
�����UD1
OnOverflow
�����YDcDF�����@AJ�l�>MidiInputStatemisOpen	misClosedmisCreating
misDestroyingMidiInLLEMidiInputErrorEMidiInputErrorLMidiInL|�|H
TMidiInput
TMidiInputLMidiIn	H���ProductName4��DeviceIDP�P��Capacity>���Errorp��'SysexBufferSizer��SysexBufferCount@��	SysexOnly`�`���	OnMidiInputh�h���

OnOverflowSV��t�����ڋ�3ҋ���F<�F@�f�FX3��Ftf�~Xv	3ҋ��f�FPf�Fpf�Fr�FuVh��F0�F<�Ƅ�t�d�����^[�SV��ڋ��~8t���3��F8�Fx��t	�Ћ��F0��Ӏ�������~���^[�U��QSV�ً�3��E�3�Uhtd�0d� ����E�h��E�P��P���u�ӋE����ú��3�ZYYd�h{�}�t�E������^[Y]�����&Specified error number is out of range�x<u�,�����f�Pp�����/Change to SysexBufferSize while device was open�x<u�,�����f�Pr�����0Change to SysexBuffercount while device was open�P@�Hx��t�Q�U����SVW3ɉM̉MЋ��3�Uh�d�0d� �{<u���������;�w�8�����jf�s4j,�E�P��P���f�{>f��t �MЋ׋���Mв����U̍E���U̍CH��E؉CD�E�f�CL�E�f�CN3�ZYYd�h��E̺�����_^[��]�����(Change to DeviceID while device was open����Invalid device IDU����SVW3ɉM��MĉM��U��؋E��3�UhGd�0d� �{<u�`�������C�����Of��rpGf�E�j,�E�P�E�P���f�s>f��t �Mċ֋���MIJ����U��E���E��U��u
�CH�U���	f�E�f��u��CH�U��t0h��u�h��E����M�������U����3�ZYYd�hN�E����E�������_^[��]�����+Change to ProductName while device was open����MIDI Input Device ���� not installed U����SVW3҉U���3�Uh�d�0d� f�{r��f�{p���{8t~����Ct�Crf��vff�E��Kp������F�pj@�FP�C8P���f�{>f��t �M��׋���M������֋Ct�f�M�u�3�ZYYd�h��E������_^[YY]�U����SVW3҉U���3�Uh�d�0d� �Ct��tz�@Hf��rc@f�E�3�j@�֋Ct��@P�C8P���f�{>f��t �M��׋���M������֋Ct��Ff�M�u��Ct�3��Ct3�ZYYd�h��E������_^[YY]�U����SVW3҉U���3�Uh�d�0d� �Ct��tf�x~`�xOf��rVGf�E�j@�U��Ct��@P�C8P���f�s>f��t �M��֋���M�����f�E�f��u�3�ZYYd�h��E������_^[YY]�U����SVW3҉U�E�3�UhSd�0d� 3�Uhd�2d�"�E��xTu�E��@P��U��BT�E��xxu�U�f���؋E��Xx�E���U��RT�E��@x�P�U��R0�P�U��R@�Ph�E��@xPh�E��@4P�E���8P��؋E�f�X>f��t!�M�ӋE���M������E���E���E��@<3�ZYYd��<��E��@T��t
��E�3҉PT�E��@x��t�Ћ��E�3҉Px�3�ZYYd�hZ�E������_^[��]�U����SVW3҉U���3�Uh2d�0d� �{<���U�CT�����������E�F�}�u*�E��F�E����F�E����F3��Ff�F��F��F�F�E��@f�F�E��x��t����F�E��H��F�j@�E�P�C8P���f�{>f��uj@�E�P�C8P�f�C>�{>f��t �M��׋���M�����CT��3�3�ZYYd�h9�E��������_^[��]Àx<u�@T�@�3��U��jjSV��3�Uh�d�0d� �{<���C<�C8P���f�s>f��t �M��֋���M���������C8P���f�s>f��t �M��֋���M�����3��C8�CT��t
�3��CT3�ZYYd�h��E�������^[YY]�U��jSV��3�Uhgd�0d� �{<u4�C8P���f�s>f��t �M��֋���M�����3�ZYYd�hn�E������^[Y]�U��jSV��3�Uhgd�0d� �{<u4�C8P���f�s>f��t �M��֋���M�����3�ZYYd�hn�E������^[Y]�S�؋-�t��=t%�8f�{bt1�{<u+���f��v�ӋCd�S`[�f�{jt�{<u�ӋCl�Sh[�Q��$��3ɸ$�Z�����SynthU��3�Uh%d�0d� �3�ZYYd�h,����]Ã-�mYmm:mnqq@q�
(uu*q�yyy} y^tr�v`xbdfhjlnp�&}} yX�<�6F@�D�F�8ZLZJ� z�2�<y
$"&�$"a*��&�&� �*���
*��,v��q
�
.���q
�
.���2�"�q
�
.��q
�
.*�.�q
�
.�*F�4,��:8�"�q
�
.(�>�.�q
�
.�:*,:��<q
�
.��44,�(R�
@6�
�.�.�q
�
.�&B,!(!V��.�q
�
.�
DD$!B,-(-d��.�q
�
.,-B,9*996�6��	(�6�q
�
.-,F�6�H9B,E(E6��
@�L&��4�2�q
�
."EB,U"aa:�.�q
�
.!�.�q
�
."�$a4,ii*�.�q
�
.iB,qq*�.�q
�
.qB,yFUT�y�
�2����,�
�%��$
4

,2,j.v.~F60*
@,�^6(,
@�
`�<8$*
@�,H<"@
@ �
H<"B
@�
H>$(

\
B,

H<:

 *
&@L
2
@
@



P.
@
D.
@D 2
,���@�D�:Q�F��m�]�a�e�i�u�}�}�}�}�}�}
�}�}�}�}�}�}	}
}}}!} 1}"5}$9}&AQM�}(M!UQ-}*Q-YU�},U�]Yi}.Y��a]�}0]�Uea�	}2a��ie�}4e�mi	}6i�qm9}8m%�yq�}:qXn�����}�}<}Xp��i���9}>�}@�}B�}D�}F�}H�}J�9���}L�a���	}N�i��E
}P�q��u
}R�E���}T�y���
}V�}X�}Z�}\�}^�}`�}b
}d}f5}h9�I�����G^!'�������
 �����}��Im�]���	���9��0�i�q��#'��	
��''��>����
��\�	%��$')5>�ai1��$'5����E]	�	
]
�
=A�I���M�Q�Y]�	em�	u}�C���
����`0�$�$�$�6��@0���p0B�������������������:�:�B��B����������:�:�B��B��`��������hp�F�F�R��R������������������I����p2�^�j�������Q�}��p<�!������!�p%<)l)��)�)I�%}�-@p1<1-�9 pRE� pI<M�M��MAIi�Mi�MqUPYY�] a@0e2e��i@0m.m��q@0u.u��y`}��&�}��� �  a