|
Title: Bass Test & Bass Sync with Delphi - Α έτσι μιξάρουν με το μπάσσο οι κουφάλες :P Post by: Katarameno on October 19, 2016, 14:49:19 pm (*
* BassTest - Simple BASS Test for Delphi *) unit BTMain; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Bass, StdCtrls, ExtCtrls, Buttons; type TForm1 = class(TForm) GroupBox1: TGroupBox; GroupBox2: TGroupBox; GroupBox3: TGroupBox; Button1: TButton; Button2: TButton; Label1: TLabel; ListBox1: TListBox; ListBox2: TListBox; Button4: TButton; Button5: TButton; Button6: TButton; Button7: TButton; Button8: TButton; Button9: TButton; Button10: TButton; Button11: TButton; OpenDialog1: TOpenDialog; Timer1: TTimer; OpenDialog2: TOpenDialog; OpenDialog3: TOpenDialog; ListBox3: TListBox; Button3: TButton; Button12: TButton; Button13: TButton; Button14: TButton; Button15: TButton; procedure FormCreate(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure Button4Click(Sender: TObject); procedure Button5Click(Sender: TObject); procedure Button6Click(Sender: TObject); procedure Button7Click(Sender: TObject); procedure Button8Click(Sender: TObject); procedure Timer1Timer(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button10Click(Sender: TObject); procedure Button11Click(Sender: TObject); procedure Button9Click(Sender: TObject); procedure Button15Click(Sender: TObject); procedure Button14Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button12Click(Sender: TObject); procedure Button13Click(Sender: TObject); private mods: array[0..128] of HMUSIC; modc: Integer; sams: array[0..128] of HSAMPLE; samc: Integer; strs: array[0..128] of HSTREAM; strc: Integer; procedure Error(msg: string); public end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.Error(msg: string); var s: string; begin s := msg + #13#10 + '(Error code: ' + IntToStr(BASS_ErrorGetCode) + ')'; MessageBox(Handle, PChar(s), nil, 0); end; procedure TForm1.FormCreate(Sender: TObject); begin modc := 0; // music module count samc := 0; // sample count strc := 0; // stream count // check the correct BASS was loaded if (HIWORD(BASS_GetVersion) <> BASSVERSION) then begin MessageBox(0,'An incorrect version of BASS.DLL was loaded',nil,MB_ICONERROR); Halt; end; // Initialize audio - default device, 44100hz, stereo, 16 bits if not BASS_Init(-1, 44100, 0, Handle, nil) then Error('Error initializing audio!'); end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); var a: Integer; begin (* (It's not actually necessary to free the streams, musics and samples because they are automatically freed by BASS_Free.) *) // Free stream if strc > 0 then for a := 0 to strc - 1 do BASS_StreamFree(strs[a]); // Free music if modc > 0 then for a := 0 to modc - 1 do BASS_MusicFree(mods[a]); // Free samples if samc > 0 then for a := 0 to samc - 1 do BASS_SampleFree(sams[a]); // Close BASS BASS_Free(); end; procedure TForm1.Button4Click(Sender: TObject); var i: Integer; begin i := ListBox1.ItemIndex; // Play the music (continuing from current position) if i >= 0 then if not BASS_ChannelPlay(mods, False) then Error('Error playing music!'); end; procedure TForm1.Button5Click(Sender: TObject); var i: Integer; begin i := ListBox1.ItemIndex; // Stop the music if i >= 0 then BASS_ChannelStop(mods); end; procedure TForm1.Button6Click(Sender: TObject); var i: Integer; begin i := ListBox1.ItemIndex; // Play the music from the beginning if i >= 0 then BASS_ChannelPlay(mods, True); end; procedure TForm1.Button7Click(Sender: TObject); var f: PChar; begin if not OpenDialog1.Execute then Exit; f := PChar(OpenDialog1.FileName); mods[modc] := BASS_MusicLoad(False, f, 0, 0, BASS_MUSIC_RAMP {$IFDEF UNICODE} or BASS_UNICODE {$ENDIF}, 1); if mods[modc] <> 0 then begin ListBox1.Items.Add(OpenDialog1.FileName); Inc(modc); end else Error('Error loading music!'); end; procedure TForm1.Button8Click(Sender: TObject); var a, i: Integer; begin i := ListBox1.ItemIndex; if i >= 0 then begin BASS_MusicFree(mods); if i < modc then for a := i to modc - 1 do mods[a] := mods[a + 1]; Dec(modc); ListBox1.Items.Delete(i); end; end; procedure TForm1.Timer1Timer(Sender: TObject); begin // update the CPU usage % display Label1.Caption := 'CPU% ' + FloatToStrF(BASS_GetCPU, ffFixed, 4, 2); end; procedure TForm1.Button1Click(Sender: TObject); begin // Pause audio output BASS_Pause(); end; procedure TForm1.Button2Click(Sender: TObject); begin // Resume audio output BASS_Start(); end; procedure TForm1.Button10Click(Sender: TObject); var f: PChar; begin if not OpenDialog3.Execute then Exit; f := PChar(OpenDialog3.FileName); sams[samc] := BASS_SampleLoad(FALSE, f, 0, 0, 3, BASS_SAMPLE_OVER_POS {$IFDEF UNICODE} or BASS_UNICODE {$ENDIF}); if sams[samc] <> 0 then begin ListBox2.Items.Add(OpenDialog3.FileName); Inc(samc); end else Error('Error loading sample!'); end; procedure TForm1.Button11Click(Sender: TObject); var a, i: Integer; begin i := ListBox2.ItemIndex; if i >= 0 then begin BASS_SampleFree(sams); if i < samc then for a := i to samc - 1 do sams[a] := sams[a + 1]; Dec(samc); ListBox2.Items.Delete(i); end; end; procedure TForm1.Button9Click(Sender: TObject); var i: Integer; ch: HCHANNEL; begin i := ListBox2.ItemIndex; // Play the sample at default rate, volume=50%, random pan position if i >= 0 then begin ch := BASS_SampleGetChannel(sams, False); BASS_ChannelSetAttribute(ch, BASS_ATTRIB_PAN, (Random(201) - 100) / 100); BASS_ChannelSetAttribute(ch, BASS_ATTRIB_VOL, 0.5); if not BASS_ChannelPlay(ch, False) then Error('Error playing sample!'); end; end; procedure TForm1.Button15Click(Sender: TObject); var f: PChar; begin if not OpenDialog2.Execute then Exit; f := PChar(OpenDialog2.FileName); strs[strc] := BASS_StreamCreateFile(False, f, 0, 0, 0 {$IFDEF UNICODE} or BASS_UNICODE {$ENDIF}); if strs[strc] <> 0 then begin ListBox3.Items.Add(OpenDialog2.FileName); Inc(strc); end else Error('Error creating stream!'); end; procedure TForm1.Button14Click(Sender: TObject); var a, i: Integer; begin i := ListBox3.ItemIndex; if i >= 0 then begin BASS_StreamFree(strs); if i < strc then for a := i to strc - 1 do strs[a] := strs[a + 1]; Dec(strc); ListBox3.Items.Delete(i); end; end; procedure TForm1.Button3Click(Sender: TObject); var i: Integer; begin i := ListBox3.ItemIndex; // Play the stream (continuing from current position) if i >= 0 then if not BASS_ChannelPlay(strs, False) then Error('Error playing stream!'); end; procedure TForm1.Button12Click(Sender: TObject); var i: Integer; begin i := ListBox3.ItemIndex; // Stop the stream if i >= 0 then BASS_ChannelStop(strs); end; procedure TForm1.Button13Click(Sender: TObject); var i: Integer; begin i := ListBox3.ItemIndex; // Play the stream from the beginning if i >= 0 then BASS_ChannelPlay(strs, True); end; end. •••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••• •••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••• { BASS 2.4 Delphi unit Copyright (c) 1999-2016 Un4seen Developments Ltd. See the BASS.CHM file for more detailed documentation How to install -------------- Copy BASS.PAS to the \LIB subdirectory of your Delphi path or your project dir NOTE: Delphi users should use the BASS_UNICODE flag where possible } unit BASS; interface {$IFDEF MSWINDOWS} uses Windows; {$ENDIF} const BASSVERSION = $204; // API version BASSVERSIONTEXT = '2.4'; // Use these to test for error from functions that return a DWORD or QWORD DW_ERROR = LongWord(-1); // -1 (DWORD) QW_ERROR = Int64(-1); // -1 (QWORD) // Error codes returned by BASS_ErrorGetCode() BASS_OK = 0; // all is OK BASS_ERROR_MEM = 1; // memory error BASS_ERROR_FILEOPEN = 2; // can't open the file BASS_ERROR_DRIVER = 3; // can't find a free sound driver BASS_ERROR_BUFLOST = 4; // the sample buffer was lost BASS_ERROR_HANDLE = 5; // invalid handle BASS_ERROR_FORMAT = 6; // unsupported sample format BASS_ERROR_POSITION = 7; // invalid position BASS_ERROR_INIT = 8; // BASS_Init has not been successfully called BASS_ERROR_START = 9; // BASS_Start has not been successfully called BASS_ERROR_ALREADY = 14; // already initialized/paused/whatever BASS_ERROR_NOCHAN = 18; // can't get a free channel BASS_ERROR_ILLTYPE = 19; // an illegal type was specified BASS_ERROR_ILLPARAM = 20; // an illegal parameter was specified BASS_ERROR_NO3D = 21; // no 3D support BASS_ERROR_NOEAX = 22; // no EAX support BASS_ERROR_DEVICE = 23; // illegal device number BASS_ERROR_NOPLAY = 24; // not playing BASS_ERROR_FREQ = 25; // illegal sample rate BASS_ERROR_NOTFILE = 27; // the stream is not a file stream BASS_ERROR_NOHW = 29; // no hardware voices available BASS_ERROR_EMPTY = 31; // the MOD music has no sequence data BASS_ERROR_NONET = 32; // no internet connection could be opened BASS_ERROR_CREATE = 33; // couldn't create the file BASS_ERROR_NOFX = 34; // effects are not available BASS_ERROR_NOTAVAIL = 37; // requested data is not available BASS_ERROR_DECODE = 38; // the channel is/isn't a "decoding channel" BASS_ERROR_DX = 39; // a sufficient DirectX version is not installed BASS_ERROR_TIMEOUT = 40; // connection timedout BASS_ERROR_FILEFORM = 41; // unsupported file format BASS_ERROR_SPEAKER = 42; // unavailable speaker BASS_ERROR_VERSION = 43; // invalid BASS version (used by add-ons) BASS_ERROR_CODEC = 44; // codec is not available/supported BASS_ERROR_ENDED = 45; // the channel/file has ended BASS_ERROR_BUSY = 46; // the device is busy BASS_ERROR_UNKNOWN = -1; // some other mystery problem // BASS_SetConfig options BASS_CONFIG_BUFFER = 0; BASS_CONFIG_UPDATEPERIOD = 1; BASS_CONFIG_GVOL_SAMPLE = 4; BASS_CONFIG_GVOL_STREAM = 5; BASS_CONFIG_GVOL_MUSIC = 6; BASS_CONFIG_CURVE_VOL = 7; BASS_CONFIG_CURVE_PAN = 8; BASS_CONFIG_FLOATDSP = 9; BASS_CONFIG_3DALGORITHM = 10; BASS_CONFIG_NET_TIMEOUT = 11; BASS_CONFIG_NET_BUFFER = 12; BASS_CONFIG_PAUSE_NOPLAY = 13; BASS_CONFIG_NET_PREBUF = 15; BASS_CONFIG_NET_PASSIVE = 18; BASS_CONFIG_REC_BUFFER = 19; BASS_CONFIG_NET_PLAYLIST = 21; BASS_CONFIG_MUSIC_VIRTUAL = 22; BASS_CONFIG_VERIFY = 23; BASS_CONFIG_UPDATETHREADS = 24; BASS_CONFIG_DEV_BUFFER = 27; BASS_CONFIG_VISTA_TRUEPOS = 30; BASS_CONFIG_IOS_MIXAUDIO = 34; BASS_CONFIG_DEV_DEFAULT = 36; BASS_CONFIG_NET_READTIMEOUT = 37; BASS_CONFIG_VISTA_SPEAKERS = 38; BASS_CONFIG_IOS_SPEAKER = 39; BASS_CONFIG_MF_DISABLE = 40; BASS_CONFIG_HANDLES = 41; BASS_CONFIG_UNICODE = 42; BASS_CONFIG_SRC = 43; BASS_CONFIG_SRC_SAMPLE = 44; BASS_CONFIG_ASYNCFILE_BUFFER = 45; BASS_CONFIG_OGG_PRESCAN = 47; BASS_CONFIG_MF_VIDEO = 48; BASS_CONFIG_AIRPLAY = 49; BASS_CONFIG_DEV_NONSTOP = 50; BASS_CONFIG_IOS_NOCATEGORY = 51; BASS_CONFIG_VERIFY_NET = 52; BASS_CONFIG_DEV_PERIOD = 53; BASS_CONFIG_FLOAT = 54; // BASS_SetConfigPtr options BASS_CONFIG_NET_AGENT = 16; BASS_CONFIG_NET_PROXY = 17; // BASS_Init flags BASS_DEVICE_8BITS = 1; // 8 bit BASS_DEVICE_MONO = 2; // mono BASS_DEVICE_3D = 4; // enable 3D functionality BASS_DEVICE_16BITS = 8; // limit output to 16 bit BASS_DEVICE_LATENCY = $100; // calculate device latency (BASS_INFO struct) BASS_DEVICE_CPSPEAKERS = $400; // detect speakers via Windows control panel BASS_DEVICE_SPEAKERS = $800; // force enabling of speaker assignment BASS_DEVICE_NOSPEAKER = $1000; // ignore speaker arrangement BASS_DEVICE_DMIX = $2000; // use ALSA "dmix" plugin BASS_DEVICE_FREQ = $4000; // set device sample rate BASS_DEVICE_STEREO = $8000; // limit output to stereo // DirectSound interfaces (for use with BASS_GetDSoundObject) BASS_OBJECT_DS = 1; // IDirectSound BASS_OBJECT_DS3DL = 2; // IDirectSound3DListener // BASS_DEVICEINFO flags BASS_DEVICE_ENABLED = 1; BASS_DEVICE_DEFAULT = 2; BASS_DEVICE_INIT = 4; BASS_DEVICE_TYPE_MASK = $ff000000; BASS_DEVICE_TYPE_NETWORK = $01000000; BASS_DEVICE_TYPE_SPEAKERS = $02000000; BASS_DEVICE_TYPE_LINE = $03000000; BASS_DEVICE_TYPE_HEADPHONES = $04000000; BASS_DEVICE_TYPE_MICROPHONE = $05000000; BASS_DEVICE_TYPE_HEADSET = $06000000; BASS_DEVICE_TYPE_HANDSET = $07000000; BASS_DEVICE_TYPE_DIGITAL = $08000000; BASS_DEVICE_TYPE_SPDIF = $09000000; BASS_DEVICE_TYPE_HDMI = $0a000000; BASS_DEVICE_TYPE_DISPLAYPORT = $40000000; // BASS_GetDeviceInfo flags BASS_DEVICES_AIRPLAY = $1000000; // BASS_INFO flags (from DSOUND.H) DSCAPS_CONTINUOUSRATE = $00000010; // supports all sample rates between min/maxrate DSCAPS_EMULDRIVER = $00000020; // device does NOT have hardware DirectSound support DSCAPS_CERTIFIED = $00000040; // device driver has been certified by Microsoft DSCAPS_SECONDARYMONO = $00000100; // mono DSCAPS_SECONDARYSTEREO = $00000200; // stereo DSCAPS_SECONDARY8BIT = $00000400; // 8 bit DSCAPS_SECONDARY16BIT = $00000800; // 16 bit // BASS_RECORDINFO flags (from DSOUND.H) DSCCAPS_EMULDRIVER = DSCAPS_EMULDRIVER; // device does NOT have hardware DirectSound recording support DSCCAPS_CERTIFIED = DSCAPS_CERTIFIED; // device driver has been certified by Microsoft // defines for formats field of BASS_RECORDINFO (from MMSYSTEM.H) WAVE_FORMAT_1M08 = $00000001; // 11.025 kHz, Mono, 8-bit WAVE_FORMAT_1S08 = $00000002; // 11.025 kHz, Stereo, 8-bit WAVE_FORMAT_1M16 = $00000004; // 11.025 kHz, Mono, 16-bit WAVE_FORMAT_1S16 = $00000008; // 11.025 kHz, Stereo, 16-bit WAVE_FORMAT_2M08 = $00000010; // 22.05 kHz, Mono, 8-bit WAVE_FORMAT_2S08 = $00000020; // 22.05 kHz, Stereo, 8-bit WAVE_FORMAT_2M16 = $00000040; // 22.05 kHz, Mono, 16-bit WAVE_FORMAT_2S16 = $00000080; // 22.05 kHz, Stereo, 16-bit WAVE_FORMAT_4M08 = $00000100; // 44.1 kHz, Mono, 8-bit WAVE_FORMAT_4S08 = $00000200; // 44.1 kHz, Stereo, 8-bit WAVE_FORMAT_4M16 = $00000400; // 44.1 kHz, Mono, 16-bit WAVE_FORMAT_4S16 = $00000800; // 44.1 kHz, Stereo, 16-bit BASS_SAMPLE_8BITS = 1; // 8 bit BASS_SAMPLE_FLOAT = 256; // 32 bit floating-point BASS_SAMPLE_MONO = 2; // mono BASS_SAMPLE_LOOP = 4; // looped BASS_SAMPLE_3D = 8; // 3D functionality BASS_SAMPLE_SOFTWARE = 16; // not using hardware mixing BASS_SAMPLE_MUTEMAX = 32; // mute at max distance (3D only) BASS_SAMPLE_VAM = 64; // DX7 voice allocation & management BASS_SAMPLE_FX = 128; // old implementation of DX8 effects BASS_SAMPLE_OVER_VOL = $10000; // override lowest volume BASS_SAMPLE_OVER_POS = $20000; // override longest playing BASS_SAMPLE_OVER_DIST = $30000; // override furthest from listener (3D only) BASS_STREAM_PRESCAN = $20000; // enable pin-point seeking/length (MP3/MP2/MP1) BASS_MP3_SETPOS = BASS_STREAM_PRESCAN; BASS_STREAM_AUTOFREE = $40000; // automatically free the stream when it stop/ends BASS_STREAM_RESTRATE = $80000; // restrict the download rate of internet file streams BASS_STREAM_BLOCK = $100000;// download/play internet file stream in small blocks BASS_STREAM_DECODE = $200000;// don't play the stream, only decode (BASS_ChannelGetData) BASS_STREAM_STATUS = $800000;// give server status info (HTTP/ICY tags) in DOWNLOADPROC BASS_MUSIC_FLOAT = BASS_SAMPLE_FLOAT; BASS_MUSIC_MONO = BASS_SAMPLE_MONO; BASS_MUSIC_LOOP = BASS_SAMPLE_LOOP; BASS_MUSIC_3D = BASS_SAMPLE_3D; BASS_MUSIC_FX = BASS_SAMPLE_FX; BASS_MUSIC_AUTOFREE = BASS_STREAM_AUTOFREE; BASS_MUSIC_DECODE = BASS_STREAM_DECODE; BASS_MUSIC_PRESCAN = BASS_STREAM_PRESCAN; // calculate playback length BASS_MUSIC_CALCLEN = BASS_MUSIC_PRESCAN; BASS_MUSIC_RAMP = $200; // normal ramping BASS_MUSIC_RAMPS = $400; // sensitive ramping BASS_MUSIC_SURROUND = $800; // surround sound BASS_MUSIC_SURROUND2 = $1000; // surround sound (mode 2) BASS_MUSIC_FT2PAN = $2000; // apply FastTracker 2 panning to XM files BASS_MUSIC_FT2MOD = $2000; // play .MOD as FastTracker 2 does BASS_MUSIC_PT1MOD = $4000; // play .MOD as ProTracker 1 does BASS_MUSIC_NONINTER = $10000; // non-interpolated sample mixing BASS_MUSIC_SINCINTER = $800000; // sinc interpolated sample mixing BASS_MUSIC_POSRESET = $8000; // stop all notes when moving position BASS_MUSIC_POSRESETEX = $400000; // stop all notes and reset bmp/etc when moving position BASS_MUSIC_STOPBACK = $80000; // stop the music on a backwards jump effect BASS_MUSIC_NOSAMPLE = $100000; // don't load the samples // Speaker assignment flags BASS_SPEAKER_FRONT = $1000000; // front speakers BASS_SPEAKER_REAR = $2000000; // rear/side speakers BASS_SPEAKER_CENLFE = $3000000; // center & LFE speakers (5.1) BASS_SPEAKER_REAR2 = $4000000; // rear center speakers (7.1) BASS_SPEAKER_LEFT = $10000000; // modifier: left BASS_SPEAKER_RIGHT = $20000000; // modifier: right BASS_SPEAKER_FRONTLEFT = BASS_SPEAKER_FRONT or BASS_SPEAKER_LEFT; BASS_SPEAKER_FRONTRIGHT = BASS_SPEAKER_FRONT or BASS_SPEAKER_RIGHT; BASS_SPEAKER_REARLEFT = BASS_SPEAKER_REAR or BASS_SPEAKER_LEFT; BASS_SPEAKER_REARRIGHT = BASS_SPEAKER_REAR or BASS_SPEAKER_RIGHT; BASS_SPEAKER_CENTER = BASS_SPEAKER_CENLFE or BASS_SPEAKER_LEFT; BASS_SPEAKER_LFE = BASS_SPEAKER_CENLFE or BASS_SPEAKER_RIGHT; BASS_SPEAKER_REAR2LEFT = BASS_SPEAKER_REAR2 or BASS_SPEAKER_LEFT; BASS_SPEAKER_REAR2RIGHT = BASS_SPEAKER_REAR2 or BASS_SPEAKER_RIGHT; BASS_ASYNCFILE = $40000000; BASS_UNICODE = $80000000; BASS_RECORD_PAUSE = $8000; // start recording paused // DX7 voice allocation & management flags BASS_VAM_HARDWARE = 1; BASS_VAM_SOFTWARE = 2; BASS_VAM_TERM_TIME = 4; BASS_VAM_TERM_DIST = 8; BASS_VAM_TERM_PRIO = 16; // BASS_CHANNELINFO types BASS_CTYPE_SAMPLE = 1; BASS_CTYPE_RECORD = 2; BASS_CTYPE_STREAM = $10000; BASS_CTYPE_STREAM_OGG = $10002; BASS_CTYPE_STREAM_MP1 = $10003; BASS_CTYPE_STREAM_MP2 = $10004; BASS_CTYPE_STREAM_MP3 = $10005; BASS_CTYPE_STREAM_AIFF = $10006; BASS_CTYPE_STREAM_WAV = $40000; // WAVE flag, LOWORD=codec BASS_CTYPE_STREAM_WAV_PCM = $50001; BASS_CTYPE_STREAM_WAV_FLOAT = $50003; BASS_CTYPE_MUSIC_MOD = $20000; BASS_CTYPE_MUSIC_MTM = $20001; BASS_CTYPE_MUSIC_S3M = $20002; BASS_CTYPE_MUSIC_XM = $20003; BASS_CTYPE_MUSIC_IT = $20004; BASS_CTYPE_MUSIC_MO3 = $00100; // MO3 flag // 3D channel modes BASS_3DMODE_NORMAL = 0; // normal 3D processing BASS_3DMODE_RELATIVE = 1; // position is relative to the listener BASS_3DMODE_OFF = 2; // no 3D processing // software 3D mixing algorithms (used with BASS_CONFIG_3DALGORITHM) BASS_3DALG_DEFAULT = 0; BASS_3DALG_OFF = 1; BASS_3DALG_FULL = 2; BASS_3DALG_LIGHT = 3; // EAX environments, use with BASS_SetEAXParameters EAX_ENVIRONMENT_GENERIC = 0; EAX_ENVIRONMENT_PADDEDCELL = 1; EAX_ENVIRONMENT_ROOM = 2; EAX_ENVIRONMENT_BATHROOM = 3; EAX_ENVIRONMENT_LIVINGROOM = 4; EAX_ENVIRONMENT_STONEROOM = 5; EAX_ENVIRONMENT_AUDITORIUM = 6; EAX_ENVIRONMENT_CONCERTHALL = 7; EAX_ENVIRONMENT_CAVE = 8; EAX_ENVIRONMENT_ARENA = 9; EAX_ENVIRONMENT_HANGAR = 10; EAX_ENVIRONMENT_CARPETEDHALLWAY = 11; EAX_ENVIRONMENT_HALLWAY = 12; EAX_ENVIRONMENT_STONECORRIDOR = 13; EAX_ENVIRONMENT_ALLEY = 14; EAX_ENVIRONMENT_FOREST = 15; EAX_ENVIRONMENT_CITY = 16; EAX_ENVIRONMENT_MOUNTAINS = 17; EAX_ENVIRONMENT_QUARRY = 18; EAX_ENVIRONMENT_PLAIN = 19; EAX_ENVIRONMENT_PARKINGLOT = 20; EAX_ENVIRONMENT_SEWERPIPE = 21; EAX_ENVIRONMENT_UNDERWATER = 22; EAX_ENVIRONMENT_DRUGGED = 23; EAX_ENVIRONMENT_DIZZY = 24; EAX_ENVIRONMENT_PSYCHOTIC = 25; // total number of environments EAX_ENVIRONMENT_COUNT = 26; BASS_STREAMPROC_END = $80000000; // end of user stream flag // BASS_StreamCreateFileUser file systems STREAMFILE_NOBUFFER = 0; STREAMFILE_BUFFER = 1; STREAMFILE_BUFFERPUSH = 2; // BASS_StreamPutFileData options BASS_FILEDATA_END = 0; // end & close the file // BASS_StreamGetFilePosition modes BASS_FILEPOS_CURRENT = 0; BASS_FILEPOS_DECODE = BASS_FILEPOS_CURRENT; BASS_FILEPOS_DOWNLOAD = 1; BASS_FILEPOS_END = 2; BASS_FILEPOS_START = 3; BASS_FILEPOS_CONNECTED = 4; BASS_FILEPOS_BUFFER = 5; BASS_FILEPOS_SOCKET = 6; BASS_FILEPOS_ASYNCBUF = 7; BASS_FILEPOS_SIZE = 8; // BASS_ChannelSetSync types BASS_SYNC_POS = 0; BASS_SYNC_END = 2; BASS_SYNC_META = 4; BASS_SYNC_SLIDE = 5; BASS_SYNC_STALL = 6; BASS_SYNC_DOWNLOAD = 7; BASS_SYNC_FREE = 8; BASS_SYNC_SETPOS = 11; BASS_SYNC_MUSICPOS = 10; BASS_SYNC_MUSICINST = 1; BASS_SYNC_MUSICFX = 3; BASS_SYNC_OGG_CHANGE = 12; BASS_SYNC_MIXTIME = $40000000; // flag: sync at mixtime, else at playtime BASS_SYNC_ONETIME = $80000000; // flag: sync only once, else continuously // BASS_ChannelIsActive return values BASS_ACTIVE_STOPPED = 0; BASS_ACTIVE_PLAYING = 1; BASS_ACTIVE_STALLED = 2; BASS_ACTIVE_PAUSED = 3; // Channel attributes BASS_ATTRIB_FREQ = 1; BASS_ATTRIB_VOL = 2; BASS_ATTRIB_PAN = 3; BASS_ATTRIB_EAXMIX = 4; BASS_ATTRIB_NOBUFFER = 5; BASS_ATTRIB_VBR = 6; BASS_ATTRIB_CPU = 7; BASS_ATTRIB_SRC = 8; BASS_ATTRIB_NET_RESUME = 9; BASS_ATTRIB_SCANINFO = 10; BASS_ATTRIB_NORAMP = 11; BASS_ATTRIB_BITRATE = 12; BASS_ATTRIB_MUSIC_AMPLIFY = $100; BASS_ATTRIB_MUSIC_PANSEP = $101; BASS_ATTRIB_MUSIC_PSCALER = $102; BASS_ATTRIB_MUSIC_BPM = $103; BASS_ATTRIB_MUSIC_SPEED = $104; BASS_ATTRIB_MUSIC_VOL_GLOBAL = $105; BASS_ATTRIB_MUSIC_ACTIVE = $106; BASS_ATTRIB_MUSIC_VOL_CHAN = $200; // + channel # BASS_ATTRIB_MUSIC_VOL_INST = $300; // + instrument # // BASS_ChannelGetData flags BASS_DATA_AVAILABLE = 0; // query how much data is buffered BASS_DATA_FIXED = $20000000; // flag: return 8.24 fixed-point data BASS_DATA_FLOAT = $40000000; // flag: return floating-point sample data BASS_DATA_FFT256 = $80000000; // 256 sample FFT BASS_DATA_FFT512 = $80000001; // 512 FFT BASS_DATA_FFT1024 = $80000002; // 1024 FFT BASS_DATA_FFT2048 = $80000003; // 2048 FFT BASS_DATA_FFT4096 = $80000004; // 4096 FFT BASS_DATA_FFT8192 = $80000005; // 8192 FFT BASS_DATA_FFT16384 = $80000006; // 16384 FFT BASS_DATA_FFT32768 = $80000007; // 32768 FFT BASS_DATA_FFT_INDIVIDUAL = $10; // FFT flag: FFT for each channel, else all combined BASS_DATA_FFT_NOWINDOW = $20; // FFT flag: no Hanning window BASS_DATA_FFT_REMOVEDC = $40; // FFT flag: pre-remove DC bias BASS_DATA_FFT_COMPLEX = $80; // FFT flag: return complex data // BASS_ChannelGetLevelEx flags BASS_LEVEL_MONO = 1; BASS_LEVEL_STEREO = 2; BASS_LEVEL_RMS = 4; // BASS_ChannelGetTags types : what's returned BASS_TAG_ID3 = 0; // ID3v1 tags : TAG_ID3 structure BASS_TAG_ID3V2 = 1; // ID3v2 tags : variable length block BASS_TAG_OGG = 2; // OGG comments : series of null-terminated UTF-8 strings BASS_TAG_HTTP = 3; // HTTP headers : series of null-terminated ANSI strings BASS_TAG_ICY = 4; // ICY headers : series of null-terminated ANSI strings BASS_TAG_META = 5; // ICY metadata : ANSI string BASS_TAG_APE = 6; // APEv2 tags : series of null-terminated UTF-8 strings BASS_TAG_MP4 = 7; // MP4/iTunes metadata : series of null-terminated UTF-8 strings BASS_TAG_WMA = 8; // WMA tags : series of null-terminated UTF-8 strings BASS_TAG_VENDOR = 9; // OGG encoder : UTF-8 string BASS_TAG_LYRICS3 = 10; // Lyric3v2 tag : ASCII string BASS_TAG_CA_CODEC = 11; // CoreAudio codec info : TAG_CA_CODEC structure BASS_TAG_MF = 13; // Media Foundation tags : series of null-terminated UTF-8 strings BASS_TAG_WAVEFORMAT = 14; // WAVE format : WAVEFORMATEEX structure BASS_TAG_RIFF_INFO = $100; // RIFF "INFO" tags : series of null-terminated ANSI strings BASS_TAG_RIFF_BEXT = $101; // RIFF/BWF "bext" tags : TAG_BEXT structure BASS_TAG_RIFF_CART = $102; // RIFF/BWF "cart" tags : TAG_CART structure BASS_TAG_RIFF_DISP = $103; // RIFF "DISP" text tag : ANSI string BASS_TAG_APE_BINARY = $1000; // + index #, binary APEv2 tag : TAG_APE_BINARY structure BASS_TAG_MUSIC_NAME = $10000; // MOD music name : ANSI string BASS_TAG_MUSIC_MESSAGE = $10001; // MOD message : ANSI string BASS_TAG_MUSIC_ORDERS = $10002; // MOD order list : BYTE array of pattern numbers BASS_TAG_MUSIC_AUTH = $10003; // MOD author : UTF-8 string BASS_TAG_MUSIC_INST = $10100; // + instrument #, MOD instrument name : ANSI string BASS_TAG_MUSIC_SAMPLE = $10300; // + sample #, MOD sample name : ANSI string // BASS_ChannelGetLength/GetPosition/SetPosition modes BASS_POS_BYTE = 0; // byte position BASS_POS_MUSIC_ORDER = 1; // order.row position, MAKELONG(order,row) BASS_POS_OGG = 3; // OGG bitstream number BASS_POS_INEXACT = $8000000; // flag: allow seeking to inexact position BASS_POS_DECODE = $10000000; // flag: get the decoding (not playing) position BASS_POS_DECODETO = $20000000; // flag: decode to the position instead of seeking BASS_POS_SCAN = $40000000; // flag: scan to the position // BASS_RecordSetInput flags BASS_INPUT_OFF = $10000; BASS_INPUT_ON = $20000; BASS_INPUT_TYPE_MASK = $FF000000; BASS_INPUT_TYPE_UNDEF = $00000000; BASS_INPUT_TYPE_DIGITAL = $01000000; BASS_INPUT_TYPE_LINE = $02000000; BASS_INPUT_TYPE_MIC = $03000000; BASS_INPUT_TYPE_SYNTH = $04000000; BASS_INPUT_TYPE_CD = $05000000; BASS_INPUT_TYPE_PHONE = $06000000; BASS_INPUT_TYPE_SPEAKER = $07000000; BASS_INPUT_TYPE_WAVE = $08000000; BASS_INPUT_TYPE_AUX = $09000000; BASS_INPUT_TYPE_ANALOG = $0A000000; BASS_FX_DX8_CHORUS = 0; BASS_FX_DX8_COMPRESSOR = 1; BASS_FX_DX8_DISTORTION = 2; BASS_FX_DX8_ECHO = 3; BASS_FX_DX8_FLANGER = 4; BASS_FX_DX8_GARGLE = 5; BASS_FX_DX8_I3DL2REVERB = 6; BASS_FX_DX8_PARAMEQ = 7; BASS_FX_DX8_REVERB = 8; BASS_DX8_PHASE_NEG_180 = 0; BASS_DX8_PHASE_NEG_90 = 1; BASS_DX8_PHASE_ZERO = 2; BASS_DX8_PHASE_90 = 3; BASS_DX8_PHASE_180 = 4; type DWORD = LongWord; BOOL = LongBool; QWORD = Int64; HMUSIC = DWORD; // MOD music handle HSAMPLE = DWORD; // sample handle HCHANNEL = DWORD; // playing sample's channel handle HSTREAM = DWORD; // sample stream handle HRECORD = DWORD; // recording handle HSYNC = DWORD; // synchronizer handle HDSP = DWORD; // DSP handle HFX = DWORD; // DX8 effect handle HPLUGIN = DWORD; // Plugin handle // Device info structure BASS_DEVICEINFO = record name: PAnsiChar; // description driver: PAnsiChar; // driver flags: DWORD; end; BASS_INFO = record flags: DWORD; // device capabilities (DSCAPS_xxx flags) hwsize: DWORD; // size of total device hardware memory hwfree: DWORD; // size of free device hardware memory freesam: DWORD; // number of free sample slots in the hardware free3d: DWORD; // number of free 3D sample slots in the hardware minrate: DWORD; // min sample rate supported by the hardware maxrate: DWORD; // max sample rate supported by the hardware eax: BOOL; // device supports EAX? (always FALSE if BASS_DEVICE_3D was not used) minbuf: DWORD; // recommended minimum buffer length in ms (requires BASS_DEVICE_LATENCY) dsver: DWORD; // DirectSound version latency: DWORD; // delay (in ms) before start of playback (requires BASS_DEVICE_LATENCY) initflags: DWORD; // BASS_Init "flags" parameter speakers: DWORD; // number of speakers available freq: DWORD; // current output rate end; // Recording device info structure BASS_RECORDINFO = record flags: DWORD; // device capabilities (DSCCAPS_xxx flags) formats: DWORD; // supported standard formats (WAVE_FORMAT_xxx flags) inputs: DWORD; // number of inputs singlein: BOOL; // only 1 input can be set at a time freq: DWORD; // current input rate end; // Sample info structure BASS_SAMPLE = record freq: DWORD; // default playback rate volume: Single; // default volume (0-100) pan: Single; // default pan (-100=left, 0=middle, 100=right) flags: DWORD; // BASS_SAMPLE_xxx flags length: DWORD; // length (in samples, not bytes) max: DWORD; // maximum simultaneous playbacks origres: DWORD; // original resolution chans: DWORD; // number of channels mingap: DWORD; // minimum gap (ms) between creating channels mode3d: DWORD; // BASS_3DMODE_xxx mode mindist: Single; // minimum distance maxdist: Single; // maximum distance iangle: DWORD; // angle of inside projection cone oangle: DWORD; // angle of outside projection cone outvol: Single; // delta-volume outside the projection cone vam: DWORD; // voice allocation/management flags (BASS_VAM_xxx) priority: DWORD; // priority (0=lowest, $ffffffff=highest) end; // Channel info structure BASS_CHANNELINFO = record freq: DWORD; // default playback rate chans: DWORD; // channels flags: DWORD; // BASS_SAMPLE/STREAM/MUSIC/SPEAKER flags ctype: DWORD; // type of channel origres: DWORD; // original resolution plugin: HPLUGIN; // plugin sample: HSAMPLE; // sample {$IFDEF CPUX64} padding: DWORD; {$ENDIF} filename: PChar; // filename end; BASS_PLUGINFORM = record ctype: DWORD; // channel type {$IFDEF CPUX64} padding: DWORD; {$ENDIF} name: PAnsiChar; // format description exts: PAnsiChar; // file extension filter (*.ext1;*.ext2;etc...) end; PBASS_PLUGINFORMS = ^TBASS_PLUGINFORMS; TBASS_PLUGINFORMS = array[0..maxInt div sizeOf(BASS_PLUGINFORM) - 1] of BASS_PLUGINFORM; PBASS_PLUGININFO = ^BASS_PLUGININFO; BASS_PLUGININFO = record version: DWORD; // version (same form as BASS_GetVersion) formatc: DWORD; // number of formats formats: PBASS_PLUGINFORMS; // the array of formats end; // 3D vector (for 3D positions/velocities/orientations) BASS_3DVECTOR = record x: Single; // +=right, -=left y: Single; // +=up, -=down z: Single; // +=front, -=behind end; // User file stream callback functions FILECLOSEPROC = procedure(user: Pointer); {$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF}; FILELENPROC = function(user: Pointer): QWORD; {$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF}; FILEREADPROC = function(buffer: Pointer; length: DWORD; user: Pointer): DWORD; {$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF}; FILESEEKPROC = function(offset: QWORD; user: Pointer): BOOL; {$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF}; BASS_FILEPROCS = record close: FILECLOSEPROC; length: FILELENPROC; read: FILEREADPROC; seek: FILESEEKPROC; end; // ID3v1 tag structure PTAG_ID3 = ^TAG_ID3; TAG_ID3 = record id: Array[0..2] of AnsiChar; title: Array[0..29] of AnsiChar; artist: Array[0..29] of AnsiChar; album: Array[0..29] of AnsiChar; year: Array[0..3] of AnsiChar; comment: Array[0..29] of AnsiChar; genre: Byte; end; // Binary APEv2 tag structure PTAG_APE_BINARY = ^TAG_APE_BINARY; TAG_APE_BINARY = record key: PAnsiChar; data: PAnsiChar; length: DWORD; end; // BWF "bext" tag structure PTAG_BEXT = ^TAG_BEXT; TAG_BEXT = packed record Description: Array[0..255] of AnsiChar; // description Originator: Array[0..31] of AnsiChar; // name of the originator OriginatorReference: Array[0..31] of AnsiChar; // reference of the originator OriginationDate: Array[0..9] of AnsiChar; // date of creation (yyyy-mm-dd) OriginationTime: Array[0..7] of AnsiChar; // time of creation (hh-mm-ss) TimeReference: QWORD; // first sample count since midnight (little-endian) Version: Word; // BWF version (little-endian) UMID: Array[0..63] of Byte; // SMPTE UMID Reserved: Array[0..189] of Byte; CodingHistory: Array[0..maxInt div 2 - 1] of AnsiChar; // history end; BASS_DX8_CHORUS = record fWetDryMix: Single; fDepth: Single; fFeedback: Single; fFrequency: Single; lWaveform: DWORD; // 0=triangle, 1=sine fDelay: Single; lPhase: DWORD; // BASS_DX8_PHASE_xxx end; BASS_DX8_COMPRESSOR = record fGain: Single; fAttack: Single; fRelease: Single; fThreshold: Single; fRatio: Single; fPredelay: Single; end; BASS_DX8_DISTORTION = record fGain: Single; fEdge: Single; fPostEQCenterFrequency: Single; fPostEQBandwidth: Single; fPreLowpassCutoff: Single; end; BASS_DX8_ECHO = record fWetDryMix: Single; fFeedback: Single; fLeftDelay: Single; fRightDelay: Single; lPanDelay: BOOL; end; BASS_DX8_FLANGER = record fWetDryMix: Single; fDepth: Single; fFeedback: Single; fFrequency: Single; lWaveform: DWORD; // 0=triangle, 1=sine fDelay: Single; lPhase: DWORD; // BASS_DX8_PHASE_xxx end; BASS_DX8_GARGLE = record dwRateHz: DWORD; // Rate of modulation in hz dwWaveShape: DWORD; // 0=triangle, 1=square end; BASS_DX8_I3DL2REVERB = record lRoom: LongInt; // [-10000, 0] default: -1000 mB lRoomHF: LongInt; // [-10000, 0] default: 0 mB flRoomRolloffFactor: Single; // [0.0, 10.0] default: 0.0 flDecayTime: Single; // [0.1, 20.0] default: 1.49s flDecayHFRatio: Single; // [0.1, 2.0] default: 0.83 lReflections: LongInt; // [-10000, 1000] default: -2602 mB flReflectionsDelay: Single; // [0.0, 0.3] default: 0.007 s lReverb: LongInt; // [-10000, 2000] default: 200 mB flReverbDelay: Single; // [0.0, 0.1] default: 0.011 s flDiffusion: Single; // [0.0, 100.0] default: 100.0 % flDensity: Single; // [0.0, 100.0] default: 100.0 % flHFReference: Single; // [20.0, 20000.0] default: 5000.0 Hz end; BASS_DX8_PARAMEQ = record fCenter: Single; fBandwidth: Single; fGain: Single; end; BASS_DX8_REVERB = record fInGain: Single; // [-96.0,0.0] default: 0.0 dB fReverbMix: Single; // [-96.0,0.0] default: 0.0 db fReverbTime: Single; // [0.001,3000.0] default: 1000.0 ms fHighFreqRTRatio: Single; // [0.001,0.999] default: 0.001 end; // callback function types STREAMPROC = function(handle: HSTREAM; buffer: Pointer; length: DWORD; user: Pointer): DWORD; {$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF}; { User stream callback function. NOTE: A stream function should obviously be as quick as possible, other streams (and MOD musics) can't be mixed until it's finished. handle : The stream that needs writing buffer : Buffer to write the samples in length : Number of bytes to write user : The 'user' parameter value given when calling BASS_StreamCreate RETURN : Number of bytes written. Set the BASS_STREAMPROC_END flag to end the stream. } const // special STREAMPROCs STREAMPROC_DUMMY = Pointer(0); // "dummy" stream STREAMPROC_PUSH = Pointer(-1); // push stream type DOWNLOADPROC = procedure(buffer: Pointer; length: DWORD; user: Pointer); {$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF}; { Internet stream download callback function. buffer : Buffer containing the downloaded data... NULL=end of download length : Number of bytes in the buffer user : The 'user' parameter value given when calling BASS_StreamCreateURL } SYNCPROC = procedure(handle: HSYNC; channel, data: DWORD; user: Pointer); {$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF}; { Sync callback function. NOTE: a sync callback function should be very quick as other syncs cannot be processed until it has finished. If the sync is a "mixtime" sync, then other streams and MOD musics can not be mixed until it's finished either. handle : The sync that has occured channel: Channel that the sync occured in data : Additional data associated with the sync's occurance user : The 'user' parameter given when calling BASS_ChannelSetSync } DSPPROC = procedure(handle: HDSP; channel: DWORD; buffer: Pointer; length: DWORD; user: Pointer); {$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF}; { DSP callback function. NOTE: A DSP function should obviously be as quick as possible... other DSP functions, streams and MOD musics can not be processed until it's finished. handle : The DSP handle channel: Channel that the DSP is being applied to buffer : Buffer to apply the DSP to length : Number of bytes in the buffer user : The 'user' parameter given when calling BASS_ChannelSetDSP } RECORDPROC = function(handle: HRECORD; buffer: Pointer; length: DWORD; user: Pointer): BOOL; {$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF}; { Recording callback function. handle : The recording handle buffer : Buffer containing the recorded sample data length : Number of bytes user : The 'user' parameter value given when calling BASS_RecordStart RETURN : TRUE = continue recording, FALSE = stop } // Functions const {$IFDEF MSWINDOWS} bassdll = 'bass.dll'; {$ENDIF} {$IFDEF LINUX} bassdll = 'libbass.so'; {$ENDIF} {$IFDEF MACOS} bassdll = 'libbass.dylib'; {$ENDIF} function BASS_SetConfig(option, value: DWORD): BOOL; {$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF}; external bassdll; function BASS_GetConfig(option: DWORD): DWORD; {$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF}; external bassdll; function BASS_SetConfigPtr(option: DWORD; value: Pointer): BOOL; {$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF}; external bassdll; function BASS_GetConfigPtr(option: DWORD): Pointer; {$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF}; external bassdll; function BASS_GetVersion: DWORD; {$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF}; external bassdll; function BASS_ErrorGetCode: LongInt; {$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF}; external bassdll; function BASS_GetDeviceInfo(device: DWORD; var info: BASS_DEVICEINFO): BOOL; {$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF}; external bassdll; {$IFDEF MSWINDOWS} function BASS_Init(device: LongInt; freq, flags: DWORD; win: HWND; clsid: PGUID): BOOL; stdcall; external bassdll; {$ELSE} function BASS_Init(device: LongInt; freq, flags: DWORD; win: Pointer; clsid: Pointer): BOOL; cdecl; external bassdll; {$ENDIF} function BASS_SetDevice(device: DWORD): BOOL; {$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF}; external bassdll; function BASS_GetDevice: DWORD; {$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF}; external bassdll; function BASS_Free: BOOL; {$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF}; external bassdll; {$IFDEF MSWINDOWS} function BASS_GetDSoundObject(obj: DWORD): Pointer; {$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF}; external bassdll; {$ENDIF} function BASS_GetInfo(var info: BASS_INFO): BOOL; {$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF}; external bassdll; function BASS_Update(length: DWORD): BOOL; {$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF}; external bassdll; function BASS_GetCPU: Single; {$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF}; external bassdll; function BASS_Start: BOOL; {$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF}; external bassdll; function BASS_Stop: BOOL; {$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF}; external bassdll; function BASS_Pause: BOOL; {$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF}; external bassdll; function BASS_SetVolume(volume: Single): BOOL; {$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF}; external bassdll; function BASS_GetVolume: Single; {$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF}; external bassdll; function BASS_PluginLoad(filename: PChar; flags: DWORD): HPLUGIN; {$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF}; external bassdll; function BASS_PluginFree(handle: HPLUGIN): BOOL; {$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF}; external bassdll; function BASS_PluginGetInfo(handle: HPLUGIN): PBASS_PLUGININFO; {$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF}; external bassdll; function BASS_Set3DFactors(distf, rollf, doppf: Single): BOOL; {$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF}; external bassdll; function BASS_Get3DFactors(var distf, rollf, doppf: Single): BOOL; {$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF}; external bassdll; function BASS_Set3DPosition(var pos, vel, front, top: BASS_3DVECTOR): BOOL; {$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF}; external bassdll; function BASS_Get3DPosition(var pos, vel, front, top: BASS_3DVECTOR): BOOL; {$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF}; external bassdll; procedure BASS_Apply3D; {$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF}; external bassdll; {$IFDEF MSWINDOWS} function BASS_SetEAXParameters(env: LongInt; vol, decay, damp: Single): BOOL; {$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF}; external bassdll; function BASS_GetEAXParameters(var env: DWORD; var vol, decay, damp: Single): BOOL; {$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF}; external bassdll; {$ENDIF} function BASS_MusicLoad(mem: BOOL; f: Pointer; offset: QWORD; length, flags, freq: DWORD): HMUSIC; {$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF}; external bassdll; function BASS_MusicFree(handle: HMUSIC): BOOL; {$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF}; external bassdll; function BASS_SampleLoad(mem: BOOL; f: Pointer; offset: QWORD; length, max, flags: DWORD): HSAMPLE; {$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF}; external bassdll; function BASS_SampleCreate(length, freq, chans, max, flags: DWORD): HSAMPLE; {$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF}; external bassdll; function BASS_SampleFree(handle: HSAMPLE): BOOL; {$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF}; external bassdll; function BASS_SampleSetData(handle: HSAMPLE; buffer: Pointer): BOOL; {$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF}; external bassdll; function BASS_SampleGetData(handle: HSAMPLE; buffer: Pointer): BOOL; {$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF}; external bassdll; function BASS_SampleGetInfo(handle: HSAMPLE; var info: BASS_SAMPLE): BOOL; {$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF}; external bassdll; function BASS_SampleSetInfo(handle: HSAMPLE; var info: BASS_SAMPLE): BOOL; {$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF}; external bassdll; function BASS_SampleGetChannel(handle: HSAMPLE; onlynew: BOOL): HCHANNEL; {$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF}; external bassdll; function BASS_SampleGetChannels(handle: HSAMPLE; channels: Pointer): DWORD; {$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF}; external bassdll; function BASS_SampleStop(handle: HSAMPLE): BOOL; {$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF}; external bassdll; function BASS_StreamCreate(freq, chans, flags: DWORD; proc: STREAMPROC; user: Pointer): HSTREAM; {$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF}; external bassdll; function BASS_StreamCreateFile(mem: BOOL; f: Pointer; offset, length: QWORD; flags: DWORD): HSTREAM; {$IFDEF MSWINDOWS}stdcall{$ELSE}cdecl{$ENDIF}; external bassdll; function BASS_StreamCreateURL(url: PChar; offset: DWORD; flags: DWORD; proc: DOWNLOA Title: Re: Bass Test & Bass Sync with Delphi - Α έτσι μιξάρουν με το μπάσσο οι κουφάλες :P Post by: Katarameno on October 19, 2016, 14:50:05 pm Ξέρω... :-[
Κάδο ;D Title: Re: Bass Test & Bass Sync with Delphi - Α έτσι μιξάρουν με το μπάσσο οι κουφάλες :P Post by: Niobe on October 19, 2016, 16:20:31 pm Σε borland το δοκιμασες αν τρεχει; 8)) 8))
Title: Re: Bass Test & Bass Sync with Delphi - Α έτσι μιξάρουν με το μπάσσο οι κουφάλες :P Post by: Katarameno on October 19, 2016, 23:06:51 pm Όχι απλά το είδα και γελούσα με τα
DRUGGED και PSYCHOTIC :P Με Borland Delphi 7 + θα ανοίγει το αρχείο αλλά θέλει και άλλα, έχει ολόκληρο φάκελλο με άλλα *.pas αρχεία. Title: Re: Bass Test & Bass Sync with Delphi - Α έτσι μιξάρουν με το μπάσσο οι κουφάλες :P Post by: Αλντεμπαράν on October 19, 2016, 23:29:17 pm Στην 34η γραμμή ξέχασες το ερωτηματικό και θα σου χτυπήσει
Title: Re: Bass Test & Bass Sync with Delphi - Α έτσι μιξάρουν με το μπάσσο οι κουφάλες :P Post by: Katarameno on October 19, 2016, 23:47:03 pm Τσου ρε κουνοδάχτυλε :D ;D :P
C++σάκια που θα με πεις οτι χτυπάει στη γραμμή 34 :P Aπλά πολύ παρακάτω είχε ένα σε αγκύλη που το SMF το έβλεπε ως tag για να τα δείχνει italic και το έβαλα italic από την αρχή για να δείχνει ωραία, και άρα ναι, δίκιο έχει η Niobe, το κείμενο αν το έπαιρνες σε *.pas δεν άνοιγε, το σωστό είναι μέσα στο *.rar Στο rar είναι όλο το δέντρο φακέλλων που χρειάζεται για να ανοίξει ως Delphi Project και να κάνει compile για να "φτύσει" μάλλον το bass.dll το οποίο το χρησιμοποιούν άλλες εφαρμογές για dj για να κάνουν μείξη με βάση τα μπάσσα (bass swap mix) και όχι το κλασσικό beat mix. (υποθέτω δηλαδή γιατί τουλάχιστον ένα προγραμματάκι, το 1by1 [ http://mpesch3.de1.cc/1by1.html ] λέει οτι μπορεί να το φορτώσει για να μπορεί να κάνει και bass swap mix 8)) Και πάλι λάθος : το σωστό project είναι αυτό στο τρέχον zip - Κάνει compile και βγάζει ένα BassTest.exe αλλά χτυπάει γιατί λείπει το bass.dll όπως μου λέει όταν τρέχω το .exe Προφανώς αυτό το .dll πρέπει να το βάλω κάπου αλλά καλύτερα να μη μαντέψω θα βγει ακατάλληλο: μάλλον στον κλασσικό φάκελλο Title: Re: Bass Test & Bass Sync with Delphi - Α έτσι μιξάρουν με το μπάσσο οι κουφάλες :P Post by: Katarameno on October 19, 2016, 23:59:30 pm Α λάθος, τώρα είδα οτι είναι κομμένο το κείμενο :D Δεν άντεξε το SMF, σε κάποιο σημείο λέει στον κώδικα :
implementation function BASS_SPEAKER_N(n: DWORD): DWORD; begin Result := n shl 24; end; {$IFDEF MSWINDOWS} function BASS_SetEAXPreset(env: LongInt): BOOL; begin case (env) of EAX_ENVIRONMENT_GENERIC: Result := BASS_SetEAXParameters(EAX_ENVIRONMENT_GENERIC, 0.5, 1.493, 0.5); EAX_ENVIRONMENT_PADDEDCELL: Result := BASS_SetEAXParameters(EAX_ENVIRONMENT_PADDEDCELL, 0.25, 0.1, 0); EAX_ENVIRONMENT_ROOM: Result := BASS_SetEAXParameters(EAX_ENVIRONMENT_ROOM, 0.417, 0.4, 0.666); EAX_ENVIRONMENT_BATHROOM: Result := BASS_SetEAXParameters(EAX_ENVIRONMENT_BATHROOM, 0.653, 1.499, 0.166); EAX_ENVIRONMENT_LIVINGROOM: Result := BASS_SetEAXParameters(EAX_ENVIRONMENT_LIVINGROOM, 0.208, 0.478, 0); EAX_ENVIRONMENT_STONEROOM: Result := BASS_SetEAXParameters(EAX_ENVIRONMENT_STONEROOM, 0.5, 2.309, 0.888); EAX_ENVIRONMENT_AUDITORIUM: Result := BASS_SetEAXParameters(EAX_ENVIRONMENT_AUDITORIUM, 0.403, 4.279, 0.5); EAX_ENVIRONMENT_CONCERTHALL: Result := BASS_SetEAXParameters(EAX_ENVIRONMENT_CONCERTHALL, 0.5, 3.961, 0.5); EAX_ENVIRONMENT_CAVE: Result := BASS_SetEAXParameters(EAX_ENVIRONMENT_CAVE, 0.5, 2.886, 1.304); EAX_ENVIRONMENT_ARENA: Result := BASS_SetEAXParameters(EAX_ENVIRONMENT_ARENA, 0.361, 7.284, 0.332); EAX_ENVIRONMENT_HANGAR: Result := BASS_SetEAXParameters(EAX_ENVIRONMENT_HANGAR, 0.5, 10.0, 0.3); EAX_ENVIRONMENT_CARPETEDHALLWAY: Result := BASS_SetEAXParameters(EAX_ENVIRONMENT_CARPETEDHALLWAY, 0.153, 0.259, 2.0); EAX_ENVIRONMENT_HALLWAY: Result := BASS_SetEAXParameters(EAX_ENVIRONMENT_HALLWAY, 0.361, 1.493, 0); EAX_ENVIRONMENT_STONECORRIDOR: Result := BASS_SetEAXParameters(EAX_ENVIRONMENT_STONECORRIDOR, 0.444, 2.697, 0.638); EAX_ENVIRONMENT_ALLEY: Result := BASS_SetEAXParameters(EAX_ENVIRONMENT_ALLEY, 0.25, 1.752, 0.776); EAX_ENVIRONMENT_FOREST: Result := BASS_SetEAXParameters(EAX_ENVIRONMENT_FOREST, 0.111, 3.145, 0.472); EAX_ENVIRONMENT_CITY: Result := BASS_SetEAXParameters(EAX_ENVIRONMENT_CITY, 0.111, 2.767, 0.224); EAX_ENVIRONMENT_MOUNTAINS: Result := BASS_SetEAXParameters(EAX_ENVIRONMENT_MOUNTAINS, 0.194, 7.841, 0.472); EAX_ENVIRONMENT_QUARRY: Result := BASS_SetEAXParameters(EAX_ENVIRONMENT_QUARRY, 1, 1.499, 0.5); EAX_ENVIRONMENT_PLAIN: Result := BASS_SetEAXParameters(EAX_ENVIRONMENT_PLAIN, 0.097, 2.767, 0.224); EAX_ENVIRONMENT_PARKINGLOT: Result := BASS_SetEAXParameters(EAX_ENVIRONMENT_PARKINGLOT, 0.208, 1.652, 1.5); EAX_ENVIRONMENT_SEWERPIPE: Result := BASS_SetEAXParameters(EAX_ENVIRONMENT_SEWERPIPE, 0.652, 2.886, 0.25); EAX_ENVIRONMENT_UNDERWATER: Result := BASS_SetEAXParameters(EAX_ENVIRONMENT_UNDERWATER, 1, 1.499, 0); EAX_ENVIRONMENT_DRUGGED: Result := BASS_SetEAXParameters(EAX_ENVIRONMENT_DRUGGED, 0.875, 8.392, 1.388); EAX_ENVIRONMENT_DIZZY: Result := BASS_SetEAXParameters(EAX_ENVIRONMENT_DIZZY, 0.139, 17.234, 0.666); EAX_ENVIRONMENT_PSYCHOTIC: Result := BASS_SetEAXParameters(EAX_ENVIRONMENT_PSYCHOTIC, 0.486, 7.563, 0.806); else Result := FALSE; end; end; {$ENDIF} end. Title: Re: Bass Test & Bass Sync with Delphi - Α έτσι μιξάρουν με το μπάσσο οι κουφάλες :P Post by: Obarack Sand on October 20, 2016, 00:09:48 am Στην 34η γραμμή ξέχασες το ερωτηματικό και θα σου χτυπήσει Σε borland το δοκιμασες αν τρεχει; 8)) 8)) Εγώ για αυτά μπήκα. :D :D Title: Re: Bass Test & Bass Sync with Delphi - Α έτσι μιξάρουν με το μπάσσο οι κουφάλες :P Post by: Katarameno on October 20, 2016, 01:04:09 am Έκανε compile με Delphi 7 αλλά το .exe που παράγεται δεν ανοίγει - βγάζει error οτι του λείπει το bass.dll
(https://s3.postimg.org/8n69ie7yb/Screenshot_1.jpg) (https://s3.postimg.org/xhprcgssj/Screenshot_2.jpg) (https://s3.postimg.org/tmmd9w9mp/Screenshot_3.jpg) https://s3.postimg.org/8n69ie7yb/Screenshot_1.jpg https://s3.postimg.org/xhprcgssj/Screenshot_2.jpg https://s3.postimg.org/tmmd9w9mp/Screenshot_3.jpg Title: Re: Bass Test & Bass Sync with Delphi - Α έτσι μιξάρουν με το μπάσσο οι κουφάλες :P Post by: Obarack Sand on October 20, 2016, 10:37:34 am (https://snag.gy/8qDKAu.jpg)
https://www.youtube.com/watch?v=bJ9r8LMU9bQ Title: Re: Bass Test & Bass Sync with Delphi - Α έτσι μιξάρουν με το μπάσσο οι κουφάλες :P Post by: Katarameno on October 21, 2016, 05:43:53 am E, και τι εννοείς δηλ ? ::) Oτι το Lock The Taskbar σου θυμίζει το Rock The Caspah? :P
Ήταν το ποντίκι στο Taskbar και είχα πατήσει δεξί κλικ, όπου βγάζει το μενού στο οποίο φαίνεται οτι έχω "Locked" το taskbar μου [ τι πιο λογικό με τόσα που έχω βάλει εκεί ::) :P ] και μετά το κούνησα παραδίπλα πιο αριστερά στο εικονίδιο του Lightshot γιατί εκεί ήθελα να κάνω δεξί κλικ για να βγάλω το screenshot αλλά τελικά πάτησα το κουμπί PrtScr για να τελειώνουμε μια ώρα αρχύτερα :P Μη με κράζετε πάλι δημοσίως που έχω πολλά εικονίδια στο Taskbar . Φόρο τώρα σε όσους έχουν πολλές συντομεύσεις pinned to taskbar ;D (https://s16.postimg.org/5jew1bwbp/Screenshot_3.jpg) Κράξτε όσο θέλτε ;D Nαι, τώρα που το ξαναβλέπω δεν εξήγησα τι πως που. Είναι από το MixMeister το εργαλείο για djιλίκια με το οποίο κάνω και τα σετάκια που φτιάχνω (αυτά τα τεράστια μουσικά σεντόνια) Έχει μια λειτουργία / επιλογή Mix with Bass / Bass Sync το εργαλείο εκτός από την συνηθισμένη που είναι η μείξη με το ρυθμό στα beat των κομματιών που θέλεις να μειξάρεις. Εξ ου και κάπως έφτασα να βρω σε ένα άλλο site για Delphi programming τον κώδικα για το πως το κάνουν. Εξ ου και το "Α έτσι μιξάρουν με το μπάσσο οι κουφάλες" (developers του MixMeister). ;) :P Tελικά έκανα λίγο RTFM (Read the f*ckin' manual και κάνει κανονικά Compile / Build / Run και παίζει κανονικά μουσικάρες και ποιο άλλο να δοκίμαζα πρώτο, το έπος Soula :D (https://i.ibb.co/ZBvV2LD/000.png) (https://ibb.co/X76bY2R) (https://i.ibb.co/GdYZzQg/001.png) (https://imgbb.com/) (https://i.ibb.co/47Xd9QV/002.png) (https://ibb.co/CzY2NrH) (https://i.ibb.co/9hKPZgH/003.png) (https://ibb.co/W08CV5v) (https://i.ibb.co/Qc4cPph/004.png) (https://ibb.co/j5S5ybq) |