X-Git-Url: https://deadsoftware.ru/gitweb?a=blobdiff_plain;ds=sidebyside;f=src%2Fengine%2Fe_soundfile.pas;h=c508593235bc070b10a2d348efcc7942131e4885;hb=9193a04898bdd4020400c8acd8b1bcaccbe33dbf;hp=4ba5cd6ac0b40eeaaa6cd2948655a03df2373b89;hpb=c7a5223f1e2520ab13b480b937af1e208201de15;p=d2df-sdl.git diff --git a/src/engine/e_soundfile.pas b/src/engine/e_soundfile.pas index 4ba5cd6..c508593 100644 --- a/src/engine/e_soundfile.pas +++ b/src/engine/e_soundfile.pas @@ -33,22 +33,19 @@ type protected FFormat: TSoundFormat; FStreaming: Boolean; - FLooping: Boolean; public - function Load(Data: Pointer; Len: LongWord; SStreaming: Boolean): Boolean; virtual; abstract; overload; - function Load(FName: string; SStreaming: Boolean): Boolean; virtual; abstract; overload; + function Load(Data: Pointer; Len: LongWord; Loop: Boolean): Boolean; virtual; abstract; overload; + function Load(FName: string; Loop: Boolean): Boolean; virtual; abstract; overload; - function SetPosition(Pos: LongWord): Boolean; virtual; abstract; + function Finished(): Boolean; virtual; abstract; + function Restart(): Boolean; virtual; abstract; function FillBuffer(Buf: Pointer; Len: LongWord): LongWord; virtual; abstract; - function GetAll(var OutPtr: Pointer): LongWord; virtual; abstract; - procedure Free(); virtual; abstract; property Format: TSoundFormat read FFormat; property Streaming: Boolean read FStreaming; - property Looping: Boolean read FLooping write FLooping; end; TSoundLoaderFactory = class