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



































































































                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              
#R-k�%7�^�MidiOut�<plib\midi\midiout.pas��>&dSystemgTObject.SafeCallException�
ĄgTObject.AfterConstruction�
ĄgTObject.BeforeDestruction�
ĄgTObject.Dispatch�
ĄgTObject.DefaultHandler�
ĄgTObject.NewInstance�
ĄgTObject.FreeInstance�
ĄgTObject.Destroy�
Ąfstring�+{�f
AnsiString�+{�fInteger	�f�fWordN��fBoolean��efByte��fPointer���g@ClassCreate�V�g@AfterConstruction��Kg@BeforeDestruction�S�g
@ClassDestroy����fPChar�u�Rg@LStrAsg�Ԝg@HandleFinally�`p�gSizeOff	PAnsiChar�u�Rg@RaiseExcept�`p�g
@LStrArrayClr���gBreakg@LStrAddRef�`Eg@LStrCmp�`p�g	@LStrCatN�`p�g@PStrCpy���g	@PStrNCat�`p�g@LStrFromStringRL�gFalsesɚ�gTruevɚ�g@HandleAnyException�`p�g@DoneExcept�`p�g@LStrClr\��>fTObject|��gTObject.Free�
ĄgAssignedcdSysInitcdSysUtilsf	Exception���!g
.Exception�ΪsgStrAllocK�%gStrPas$��g
StrDisposeo})�gException.Create��gStrMoveGc�cdWinTypescdWinProcsfTHandleI��KfDWORDI��KcdMessagesfTMessage�=5cdClassesf
TComponent�AffTNotifyEvent��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���gRegisterComponentsw�}cdControlscdFormsgAllocateHWnd�o/�gDeallocateHWnd�B�jcdMMSystemfHMIDIOUT	�f�fVERSIONI��KgmidiOutGetNumDevs���gMAXERRORLENGTH���1gmidiOutGetErrorTextpOafTMidiOutCaps���gMIDI_MAPPER�y��gmidiOutGetDevCapsTdK"ftagMIDIOUTCAPSA���gmidiOutOpenHY��gCALLBACK_FUNCTION/r�gmidiOutShortMsgN]%4gmidiOutPrepareHeader,��fTMidiHdr欌�gmidiOutLongMsg,��gmidiOutClose��TgmidiOutSetVolumeN]%4fPMidiHdr�@��gMOM_DONE���1gmidiOutUnprepareHeader,��cdCircbuffPCircularBuffer�i�GgGlobalSharedLockedFreeJgGlobalSharedLockedAlloc��M�cdMiditypefTMyMidiEventUif
TMyMidiHdr��=�g.TMyMidiHdrv�gTMyMidiHdr.Create��RWcdMididefsfPMidiCtlInfo��*fTMidiCtlInfo)��cdDelphmcbgmidiHandlerR�;c5MidiOut�_���c5Systemc5SysInitXc5SysUtilsZc5WinTypesjc5WinProcslc5Messagesrc5Classesvc5Controls�c5Forms�c5MMSystem�c5Circbuf�c5MidiType�c5MidiDefs�c5Delphmcb�c%mosOpen�פ��:%	mosClosed�ڤ��:*midioutputState�^��F:&.EmidioutputError��]�<*EmidioutputError��H=>%opt_None�/�@%opt_MidiPort�2�@%	opt_Synth�5�@%opt_SQSynth�8�@%opt_FMSynth�;�@%
opt_Mapper�>�@
*OutPortTech��F��@*TechNameMap�԰��B'TechName��s��B�&.TMidiOutput���~D*TMidiOutput��C�,F7.3FH(TMidiOutput.Create��c��JF!SelfF!.L!AOwnerc�eF(TMidiOutput.Destroy��c��1JF!SelfF!.Lc�uF(TMidiOutput.midioutErrorString��c���F!SelfF!WError#Result 	errorDescf�c��F(TMidiOutput.SetDeviceID��c���JF!SelfF!DeviceID midioutCapsf(�c��F(TMidiOutput.SetProductName��c���JF!SelfF!NewProductNamef� midioutCapsf(� testDeviceIDf� testProductNamef�c��F(TMidiOutput.SetTechnology��c���JF!SelfF!
NewTechnologyf@� midiOutCapsf(� testDeviceIDf� testTechnology@c��F(TMidiOutput.Open��c�e�
F!SelffF� Resultf
� hMemf�c��F(TMidiOutput.PutShort��c��JF!SelfF!MidiMessage!Data1!Data2& thisMsg
c��F(TMidiOutput.PutLong��c���JF!SelfF!TheSysexf�!	msgLength
 	MyMidiHdr4c��F(TMidiOutput.PutMidiEvent��c�؈JF!SelfF!theEvent2c�F(TMidiOutput.Close��c��
F!SelfF
 Result
c�F(TMidiOutput.SetVolume��c���JF!SelfF!Left!Right dwVolume
c�)F(TMidiOutput.MidiOutput��c�j�JF!SelfF"Message 	MyMidiHdr4 thisHdr.c�=F(Register��`p�XJc(Finalization��`p�\!�Jc�(MidiOut�!Jc��Cx)!:�G>�FT1-�cC�M5@
�L�Q@NGF�FU]�Y"�
&,Handle`�YF,	FDeviceIDh�]F,FMIDIHandle$p�aF,FState:x�eF,PCtlInfo6�iF,PBuffer0�mF,FError!�qF,FDriverVersion&1�uF,FProductNameA�yF,FTechnology@Q�}F,FVoicesY��F,FNotesa��F,FChannelMaski��F,FSupportq��F,FNumdevs���F,
FOnMIDIOutput ���F.
MidiOutput�=���F.SetDeviceID����F.SetProductName����F.
SetTechnology����F.midioutErrorString����F1
MIDIHandle$��a���F1
DriverVersion&��u���F1
Technology@��}���F1Voices������F1Notes������F1ChannelMask������F1Support������F1Error��q���F1Numdevs������F.Open�����F.Close����F.PutMidiEvent����F.PutShort�����F.PutLong� ����F.	SetVolume�)���F/Create�e��F0Destroy��u1��F1ProductName
�y����F1DeviceID
�]���F1Onmidioutput
 ������FcDH�����@AL�K&PRDT$�BR��DH��l�6midioutputStatemosOpen	mosClosedMidiOutLLEmidioutputErrorEmidioutputErrorLMidiOutOutPortTechopt_Noneopt_MidiPort	opt_Synthopt_SQSynthopt_FMSynth
opt_MapperMidiOutNone	MIDI Port
Generic SynthSquare Wave SynthFM SynthMIDI MapperL��pPTMidiOutputTMidiOutputLMidiOutP���ProductName4��DeviceIDh�h���OnmidioutputSV��t�����ڋ�3ҋ���F<�f�F`�FuVh��F0�Ƅ�t�d�����^[�SV��ڋ��~<u�Ƌ�R4�F@��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 rangeU����SVW3ɉMĉMȋ��3�Uhd�0d� �{<u�4������3�RP�ƙ;T$u	;$ZXr+�ZX|%�ƙ��u���t�h�����{�s4j4�E�PV���f�{Hf��v �Mȋ׋���MȲ����UčE���UčCP��EЉCL�E�CT�E�f�CV�E�f�CX�E�f�CZ�E��C\3�ZYYd�h%�Eĺ�����_^[��]�����(Change to DeviceID while device was open����Invalid device IDU��ĸSVW3ɉM��M��M��U��؋E��3�UhCd�0d� �{<u�\�������C�����O���|mG�E�����j4�E�P�E�P���f�sHf��v �M��֋���M������U��E���E��U��u
�CP�U����E�Ou��CP�U��t0h��u�h��E����M������
�U���3�ZYYd�hJ�E����E�������_^[��]�����+Change to ProductName while device was open����MIDI output Device ���� not installedU���X���SVW3ɉM��M��U���3�UhEd�0d� �{<u�\���������O���|ZG�E�����j4�E�P�E�P���f�sHf��v �M��֋���M������E�:E�u	�E��CT��E�Ou��CT:E�th���E���E�k����E��)��U���X��������X����7���X����E���M������
�U����3�ZYYd�hL�E�������_^[��]�����2Change to Product Technology while device was openMIDI output technology  not installedU����SVW3҉U��E�3�Uhd�0d� �E�3�Uh�d�2d�"�E��x@u�U�f���؋E��X@�E��E��@0�U��R@�Bh�E��@@Ph�E��@4P�E���8P��؋E�f�XHf��t#�M��ӋE���M������E��E��@<3�ZYYd��%��E��@@��t�Ћ��E�3҉P@�3�ZYYd�h�E�������E�_^[��]�U��jSVW��3�Uhwd�0d� ��������E���W�C8P���f�sHf��v �M��֋���M�����3�ZYYd�h~�E������_^[Y]�U��jjjSVW���U���3�Uh�d�0d� �ϲ�����ϋU��F��F�pj@�FP�C8P���f�{Hf��v �M��׋���M�����j@�FP�C8P���f�{Hf��v �M�׋���M�����3�ZYYd�h��E�������_^[��]�SV�x<t�P�����r��u�JQ�J�R��S<^[��J�֋�S@^[�����MIDI Output device not openU��jSVW��3�Uhwd�0d� 3ۀ<u8�G8P���f�wHf��t"�M��֋���M�������3��G8�G<3�ZYYd�h~�E��������_^[Y]�U��jSVW��3�Uhnd�0d� �������W�C4P���f�sHf��t �M��֋���M�����3�ZYYd�hu�E������_^[Y]�SV�؁:�u&�rj@V�C8P��F�f�{jt�ӋCl�Sh^[�Q��$��3ɸ$�Z�����SynthU��3�Uh%d�0d� �3�ZYYd�h,����]Ã-�m�))<)<--@-^
*11,-\ MM4M�U�YYY] Y|��u�~���������e���(]]"Yx �<�6zNe$�� =
�&&u(B���*�&� `*�b�
.�d0v�2�"�-
f
6�X�-
f
6"�.�-
f
6b.p�80��:<�"�-
f
6(�>�.�-
f
6b>.&>��@-
f
6��880��:�"�-
f
6�>�.�-
f
6L�BUDB
�DF-
f
6��80��*�$�6�Z�&�6�-
f
68L&�N�P0"��H�.�-
f
6�P0�.��
� h*�.�-
f
6�.�-
f
6�80-
f
6�.�.�-
f
64P0))6�.�-
f
6)P0=.�T,QYQ
�2UUaU0a
�E��$
4
,2,jF6X0$
@, �^6**
@�`�N
6**
@
��9>(
Z
F,P0( 
@JB
 *
@*
@
R,*
N0
D
J0 
@F

,��e	�>�F��*��2��)�!�%�1�M�5�9�=�A�E�I�Q�U�]�]]]	]
]
]]!]-]1]5]9]=]A]I]Q] ]=ie�]"e�mi�]$i
�qm-]&m�uq�](q��}u9]*u],�].�]0�]2�]4�]6�]8�]:�]<����i]>���9]@����]B����]D����U]F�)���]H�xn���e���]J�xp��u���]L�]N]P
]R%Q9I	iG�!'q�y3(�f�9�=�A��:}����\����I���!E���-�5�9�=��� '���������2�m�q�Sing����!\�A���q�i�lU	U
y�
��X��!%=-1�5�9�Av�E�I�M�R�	U]	��e`0i$q$m$q6�u@0y}�p0B������������xp�F�F�R��R������������!�!�u��
����p2�^�j�������E�m����p�N�Z����m������������  pR��p�0�0�0�X
�X��X��x������pB	B

b	~�
��
�
Q����0��<<����pp!0
%4%@�%�!��)�p-010509F
1F�5F�9f�-��=�0AEME�M<�I<IF�Ad�Q U  a