From e2fea8646f72081d75fbad367be6ced68c82fb4c Mon Sep 17 00:00:00 2001 From: tobigun Date: Wed, 20 Feb 2008 17:46:34 +0000 Subject: Made the midi-stuff FPC (for windows) compatible. Now (in windows) FPC contains all functionalities of the delphi build. git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@872 b956fd51-792f-4845-bead-9b4dfca2ff2c --- Game/Code/lib/midi/CIRCBUF.PAS | 20 +++----------------- Game/Code/lib/midi/DELPHMCB.PAS | 27 ++++++++++----------------- Game/Code/lib/midi/MIDIDEFS.PAS | 5 ++++- Game/Code/lib/midi/MIDITYPE.PAS | 8 +++++++- Game/Code/lib/midi/MidiFile.pas | 32 ++++++++++++++++++++------------ Game/Code/lib/midi/Midiin.pas | 24 +++++++++++++++++++----- Game/Code/lib/midi/Midiout.pas | 27 +++++++++++++++++++++++---- 7 files changed, 86 insertions(+), 57 deletions(-) (limited to 'Game/Code/lib') diff --git a/Game/Code/lib/midi/CIRCBUF.PAS b/Game/Code/lib/midi/CIRCBUF.PAS index e84fc2c4..9f1f8390 100644 --- a/Game/Code/lib/midi/CIRCBUF.PAS +++ b/Game/Code/lib/midi/CIRCBUF.PAS @@ -21,17 +21,11 @@ Unit Circbuf; interface -Uses Wintypes, WinProcs, MMSystem; +Uses + Windows, + MMSystem; type - {$IFNDEF WIN32} - { API types not defined in Delphi 1 } - DWORD = Longint; - HGLOBAL = THandle; - UINT = Word; - TFNTimeCallBack = procedure(uTimerID, uMessage: UINT; dwUser, dw1, dw2: DWORD); - {$ENDIF} - { MIDI input event } TMidiBufferItem = record timestamp: DWORD; { Timestamp in milliseconds after midiInStart } @@ -83,19 +77,11 @@ begin GlobalFree(hMem); end; -{$IFNDEF WIN32} - if (ptr <> Nil) then - GlobalPageLock(HIWORD(DWORD(ptr))); -{$ENDIF} GlobalSharedLockedAlloc := Ptr; end; procedure GlobalSharedLockedFree( hMem: HGLOBAL; ptr: Pointer ); begin -{$IFNDEF WIN32} - if (ptr <> Nil) then - GlobalPageUnlock(HIWORD(DWORD(ptr))); -{$ENDIF} if (hMem <> 0) then begin GlobalUnlock(hMem); diff --git a/Game/Code/lib/midi/DELPHMCB.PAS b/Game/Code/lib/midi/DELPHMCB.PAS index 23ce0e1a..e8b732fa 100644 --- a/Game/Code/lib/midi/DELPHMCB.PAS +++ b/Game/Code/lib/midi/DELPHMCB.PAS @@ -9,30 +9,25 @@ unit Delphmcb; interface -uses WinProcs, WinTypes, MMsystem, Circbuf, MidiDefs, MidiCons; +uses + Windows, + MMsystem, + Circbuf, + MidiDefs, + MidiCons; -{$IFDEF WIN32} procedure midiHandler( hMidiIn: HMidiIn; wMsg: UINT; dwInstance: DWORD; dwParam1: DWORD; - dwParam2: DWORD); stdcall export; -function CircbufPutEvent(PBuffer: PCircularBuffer; PTheEvent: PMidiBufferItem): Boolean; stdcall; export; -{$ELSE} -procedure midiHandler( - hMidiIn: HMidiIn; - wMsg: Word; - dwInstance: DWORD; - dwParam1: DWORD; - dwParam2: DWORD); export; -function CircbufPutEvent(PBuffer: PCircularBuffer; PTheEvent: PMidiBufferItem): Boolean; export; -{$ENDIF} + dwParam2: DWORD); stdcall; export; +function CircbufPutEvent(PBuffer: PCircularBuffer; PTheEvent: PMidiBufferItem): Boolean; stdcall; export; implementation { Add an event to the circular input buffer. } -function CircbufPutEvent(PBuffer: PCircularBuffer; PTheEvent: PMidiBufferItem): Boolean; +function CircbufPutEvent(PBuffer: PCircularBuffer; PTheEvent: PMidiBufferItem): Boolean; stdcall; begin If (PBuffer^.EventCount < PBuffer^.Capacity) Then begin @@ -66,13 +61,11 @@ procedure midiHandler( wMsg: UINT; dwInstance: DWORD; dwParam1: DWORD; - dwParam2: DWORD); - + dwParam2: DWORD); stdcall; var thisEvent: TMidiBufferItem; thisCtlInfo: PMidiCtlInfo; thisBuffer: PCircularBuffer; - Begin case wMsg of diff --git a/Game/Code/lib/midi/MIDIDEFS.PAS b/Game/Code/lib/midi/MIDIDEFS.PAS index 4024c547..8e351a07 100644 --- a/Game/Code/lib/midi/MIDIDEFS.PAS +++ b/Game/Code/lib/midi/MIDIDEFS.PAS @@ -11,7 +11,10 @@ unit Mididefs; interface -uses WinProcs, WinTypes, MMsystem, Circbuf; +uses + Windows, + MMsystem, + Circbuf; type diff --git a/Game/Code/lib/midi/MIDITYPE.PAS b/Game/Code/lib/midi/MIDITYPE.PAS index 0aa9cec3..18d05ec4 100644 --- a/Game/Code/lib/midi/MIDITYPE.PAS +++ b/Game/Code/lib/midi/MIDITYPE.PAS @@ -8,7 +8,13 @@ unit Miditype; interface -uses Classes, Wintypes, Messages, MMSystem, MidiDefs, Circbuf; +uses + Classes, + Windows, + Messages, + MMSystem, + MidiDefs, + Circbuf; type {-------------------------------------------------------------------} diff --git a/Game/Code/lib/midi/MidiFile.pas b/Game/Code/lib/midi/MidiFile.pas index 10b64a80..e6306bec 100644 --- a/Game/Code/lib/midi/MidiFile.pas +++ b/Game/Code/lib/midi/MidiFile.pas @@ -90,17 +90,19 @@ unit MidiFile; interface +{$IFDEF FPC} + {$MODE Delphi} +{$ENDIF} + uses Windows, + Forms, Messages, SysUtils, - Classes, - Graphics, - Controls, - Forms, - stdctrls, - ExtCtrls, - WinProcs; + {$IFDEF LCL} + LCLIntf, // used for AllocateHWnd + {$ENDIF} + Classes; type TChunkType = (illegal, header, track); @@ -235,7 +237,13 @@ implementation uses mmsystem; -type TTimerProc=procedure(uTimerID,uMsg: Integer; dwUser,dwParam1,dwParam2:DWORD);stdcall; +type +{$IFDEF FPC} + TTimerProc = TTIMECALLBACK; + TTimeCaps = TIMECAPS; +{$ELSE} + TTimerProc = TFNTimeCallBack; +{$ENDIF} const TIMER_RESOLUTION=10; const WM_MULTIMEDIA_TIMER=WM_USER+127; @@ -245,13 +253,13 @@ var MIDIFileHandle : HWND; MIDITimerID : Integer; TimerPeriod : Integer; -procedure TimerCallBackProc(uTimerID,uMsg: Integer; dwUser,dwParam1,dwParam2:DWORD);stdcall; +procedure TimerCallBackProc(uTimerID,uMsg: Cardinal; dwUser,dwParam1,dwParam2:DWORD);stdcall; begin PostMessage(HWND(dwUser),WM_MULTIMEDIA_TIMER,0,0); end; procedure SetMIDITimer; - var TimeCaps : TTimeCaps ; + var TimeCaps : TTimeCaps; begin timeGetDevCaps(@TimeCaps,SizeOf(TimeCaps)); if TIMER_RESOLUTION < TimeCaps.wPeriodMin then @@ -262,7 +270,7 @@ begin TimerPeriod:=TIMER_RESOLUTION; timeBeginPeriod(TimerPeriod); - MIDITimerID:=timeSetEvent(TimerPeriod,TimerPeriod,@TimerProc, + MIDITimerID:=timeSetEvent(TimerPeriod,TimerPeriod,TimerProc, DWORD(MIDIFileHandle),TIME_PERIODIC); if MIDITimerID=0 then timeEndPeriod(TimerPeriod); @@ -428,7 +436,7 @@ begin chunkData := nil; chunkType := illegal; Tracks := TList.Create; - TimerProc:=TimerCallBackProc; + TimerProc:=@TimerCallBackProc; FPriority:=GetPriorityClass(MIDIFileHandle); end; diff --git a/Game/Code/lib/midi/Midiin.pas b/Game/Code/lib/midi/Midiin.pas index 32a17c51..6820a740 100644 --- a/Game/Code/lib/midi/Midiin.pas +++ b/Game/Code/lib/midi/Midiin.pas @@ -101,9 +101,24 @@ unit MidiIn; interface +{$IFDEF FPC} + {$MODE Delphi} +{$ENDIF} + uses - Classes, SysUtils, WinTypes, Messages, WinProcs, MMSystem, MidiDefs, MidiType, - MidiCons, Circbuf, Delphmcb; + Classes, + SysUtils, + Messages, + Windows, + MMSystem, + {$IFDEF LCL} + LCLIntf, // used for AllocateHWnd + {$ENDIF} + MidiDefs, + MidiType, + MidiCons, + Circbuf, + Delphmcb; type MidiInputState = (misOpen, misClosed, misCreating, misDestroying); @@ -121,7 +136,7 @@ type FSysexOnly: Boolean; { Stuff from MIDIINCAPS } - FDriverVersion: Version; + FDriverVersion: MMVERSION; FProductName: string; FMID: Word; { Manufacturer ID } FPID: Word; { Product ID } @@ -161,7 +176,7 @@ type property MIDIHandle: HMIDIIn read FMIDIHandle; - property DriverVersion: Version read FDriverVersion; + property DriverVersion: MMVERSION read FDriverVersion; property MID: Word read FMID; { Manufacturer ID } property PID: Word read FPID; { Product ID } @@ -213,7 +228,6 @@ procedure Register; implementation uses Controls, - Forms, Graphics; (* Not used in Delphi 3 diff --git a/Game/Code/lib/midi/Midiout.pas b/Game/Code/lib/midi/Midiout.pas index 91b75073..7cab5c09 100644 --- a/Game/Code/lib/midi/Midiout.pas +++ b/Game/Code/lib/midi/Midiout.pas @@ -96,9 +96,28 @@ unit MidiOut; interface +{$IFDEF FPC} + {$MODE Delphi} +{$ENDIF} + uses - SysUtils, WinTypes, WinProcs, Messages, Classes, Controls, Forms, - MMSystem, Circbuf, MidiType, MidiDefs, Delphmcb; + SysUtils, + Windows, + Messages, + Classes, + //Controls, + MMSystem, + {$IFDEF LCL} + LCLIntf, // used for AllocateHWnd + {$ENDIF} + Circbuf, + MidiType, + MidiDefs, + Delphmcb; + +{$IFDEF FPC} +type TmidioutCaps = MIDIOUTCAPS; +{$ENDIF} type midioutputState = (mosOpen, mosClosed); @@ -136,7 +155,7 @@ type FError: Word; { Last MMSYSTEM error } { Stuff from midioutCAPS } - FDriverVersion: Version; { Driver version from midioutGetDevCaps } + FDriverVersion: MMVERSION; { Driver version from midioutGetDevCaps } FProductName: string; { product name } FTechnology: OutPortTech; { Type of MIDI output device } FVoices: Word; { Number of voices (internal synth) } @@ -159,7 +178,7 @@ type public { Properties } property MIDIHandle: Hmidiout read FMIDIHandle; - property DriverVersion: Version { Driver version from midioutGetDevCaps } + property DriverVersion: MMVERSION { Driver version from midioutGetDevCaps } read FDriverVersion; property Technology: OutPortTech { Type of MIDI output device } read FTechnology -- cgit v1.2.3