Go to most recent revision | Blame | Last modification | View Log | RSS feed
# ´ u¹â6‚×0ù DXSounds– <pDelphiXcfg.inch½ö(pDXSounds.pasi½ö( dSystem gTObject.SafeCallException²
Ä„gTObject.AfterConstruction³
Ä„gTObject.BeforeDestruction´
Ä„gTObject.Dispatchµ
Ä„gTObject.DefaultHandler¶
Ä„gTObject.NewInstance·
Ä„gTObject.FreeInstance¸
Ä„gTObject.Destroy¹
Ä„fBooleanúefInteger ™fÂfPGUID3ÝifTObject|ê®ìfPointerï•fLongint ™fÂfstring¶+{Ÿf
AnsiString¶+{ŸgFalsesÉšøg.TObject_¾Œ>fTGUIDuÀ~fIUnknownJXÓþfHRESULT[ìÀ€g@IntfAddRefë–ég
@IntfClear-Џ\g@HandleFinallyé`pÅg LoadResString[Wbg@HandleAnyExceptioné`pÅg@RaiseExcepté`pÅg@DoneExcepté`pÅg@LStrClr\ª«>gTruevÉšøg@LStrFromPChar7ÞogTObject.Free¢
Ä„g@RaiseAgainé`pÅgTObject.Create¡
Ä„g@ClassCreateçVÃg @LStrArrayClrüŸg@AfterConstructionƒKg@BeforeDestructionºS«g @ClassDestroyüÅàŽg @IntfCopy>¦y¼g@IsClass“˜¡g@FinalizeArray*´gMove=ÉiðgExit gHigh gInc gFreeMem g@FreeMemõ˜+ÂgGetMem g@GetMemõ˜+ÂgFillChar gSizeOf g @FillCharž$šgDec g@HandleOnExceptioné`pÅg@AsClassEÞTÒfByteµág@LStrCmpé`pÅg@LStrAsg‘ÔœgBreak gAssigned gLow fTMethodÛ‘IgNew gDispose cdSysInit cdWindows fDWORDIÐáKfTHandleIÐáKfLPCSTR“u½RfBOOL;»éfPDWORD ¶=gCreateEventõ¹BgSetEventÀªBgCloseHandleÀªBgWaitForSingleObjectŽÂ-¡gWAIT_TIMEOUT3õò1gMulDiv6½ÍVgIsBadHugeReadPtrdÃ\ cdMessages fTMessageÝ=5g WM_CREATE¯}ç1cdSysUtils f Exception¢úÌ!g
.Exception…ΪsgException.CreateÉâ¹gException.CreateFmtÊâ¹g
fmOpenRead¬}ç1gfmShareDenyWrite~ç1gSleeprFßjg
CompareMem.ì|cdClasses fTListv rfTPersistentÁ1ÙgTPersistent.AssignToç!FqgTPersistent.DefinePropertiesè!FqgTPersistent.Assignë!FqfTStream¬Ï{‚fTThread|–`fTCollectionItemk GÐg.TCollectionItemNá$"gTCollectionItem.GetDisplayName•-\hgTCollectionItem.SetCollection–-\hgTCollectionItem.SetIndex—-\hgTCollectionItem.SetDisplayName˜-\hgTCollectionItem.Create™-\hgTCollectionItem.Destroyš-\hfTCollection\.Ȉg.TCollection?¦ÚgTCollection.AddedŒNÝ gTCollection.DeletingNÝ gTCollection.NotifyNÝ gTCollection.SetItemName–NÝ gTCollection.Update—NÝ gTCollection.Destroy›NÝ gTCollection.AssignžNÝ gTCollection.BeginUpdateŸNÝ gTCollection.EndUpdate¢NÝ fTNotifyEventè³ögTStream.GetSizeÔïgTStream.SetSizeÖïgTStream.SeekÚïf
TComponentƒAfg.TComponentfù·gTComponent.DefinePropertiesÀ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þf
TOperationNåuGgTComponent.LoadedÅa0þg.TListYÝOÿgTPersistent.Destroyê!Fqg TList.Getž)‡Eg TList.Add¥)‡EgTList.Remove³)‡EfTFileStream4¸îµg.TFileStreamŒÌgTFileStream.CreateZØNg.TThreadPt²gTThread.DoTerminate䜫øgTThread.AfterConstruction윫øgTThread.CreateꜫøgTThread.Destroy뜫øgTThread.Synchronize眫øgTStream.SetPositionÒïgTStream.ReadBufferÛïgTCollection.CreatešNÝ gTCollection.GetItem”NÝ gTCollection.GetCount‡NÝ gTThread.Resume휫øgTList.Delete§)‡EgTComponent.CreateÞa0þgTComponent.Destroyßa0þf.35È@ÙXgcsDesigningMêÖëg
TList.Move²)‡EgTCollection.Clear NÝ gTStream.ReadComponentResßïgfmCreate*r2gTStream.WriteComponentResáïgopRemoveÊŽsÚcdControls f
TWndMethodˆ8gTWinControl.GetHandleœ;¾ßcdForms fTCustomFormI].‘gApplicationç_šfTApplicationÙ²EšgTApplication.HandleExceptiontÓZ2g.TCustomForm,1ãcdExtCtrls fTTimer7õNg.TTimerö
Ӡg TTimer.CreateBW
çgTTimer.SetInterval>W
çgTTimer.SetOnTimer?W
çgTTimer.SetEnabled=W
çcdMMSystem f PWaveFormatExeKéØf tWAVEFORMATEXU »šcdDirectX fIDirectSoundglLëfIDirectSoundBuffer±¸Ø'fTDSBCapsÈßQyf TDSBufferDescCr®fIDirectSoundCaptureBuffer¶Ha›fIDirectSoundCaptureìUUfTDSEnumCallbackA 3ŸsgDS_OKÔ•¾gDSERR_BUFFERLOST–—&gDSBSTATUS_PLAYING¯}ç1gDSBSTATUS_LOOPING¸}ç1gDSBPLAY_LOOPING¯}ç1gDSBCAPS_CTRLDEFAULTÌ‹ç1gDSBCAPS_STICKYFOCUS-²ó1gDSBCAPS_GLOBALFOCUS-òÿ1gDSBCAPS_GETCURRENTPOSITION2/rê±fTDSCBufferDescí‹gDSCBSTART_LOOPING¯}ç1gDSBCAPS_PRIMARYBUFFER¯}ç1gDSSCL_EXCLUSIVEµ}ç1gDSSCL_NORMAL¯}ç1cdDXClass f EDirectXErrorޤø>g.EDirectXErrorqxÖfTDirectX€®™KfTDirectXDriversô'g .TDirectXc‚wgTDirectX.Check§Î®ãfTControlSubClass:?|…fTHashCollectionItem»ƒg.THashCollectionItemžòøÔg"THashCollectionItem.GetDisplayNameè>0gTHashCollectionItem.SetIndexé>0fTHashCollection„>ðCg.THashCollectiongΕg DXLoadLibrary?wˆ“fTDirectXDriverN’4Ág.TDirectXDriver1fgTDirectXDriver.SetGUIDw²IYg.TDirectXDriversêÇVgTDirectXDrivers.Create-=œgTDirectX.SetDXResult¥Î®ãgMin…Ò´gMax
…Ò´g.TControlSubClassZ×gTControlSubClass.Createc_‘gTHashCollectionItem.Createê>0gTHashCollectionItem.Destroyë>0gTHashCollectionItem.SetNameå>0gTHashCollectionItem.Assignì>0gTHashCollection.IndexOfª^ÜcdWave fTWave-¸h/fTCustomWaveStream]OÖBfTWaveFileStream͘ÕfEWaveStreamError og.EWaveStreamErrorýàûÀfTCustomWaveStream2˜lâg.TCustomWaveStream2ÿkJ4gTCustomWaveStream2.GetFormatC¸zg TCustomWaveStream2.GetFormatSizeD¸zg TCustomWaveStream2.SetFormatSizeE¸zgTCustomWaveStream.GetSize†oëÚgTCustomWaveStream.SetSize‰oëÚgTCustomWaveStream.WriteWaveŠoëÚgTCustomWaveStream.Read‹oëÚgTCustomWaveStream.SeekŒoëÚgTCustomWaveStream.WriteoëÚg.TWaveŒFgTWave.LoadFromStream_Ø}Çg.TWaveFileStream°l³VgTWaveFileStream.Createó¸êœfTWaveStream7ògTWaveStream.Open@W1ŠgMakePCMWaveFormatExLÒÉgTCustomWaveStream2.DestroyF¸zceDXConsts gSSinceDirectX5iif@gSCannotInitializediif@gSDirectSoundiif@gSNotMadeiif@gSCannotLockiif@gSDirectSoundBufferiif@gSCannotMadeiif@gSWaveStreamNotSetiif@gSDir
ectSoundCaptureiif@gSDirectSoundCaptureBufferiif@gSNoFormiif@gSDirectSoundPrimaryBufferiif@g SWaveNotFoundiif@c5DXSounds€ _¸ŽÏc5System c5SysInit ˆc5Windows Šc5Messages ¤c5SysUtils ªc5Classes ¼c5Controls ©c5Forms µc5ExtCtrls Íc5MMSystem éc5DirectX õc5DXClass Mc5Wave Åc&.EDirectSoundError€ ‚o‰v *EDirectSoundErrorˆ Ÿ›«¿x&.EDirectSoundBufferError€ lùU(z *EDirectSoundBufferErrorˆ ‰%xÖ|& .TDirectSound€ íY³k~ *TDirectSoundˆ
†Õ€&.TDirectSoundBuffer€ W5[ð‚ *TDirectSoundBufferˆ ta}ž„&.EAudioStreamError€ lï† *EAudioStreamErrorˆ ‰<ºˆ& .TAudioStream€ [d4Š *TAudioStreamˆ x3âŒ&.TAudioFileStream€ ãB_Ž *TAudioFileStreamˆ :e &.TSoundCaptureFormat€ Þ0Öú’ *TSoundCaptureFormatˆ û\ø¨”&.TSoundCaptureFormats€ V¢f– *TSoundCaptureFormatsˆ s.Ę&.ESoundCaptureStreamError€ ÇÑZ†š *ESoundCaptureStreamErrorˆ äý|4œ&.TSoundCaptureStream€ ì:CÕž *TSoundCaptureStreamˆ geƒ & .TSoundEngine€ Õݧڢ *TSoundEngineˆ ò ʈ¤&.EDXSoundError€ ³á¦ * EDXSoundErrorˆ Ð <±¨% soGlobalFocusŠ «gˆª % soStickyFocusŠ ®gˆª %soExclusiveŠ ±gˆª *TDXSoundOptionˆ 2¾
õª*TDXSoundOptionsˆ @3J¬%dsntDestroyingŠ »,^® %dsntInitializingŠ ¾,^® %dsntInitializeŠ Á,^® %dsntFinalizeŠ Ä,^® %dsntRestoreŠ Ç,^® *TDXSoundNotifyTypeˆ Bv.Ë®*TDXSoundNotifyEventˆ ¹Ûsí°&.TCustomDXSound€ ÜÙï2² *TCustomDXSoundˆ ùá´& .TDXSound€ о‹i¶ *TDXSoundˆ §ê¸&.EWaveCollectionError€ ÃX8º *EWaveCollectionErrorˆ Êïzæ¼&.TWaveCollectionItem€ ‹k¾ *TWaveCollectionItemˆ ¨Ù.À&.TWaveCollection€ ¼+Ÿ8 *TWaveCollectionˆ ÙWÁæÄ&.TCustomDXWaveList€ ïÅ(6Æ *TCustomDXWaveListˆ òJäÈ&.TDXWaveList€ ¤²Ê *TDXWaveListˆ ¬Ð8`Ì7.12F Î 5DXConsts )c(DXDirectSoundCreate ¡ !lpGUID "lpDSÍ Lð! pUnkOuterf ø Result *TDirectSoundCreate Ðc(DXDirectSoundEnumerate !
lpCallback X! lpContext
Result *TDirectSoundEnumerate Òc(DXDirectSoundCaptureCreate !lpGUID "lplpDSCÍ Vð! pUnkOuterf ø Result *TDirectSoundCaptureCreate Ôc(DXDirectSoundCaptureEnumerate Q !
lpCallback X! lpContext
Result *TDirectSoundCaptureEnumerate Öc DirectSoundDriversf `U DirectSoundCaptureDriversf `Y(%EnumDirectSoundDrivers_DSENUMCALLBACK ‚"