Go to most recent revision | Details | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 1 | daniel-mar | 1 | # Q u¹â6×0ù Wave <pDelphiXcfg.inch½ö(pWave.pasj½ö( 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 | ÄfPointerïfInteger fÂfstring¶+{f |
||
| 10 | AnsiString¶+{fLongint fÂfWordNùg@AbstractErroré`pÅfTObject|ê®ìfBooleanú eg@BeforeDestructionºS«g
@ClassDestroyüÅàgMove=Éiðg@IsClass¡gFreeMem g@FreeMemõ+ÂgTruevÉøg TObject.Free¢ |
||
| 11 | Äg@HandleFinallyé`pÅgFalsesÉøgExit g |
||
| 12 | ReallocMem g @ReallocMem,Ä«\gSizeOf gTObject.Create¡ |
||
| 13 | Äg @ClassCreateçVÃg@AfterConstructionKgInc gOrd g LoadResString[Wbg @RaiseExcepté`pÅg@LStrClr\ª«>gFillChar g @FillChar$ g @LStrArrayClrücdSysInit cdWindows cdSysUtils f Exception¢úÌ!g |
||
| 14 | .Exception Ϊsg |
||
| 15 | fmOpenRead¬}ç1gfmShareDenyWrite ~ç1gException.CreateÉâ¹cdClasses f TPersistentÁ1ÙfTFilerò)| fTStream¬Ï{g .TPersistent¤Õ+gTPersistent.AssignToç!Fqf |
||
| 16 | TComponentAfg .TComponentfù·gTComponent.DefinePropertiesÀa0þgTComponent.LoadedÅa0þgTComponent.NotificationÆa0þgTComponent.ReadStateÈa0þgTComponent.SetNameÍa0þgTComponent.UpdateRegistryÒa0þgTComponent.ValidateRenameÓa0þgTComponent.WriteStateÖa0þgTComponent.QueryInterface×a0þg TComponent.BeforeDestructionàa0þg TComponent.SafeCallExceptionïa0þgTPersistent.Assignë!Fqg.TStream£YÔgTStream.GetSizeÔïgTStream.SetSizeÖïg TStream.SeekÚïf TFileStream4¸îµgTPersistent.Destroyê!Fqg TPersistent.DefinePropertiesè!Fqg .TFileStreamÌgTFileStream.CreateZØNgTStream.ReadBufferÛïgfmCreate*r2gTStream.WriteBufferÜïgTComponent.CreateÞa0þgTComponent.Destroyßa0þgsoFromBeginning¬}ç1g soFromCurrent¯}ç1g soFromEnd²}ç1gTStream.GetPositionÑïgTStream.SetPositionÒïcdMMSystem f PWaveFormatExeKéØf tWAVEFORMATEXU »gWAVE_FORMAT_PCM¯}ç1ceDXConsts gSStreamNotOpendiif@g SStreamOpendiif@g SInvalidWaveiif@gSInvalidWaveFormatiif@c5Wave _¸Ïc5System c5SysInit Zc5Windows \c5SysUtils ^c5Classes jc5MMSystem ¸c& .EWaveError Ñõ¸ " * |
||
| 17 | EWaveError î!Û»$&.TWave F& *TWave -¸h/(&.TCustomDXWave ûÁ/* * TCustomDXWave î«Ý,&.TDXWave sX8ø. *TDXWave Z¦0&.EWaveStreamError ýàûÀ2 *EWaveStreamError o4&.TCustomWaveStream @#´6 *TCustomWaveStream ]OÖB8(TCustomWaveStream.GetFormat oëÚ |
||
| 18 | Ü 8!Self 8 cð 8( TCustomWaveStream.SetFormatSize oëÚ |
||
| 19 | È:8!Self 8 !Value cô 8&.TCustomWaveStream2 ÿkJ4< *TCustomWaveStream2 lâ>&.TWaveObjectStream q3@ *TWaveObjectStream ²U>B& .TWaveStream ï |
||
| 20 | úCD * TWaveStream 7 òF&.TWaveFileStream °l³VH *TWaveFileStream ÍÕJ7.11F L 5DXConsts Àc(MakePCMWaveFormatEx LÒÉ : "Format ! SamplesPerSec ! BitsPerSample !Channels& c% WavePoolSize |
||
| 21 | N ~( TWave.Destroy [Ø}Ç X1:(!Self (!. Pc5 (( TWave.Assign \Ø}Ç Î:(!Self (!Source AWave (cA (( TWave.Clear ]Ø}Ç R:(!Self (cQ ((TWave.DefineProperties XØ}Ç :(!Self (!Filer cY ((TWave.LoadFromFile ^Ø}Ç ¦:(!Self (!FileName Streamf øce ((TWave.LoadFromStream _Ø}Ç }:(!Self (!Stream |
||
| 22 | WaveStreamf Føcu ((TWave.ReadData YØ}Ç :(!Self ( !Stream c ((TWave.SaveToFile `Ø}Ç ¬:(!Self (!FileName Streamf øc ((TWave.SaveToStream aØ}Ç -:(!Self (!Stream |
||
| 23 | WaveStreamf Føc¡ ((TWave.SetFormatSize VØ}Ç 8:(!Self (!Value c± ((TWave.SetPCMFormat bØ}Ç ^:(!Self (! SamplesPerSec ! BitsPerSample |
||
| 24 | !Channels& c½ (( TWave.SetSize WØ}Ç :(!Self (!Value i cÑ ((TWave.WriteData ZØ}Ç :(!Self ( !Stream cá ((TCustomDXWave.Create ?Áu :,!Self ,!. P!AOnwer cí ,(TCustomDXWave.Destroy @Áu Z1:,!Self ,!. Pcý ,(TCustomDXWave.SetWave >Áu :,!Self , !Value (c ,( TCustomWaveStream.GetFilledSize oëÚ 8!Self 8 Result c 8( TCustomWaveStream.GetFormatSize oëÚ 8!Self 8 Result c! 8(TCustomWaveStream.GetSize oëÚ 8!Self 8 Result c- 8(TCustomWaveStream.Read oëÚ Î |
||
| 25 | 8!Self 8"Buffer : |
||
| 26 | !Count |
||
| 27 | Result |
||
| 28 | c9 8(TCustomWaveStream.ReadWave oëÚ 8!Self 8 "Buffer :!Count Result cM 8(TCustomWaveStream.Seek oëÚ ¤a |
||
| 29 | 8!Self 8!Offset |
||
| 30 | !Origin Result |
||
| 31 | ca 8( TCustomWaveStream.SetPCMFormat oëÚ f:8!Self 8! SamplesPerSec ! BitsPerSample |
||
| 32 | |||
| 33 | 8!Self 8"Buffer :!Count |
||
| 34 | |||
| 35 | Result |
||
| 36 | c 8(TCustomWaveStream.WriteWave oëÚ 8!Self 8 "Buffer :!Count Result c© 8(TCustomWaveStream2.Destroy F¸z \1:>!Self >!. Pc½ >( TCustomWaveStream2.GetFormat C¸z >!Self > Result cÉ >( TCustomWaveStream2.GetFormatSize D¸z >!Self > Result cÕ >( TCustomWaveStream2.SetFormatSize E¸z ,:>!Self >!Value cá >(TWaveObjectStream.Create »ÒjÖ Ø:B!Self B!.f Pþ!AWave (cí B(TWaveObjectStream.GetFormat ´ÒjÖ B!Self B Result cý B( TWaveObjectStream.GetFormatSize µÒjÖ B!Self B Result c B(TWaveObjectStream.GetSize ¶ÒjÖ B!Self B Result c B(TWaveObjectStream.ReadWave ·ÒjÖ lB!Self B"Buffer : |
||
| 37 | !Count Result c! B( TWaveObjectStream.SetFormatSize ¸ÒjÖ :B!Self B !Value c5 B(TWaveObjectStream.SetSize ¹ÒjÖ a:B!Self B !Value cA B(TWaveObjectStream.WriteWave ºÒjÖ ÉB!Self B"Buffer : |
||
| 38 | !Count Result cM B%ID_RIFF |
||
| 39 | R RIFF%ID_WAVE |
||
| 40 | R WAVE%ID_FMT |
||
| 41 | R fmt %ID_FACT |
||
| 42 | R fact%ID_DATA |
||
| 43 | |||
| 44 | c} F(TWaveStream.Destroy ?W1 p1:F!Self F!. Pc F(TWaveStream.GetSize ;W1 HF!Self F Result c F(TWaveStream.ReadWave <W1 ]F!Self F"Buffer :!Count |
||
| 45 | Result c¥ F(TWaveStream.WriteWave =W1 aF!Self F"Buffer : |
||
| 46 | |||
| 47 | !FileMode& c! J(TWaveFileStream.Destroy ô¸ê Z1:J!Self J!. Pc5 J( Finalization é`pÅ \!: c(Wave !: cþG $®FBÚ Ø þ cG (ÌF8Þ (Ü |
||
| 48 | ú ,FData E (,FFormat I (, FFormatSize M (,FSize Q (. SetFormatSize î±U (.SetSize îÑY (.DefinePropertiesÀY] (.ReadData a (. WriteDataáe (0DestroyÀþ51i (.AssignÀAm (.Clear îQq (. LoadFromFile îeu (.LoadFromStream îuy (. |
||
| 49 | SaveToFile î} (. SaveToStream î¡ (. SetPCMFormat î½ (1Data þ E (1Format þ I (1 |
||
| 50 | FormatSize þ M± (1Size þ QÑ (cG ,)FHâ hàÞ& ,FWave (` ,.SetWave î ,/CreateÀí¡ ,0DestroyÀþý1¥ ,1Wave (þ © ,cG 0Fzæ , häÞ& 1Wave |
||
| 51 | |||
| 52 | aaÙ 8.WriteÀÝ 8. SetPCMFormat îuá 81 |
||
| 53 | |||
| 54 | FormatSize þ ½É í 81Size þ ÁÍ ñ 8c@ G >]FRü 8 ú þ ,FFormat õ >, FFormatSize ù >. GetFormatÀÉý >. GetFormatSizeÀÕ >. SetFormatSizeÀá >0DestroyÀþ½1 >cG BYFP 8 þ þ ,FWave ( B. GetFormatÀý B. GetFormatSizeÀ B.GetSizeÀ B.ReadWaveÀ! B. SetFormatSizeÀ5! B.SetSizeÀAa% B. WriteWaveÀM) B/Create îí- BcG FAFD > X þ , FDataPosition 1 F,FDataHeaderPosition (5 F,FOpened 09 F, FOriPosition 8= F, FReadMode @A F,FSize HE F,FStream PI F.CloseWriteMode îM F. OpenReadMode îáQ F. OpenWriteMode îU F.GetSizeÀY F.ReadWaveÀ¥] F. WriteWaveÀ¹a F/Create î}e F0DestroyÀþ1i F.Open îÍm FcG JQFL F ` þ , FFileStream Xq J/Create î!u J0DestroyÀþ51y JcD L ÿÿÿ D L ûÿñA P ýD L ÿÿÿÁM u ,FType } T,Size |
||
| 55 | T,RType TcM y ,CType |
||
| 56 | |||
| 57 | |||
| 58 | |||
| 59 | |||
| 60 | |||
| 61 | ÃÿR(CÃÿR(SÖ;Â} ÃÿR(+CëÆ×ÈÃ0ÿV,C_^[Ã3ÀÃSVòØfér t fÿÉt ësësë ÃÿR(ðs{ }3ÀCÃÿR(;C} |
||
| 62 | ÃÿR(CC^[ÃUìSVWùòغ ÃÿQ0EPÃÿR ÏÖè _^[] ÃSVWùòØÃÿR(;C} |
||
| 63 | ÃÿR(CÖÏÃ0ÿV4C_^[Ã3ÀÃSVè Úð3ÒÆÿQ0ÓâüÆè Û~Æè ^[Ã@Ã@ ÃSVòØCÖè s ^[ÃUìQSVÒtÄðè ñUÿØ3ÒÃè ÆCP ÃÿQ0ÃÿR$PÃÿR ÐC@Yè Ã}ÿ tè d Ä Ã^[Y]Ã@@Ã@@ Ã@@ÃSVWUñúØîÃè RPC@$T$Ä×Îè Å]_^[Ã@è Ã@è ÃSVWUñúØîÃÿR(RPÃè RPÆ$T$Ä;T$u ;$ZXvMëZX~GÃÿR(RPÃÿR(RPÃè RPÆ$T$Ä$T$Ä$T$ÄRPÃÿRÃè RPC@$T$ÄÐÇÎè Å]_^[ÃUìQSVWÒtÄðè ùUÿØ3ÒÃè ÷s(Æè C Ã}ÿ tè d Ä Ã_^[Y]ÃSVè Úð~ t
~ uÆè ÓâüÆè Û~Æè ^[ÃSØ{ t{ u C(ÿ+CëC$[Ã3À[ÃUìj SVWùòØ3ÀUh dÿ0d { u!Uü¡ è Mü²¡ è è Ãè RPC$T$ÄRPC(è ÖÏC(ÿS Ø3ÀZYYdh Eüè Ãé ëðÃ_^[Y]ÃUìj SVWñúØ3ÀUhÉ dÿ0d { u!Uü¡ è Mü²¡ è è { t;Ãè RPÆ$T$ÄRPC$;T$u ;$ZXsëZX} Ãè s$+ðÃè RPC$T$ÄRPC(è ×ÎC(ÿSØ3ÀZYYdhÐ Eüè Ãé ëðÃ_^[Y]ÃÒtè Ãè ÃUìEPøE@üÿQ0E@üÿR ÐEHøE@ü@(è ]ÃUìSE@øURüB$E@ü@(è URüBE@üP$E@ü@(f¹ ÿS[]ÃUìÄàSV3ÒUàUäEüuô3ÀUhO dÿ0d Eüx t!Uä¡ è M䲡 è è EüÆ@EüÆ@ Eü@ RPEü@(è UèEü@(¹ è }èRIFFu }ðWAVEt!Uà¡ è Mಡ è è Æ3ɺ è ÖEü@(¹ ÿS ëVëfmt t |
||
| 64 | ëþóÿ@t ëUè YëUè YëEü@(f¹ VÿSÆ3ɺ è ÖEü@(¹ ÿS Ûu¤3ÀZYYdhV Eຠè Ãé ëë^[å]ÃUìÄøÇEøfmt E@ü@ EüUøE@ü@(¹ è E@üH E@üPE@ü@(è YY]ÃUìÄøE@ü@(è URüBÇEødata3ÀEüUøE@ü@(¹ è E@ü@(è URüBYY]ÃUìÄè3ÒUèUìEü3ÀUhÍ dÿ0d Eüx t!Uì¡ è M첡 è è EüÿR$ Àu!Uè¡ è M財 è è EüÆ@Eü@ RPEü@(è UðEü@(¹ è Uè YUè Y3ÀZYYdhÔ Eèº è Ãé ëëå]ÃUìÄøE@ü@RPE@ü@(è ÇEødataE@üÿR(EüUøE@ü@(¹ è YY]ÃUìÄðSEüÇEðRIFFEü@(ÿUüZ +ÃèEôÇEøWAVEÃRPEü@(è UðEü@(¹ è Uè YEüX(ÃÿRPÃè [å]ÃUìQSVWÒtÄðè ùUÿØ·EPϲ¡ è ðs,Î3ÒÃè Ã}ÿ tè d Ä Ã_^[Y] SVè ÚðÓâüÆè F,è Û~Æè ^[ÃUì3ÀUh% dÿ0d ÿ 3ÀZYYdh, Ãé ëø]Ã- Ãmñ Ø Ø@Øb |
||
| 65 | Ú Ú Ø` Ü Ü Þ Ür |
||
| 66 | 5tYA á Þ ÞÜl à à â àx ýtz|~í$ â â&àv ä ä æ äà ýtz|~í æ æäâÞ . è è@èb |
||
| 67 | * ê ê,è` ì ì@ì |
||
| 68 | 9a"!-M"©, î î.ìp ð" ô" ú ú@úì |
||
| 69 | |||
| 70 | A9aý !5M, .þî @ú |
||
| 71 | 9aÉեṠ"ü @ |
||
| 72 | 59aÉÕ¥á¹( * 5(Q* AQÜ |
||
| 73 | .$ѱ , , Q22* Y*Y@ e ¢e ue6 8 uQ |
||
| 74 | }u Í"±&,"Ñ ¤u6 8 u |
||
| 75 | ¢ ¡6 8 ¡,}¡L,Í ¨¡6 8 ±$@ ½(± Ñz@ á¡ |
||
| 76 | íFªÜ |
||
| 77 | D H& ý(6¬* ! - 9Î M a¤ uP b © ½(2* É Õ á@ í F DX,H* ý ! ´8, 5± |
||
| 78 | AÑ |
||
| 79 | M2´z´f´<, } F D´ H, (.½* H ¥$¥(Â |
||
| 80 | Nè |
||
| 81 | h |
||
| 82 | P´4¶6¥R 8 ¹$¹(Â |
||
| 83 | Nè |
||
| 84 | h |
||
| 85 | |||
| 86 | á |
||
| 87 | Ùb¤ Ý:´V á4á.Ä |
||
| 88 | Nè |
||
| 89 | h |
||
| 90 | PD¶&¤4Æ |
||
| 91 | Nè |
||
| 92 | h |
||
| 93 | P VXÙÝFVJáX 8 ñV¨@¨ ù ´V¨ ´" *.Ä |
||
| 94 | Nè |
||
| 95 | h |
||
| 96 | P(È |
||
| 97 | Nè |
||
| 98 | h |
||
| 99 | P6¶&¨ ñù X 8 8¶V¨ x¶&¨ ,¶ ! F* |
||
| 100 | ¢ }H0 5( 6* AAA 8 |
||
| 101 | a½ |
||
| 102 | $ |
||
| 103 | |||
| 104 | " |
||
| 105 | |||
| 106 | 8 |
||
| 107 | *& . |
||
| 108 | " "&"6 |
||
| 109 | |||
| 110 | |||
| 111 | , . |
||
| 112 | " *6 |
||
| 113 | "* |
||
| 114 | |||
| 115 | $ 4 |
||
| 116 | |||
| 117 | ,( |
||
| 118 | |||
| 119 | 2 |
||
| 120 | :< FfJ04 |
||
| 121 | > |
||
| 122 | 8 BB J8 B ^B J |
||
| 123 | "B .6HB |
||
| 124 | (&$B ($$ ê$ P ,@ |
||
| 125 | . |
||
| 126 | ,.>BB(&L 4 ,0 &* |
||
| 127 | |||
| 128 | 40Bx @ |
||
| 129 | M "$ \ ( f0, 0 ¸4 Ä 8 Î(> B 9F }&J Ý |
||
| 130 | ! !T eV }Võ i |
||
| 131 | Vý © |
||
| 132 | V A T q |
||
| 133 | ÁI Ú \Þ dÞ hÞ jÞ lÞ n± rpÞ |
||
| 134 | pÑ trIÞ rlýxýY xvõÞ v zxÞ xá |z}Þ zl |
||
| 135 | ýq5 ~eÞ ~l ýÅA }Þ ÑQ ÑÞ e Þ u =Þ Þ ¡ ÍÞ ½ 1Þ" Þ$ Þ& Þ( Þ* â â ¢ ¦¤Éâ ¤¬vnýª¡í ª¨â ¨vpý¬½ý ¬ª±â ªâ |
||
| 136 | ¬æ ¶æ ºê Äî Ìî Ð ÖÔåî Ôîð Öî ÖðI! ÚØùî ØòMpýÜ- ÜÚ î |
||
| 137 | ÚôQ±M ÞÜmî ÜUµô Þî Þò Y âàÍî à© äâýî âa¹pýè |
||
| 138 | A |
||
| 139 | 9 èæ!î æa êèî èpýìM ìêÝî êu îìµî ìî îî ðî òî" ôü þü ü É 1ü Õ Eü á Yü |
||
| 140 | $2ý%%½ %!ü !Ž 5 =ý IE E MI± I QMÅ M! UQÙ |
||
| 141 | Q5 YUñ UA ]Y YM a] ]$ |
||
| 142 | ýiÁ¥í iey e y |
||
| 143 | ¡! á ¥¡y ¡ ©¥Q |
||
| 144 | ¥ ±É ¥ µ±ù ±¹ ¹µ µ} Á½ |
||
| 145 | ½íUåµ ÅÁ ÁñÉ Í ÉÅY Å]ù Ù á! íé© é5 ñíÁ í ù! % ) - 1 ]9 E QI }M U ] G´¬Ëa õn ýi 9m q $ ý-y½¹Í y !} = Epýq ñ µ ÇÚ?Å ¥¥ ðÍ© Í Õpýý |
||
| 146 | |||
| 147 | Á |
||
| 148 | Y µ ¹ Á ùÍÅ 1É 1Í 1Õ 9Ù IÝ Qå ÷Íé }ñ ù "Ç G ÷Í É Ç é% G+ÝÌ) ý1 -5 = A(ÎA !E !I %Q U mY m] qe i m q y àÌ} µ µ µ Y Í ²Í Ý¡ Ý¥ á ± ýµ ý¹ Á Í Ñ 5Ù Ý Iå Ç=Íé Yñ GYßÌù y @ ¡ GÔïÌ µ É% ) Ù- Ù1 Ý9 G ßÌ= ñE I Q áÌU Y ] a Ee Ii Mm Qq Uu au eu iu my yy }y 9v )×Ì ¡ Í© ù± ùµ ý` ý ) É |
||
| 149 | å |
||
| 150 | |||
| 151 | ½ ×ÌÁ Å É ! Ñ Õ Y å é í Ù Ý ¥ 9ñ Y |
||
| 152 | õ a |
||
| 153 | ù |
||
| 154 | |||
| 155 | Ù |
||
| 156 | ßÌ ) 1 i % - © 1 © 9 ×ÌA Ù å ! %)%(þ)4þ!xþ5@ 0 9=AÀ 0 E I IþI(IfþMfI¶M¶þEÈþIÈþQ@ UUNþY` 0 ] a ]VþaVþe` Bimm4þi~þu` 0By}}Dþy)þ ` |
||
| 157 | þ |
||
| 158 | þ` B:þþ¡` B¥©©Hþ¥îþ±` 0 ¹ µ ¹2þµ2þ½ pÁÅÉ |
||
| 159 | ÁPþÅPþÉPþÑ p ÕÙÝ<ÝþÕþÙþá` å é å |
||
| 160 | þé |
||
| 161 | þí` 0 ñ$ù$õ$ù6þý@ 0 ` þþ0 !0 ) -0 5 9° p =EA |
||
| 162 | EþE¦Iª EªþAÀþ=ÆþM0 ] a 0 e m i m*þiVþeþq u py} |
||
| 163 | yXþ}XþXþ p ¡ |
||
| 164 | ¥T Tþ¡TþZþ©0 ¹ ½@ 0 ÁÅÉP Í ÍþÑ ÕP Ù ÙþÝ á` 0 å é å&þé&þíP 0ñ2ù2ùNþýP þ P þ P þ ! ð %-) |
||
| 165 | 1 %^þ-^þ)^þ5` 9 = 9þ=þA` E I EþIþM ð QYU |
||
| 166 | ] QþYþUþ}P p44 |
||
| 167 | |||
| 168 | ©DþDþ±Dþ©± |
||
| 169 | ©äþäþ±äþµä¹! p½8Å8Á8 |
||
| 170 | ½DþÅDþÁDþ½ÅÁ |
||
| 171 | ÅðþŽÍþÅÍþÁÍþÉÍÍ` Ñ Õ ÕþÑ þÙ Ý á @ 0ñ ù 0
!Pp%4-4 |
||
| 172 | -dþ5@ 0 9=A a |