Details | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
1 | daniel-mar | 1 | # ´ u¹â6×0ù DXSounds <pDelphiXcfg.inch½ö(pDXSounds.pasi½ö( dSystem gTObject.SafeCallException² |
2 | ÄgTObject.AfterConstruction³ |
||
3 | ÄgTObject.BeforeDestruction´ |
||
4 | ÄgTObject.Dispatchµ |
||
5 | ÄgTObject.DefaultHandler¶ |
||
6 | ÄgTObject.NewInstance· |
||
7 | ÄgTObject.FreeInstance¸ |
||
8 | ÄgTObject.Destroy¹ |
||
9 | ÄfBooleanúefInteger fÂfPGUID3ÝifTObject|ê®ìfPointerïfLongint fÂfstring¶+{f |
||
10 | AnsiString¶+{gFalsesÉøg.TObject_¾>fTGUIDuÀ~fIUnknownJXÓþfHRESULT[ìÀg@IntfAddRefëég |
||
11 | @IntfClear-¸\g@HandleFinallyé`pÅg LoadResString[Wbg@HandleAnyExceptioné`pÅg@RaiseExcepté`pÅg@DoneExcepté`pÅg@LStrClr\ª«>gTruevÉøg@LStrFromPChar7ÞogTObject.Free¢ |
||
12 | Äg@RaiseAgainé`pÅgTObject.Create¡ |
||
13 | Äg@ClassCreateçVÃg @LStrArrayClrüg@AfterConstructionKg@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ÐáKfLPCSTRu½RfBOOL;»éfPDWORD ¶=gCreateEventõ¹BgSetEventÀªBgCloseHandleÀªBgWaitForSingleObjectÂ-¡gWAIT_TIMEOUT3õò1gMulDiv6½ÍVgIsBadHugeReadPtrdÃ\ cdMessages fTMessageÝ=5g WM_CREATE¯}ç1cdSysUtils f Exception¢úÌ!g |
||
14 | .Exception ΪsgException.CreateÉâ¹gException.CreateFmtÊâ¹g |
||
15 | fmOpenRead¬}ç1gfmShareDenyWrite~ç1gSleeprFßjg |
||
16 | 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.AddedNÝ gTCollection.DeletingNÝ gTCollection.NotifyNÝ gTCollection.SetItemNameNÝ gTCollection.UpdateNÝ gTCollection.DestroyNÝ gTCollection.AssignNÝ gTCollection.BeginUpdateNÝ gTCollection.EndUpdate¢NÝ fTNotifyEventè³ögTStream.GetSizeÔïgTStream.SetSizeÖïgTStream.SeekÚïf |
||
17 | TComponentAfg.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 |
||
18 | 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.CreateNÝ gTCollection.GetItemNÝ gTCollection.GetCountNÝ gTThread.Resumeí«øgTList.Delete§)EgTComponent.CreateÞa0þgTComponent.Destroyßa0þf.35È@ÙXgcsDesigningMêÖëg |
||
19 | TList.Move²)EgTCollection.Clear NÝ gTStream.ReadComponentResßïgfmCreate*r2gTStream.WriteComponentResáïgopRemoveÊsÚcdControls f |
||
20 | TWndMethod8gTWinControl.GetHandle;¾ßcdForms fTCustomFormI].gApplicationç_fTApplicationÙ²EgTApplication.HandleExceptiontÓZ2g.TCustomForm,1ãcdExtCtrls fTTimer7õNg.TTimerö |
||
21 | Ӡg TTimer.CreateBW |
||
22 | çgTTimer.SetInterval>W |
||
23 | çgTTimer.SetOnTimer?W |
||
24 | çgTTimer.SetEnabled=W |
||
25 | çcdMMSystem f PWaveFormatExeKéØf tWAVEFORMATEXU »cdDirectX fIDirectSoundglLëfIDirectSoundBuffer±¸Ø'fTDSBCapsÈßQyf TDSBufferDescCr®fIDirectSoundCaptureBuffer¶HafIDirectSoundCaptureìUUfTDSEnumCallbackA 3sgDS_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 .TDirectXcwgTDirectX.Check§Î®ãfTControlSubClass:?| fTHashCollectionItem»g.THashCollectionItemòøÔg"THashCollectionItem.GetDisplayNameè>0gTHashCollectionItem.SetIndexé>0fTHashCollection>ðCg.THashCollectiongÎg DXLoadLibrary?wfTDirectXDriverN4Á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ýàûÀfTCustomWaveStream2lâg.TCustomWaveStream2ÿkJ4gTCustomWaveStream2.GetFormatC¸zg TCustomWaveStream2.GetFormatSizeD¸zg TCustomWaveStream2.SetFormatSizeE¸zgTCustomWaveStream.GetSizeoëÚgTCustomWaveStream.SetSizeoëÚgTCustomWaveStream.WriteWaveoëÚgTCustomWaveStream.ReadoëÚgTCustomWaveStream.SeekoëÚgTCustomWaveStream.WriteoëÚg.TWaveFgTWave.LoadFromStream_Ø}Çg.TWaveFileStream°l³VgTWaveFileStream.Createó¸êfTWaveStream7ògTWaveStream.Open@W1gMakePCMWaveFormatExLÒÉgTCustomWaveStream2.DestroyF¸zceDXConsts gSSinceDirectX5iif@gSCannotInitializediif@gSDirectSoundiif@gSNotMadeiif@gSCannotLockiif@gSDirectSoundBufferiif@gSCannotMadeiif@gSWaveStreamNotSetiif@gSDirectSoundCaptureiif@gSDirectSoundCaptureBufferiif@gSNoFormiif@gSDirectSoundPrimaryBufferiif@g SWaveNotFoundiif@c5DXSounds _¸Ïc5System c5SysInit c5Windows c5Messages ¤c5SysUtils ªc5Classes ¼c5Controls ©c5Forms µc5ExtCtrls Íc5MMSystem éc5DirectX õc5DXClass Mc5Wave Åc&.EDirectSoundError ov *EDirectSoundError «¿x&.EDirectSoundBufferError lùU(z *EDirectSoundBufferError %xÖ|& .TDirectSound íY³k~ *TDirectSound |
||
26 | Õ&.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¾ |
||
27 | õª*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 ! |
||
28 | lpCallback X! lpContext |
||
29 | Result *TDirectSoundEnumerate Òc(DXDirectSoundCaptureCreate !lpGUID "lplpDSCÍ Vð! pUnkOuterf ø Result *TDirectSoundCaptureCreate Ôc(DXDirectSoundCaptureEnumerate Q ! |
||
30 | lpCallback X! lpContext |
||
31 | Result *TDirectSoundCaptureEnumerate Öc DirectSoundDriversf `U DirectSoundCaptureDriversf `Y(%EnumDirectSoundDrivers_DSENUMCALLBACK " |