From 8782261d8fa6d2456d85b245b7d01824414b8d51 Mon Sep 17 00:00:00 2001
From: brunzelchen <brunzelchen@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Thu, 14 Oct 2010 18:02:35 +0000
Subject: new medley branch, based on the actual (1.1) trunk. the old one will
 be deleted soon

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/experimental@2666 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 medley_new/src/lib/midi/MIDITYPE.PAS | 90 ++++++++++++++++++++++++++++++++++++
 1 file changed, 90 insertions(+)
 create mode 100644 medley_new/src/lib/midi/MIDITYPE.PAS

(limited to 'medley_new/src/lib/midi/MIDITYPE.PAS')

diff --git a/medley_new/src/lib/midi/MIDITYPE.PAS b/medley_new/src/lib/midi/MIDITYPE.PAS
new file mode 100644
index 00000000..45b50820
--- /dev/null
+++ b/medley_new/src/lib/midi/MIDITYPE.PAS
@@ -0,0 +1,90 @@
+{ $Header: /MidiComp/MIDITYPE.PAS 2     10/06/97 7:33 Davec $ }
+
+{ Written by David Churcher <dchurcher@cix.compulink.co.uk>,
+  released to the public domain. }
+
+
+unit Miditype;
+
+interface
+
+{$IFDEF FPC}
+  {$MODE Delphi}
+  {$H+} // use long strings
+{$ENDIF}
+
+uses
+  Classes,
+  Windows,
+  Messages,
+  MMSystem,
+  MidiDefs,
+  Circbuf;
+
+type
+	{-------------------------------------------------------------------}
+	{ A MIDI input/output event }
+	TMyMidiEvent = class(TPersistent)
+	public
+		MidiMessage: Byte;          { MIDI message status byte }
+		Data1: Byte;            { MIDI message data 1 byte }
+		Data2: Byte;            { MIDI message data 2 byte }
+		Time: DWORD;          { Time in ms since midiInOpen }
+		SysexLength: Word;  { Length of sysex data (0 if none) }
+		Sysex: PChar;           { Pointer to sysex data buffer }
+		destructor Destroy; override;   { Frees sysex data buffer if nec. }
+	end;
+	PMyMidiEvent = ^TMyMidiEvent;
+
+	{-------------------------------------------------------------------}
+	{ Encapsulates the MIDIHDR with its memory handle and sysex buffer }
+	PMyMidiHdr = ^TMyMidiHdr;
+	TMyMidiHdr = class(TObject)
+	public
+		hdrHandle: THandle;
+		hdrPointer: PMIDIHDR;
+		sysexHandle: THandle;
+		sysexPointer: Pointer;
+		constructor Create(BufferSize: Word);
+		destructor Destroy; override;
+	end;
+
+implementation
+
+{-------------------------------------------------------------------}
+{ Free any sysex buffer associated with the event }
+destructor TMyMidiEvent.Destroy;
+begin
+	if (Sysex <> Nil) then
+		Freemem(Sysex, SysexLength);
+
+	inherited Destroy;
+end;
+
+{-------------------------------------------------------------------}
+{ Allocate memory for the sysex header and buffer }
+constructor TMyMidiHdr.Create(BufferSize:Word);
+begin
+	inherited Create;
+
+	if BufferSize > 0 then
+		begin
+		hdrPointer := GlobalSharedLockedAlloc(sizeof(TMIDIHDR), hdrHandle);
+		sysexPointer := GlobalSharedLockedAlloc(BufferSize, sysexHandle);
+
+		hdrPointer^.lpData := sysexPointer;
+		hdrPointer^.dwBufferLength := BufferSize;
+		end;
+end;
+
+{-------------------------------------------------------------------}
+destructor TMyMidiHdr.Destroy;
+begin
+	GlobalSharedLockedFree( hdrHandle, hdrPointer );
+	GlobalSharedLockedFree( sysexHandle, sysexPointer );
+	inherited Destroy;
+end;
+
+
+
+end.
-- 
cgit v1.2.3