index fe9a8a26f9c10ded420e82f183cee4c6167f3c77..84ea42df4c5c12068309086e75f61ff2941c2593 100644 (file)
TWAVLoader = class (TSoundLoader)
public
- function Load(Data: Pointer; Len: LongWord; SStreaming: Boolean): Boolean; override; overload;
- function Load(FName: string; SStreaming: Boolean): Boolean; override; overload;
- function SetPosition(Pos: LongWord): Boolean; override;
+ function Load(Data: Pointer; Len: LongWord; Loop: Boolean): Boolean; override; overload;
+ function Load(FName: string; Loop: Boolean): Boolean; override; overload;
+ function Finished(): Boolean; override;
+ function Restart(): Boolean; override;
function FillBuffer(Buf: Pointer; Len: LongWord): LongWord; override;
- function GetAll(var OutPtr: Pointer): LongWord; override;
procedure Free(); override;
private
FData: Pointer;
FDataLen: LongWord;
+ FDataPos: LongWord;
+ FLooping: Boolean;
end;
TWAVLoaderFactory = class (TSoundLoaderFactory)
FFormat.SampleBits := Spec.format and $FF;
{$ENDIF}
FFormat.Channels := Spec.channels;
- FStreaming := False; // never stream wavs
+ FDataPos := 0;
FDataLen := Len;
FData := Buf;
end
end
end;
-function TWAVLoader.Load(Data: Pointer; Len: LongWord; SStreaming: Boolean): Boolean;
+function TWAVLoader.Load(Data: Pointer; Len: LongWord; Loop: Boolean): Boolean;
var
RW: PSDL_RWops;
begin
if Result = False then
e_LogWriteln('Could not load WAV: ' + SDL_GetError());
SDL_RWclose(RW);
+ FStreaming := False;
+ FLooping := Loop;
end;
-function TWAVLoader.Load(FName: string; SStreaming: Boolean): Boolean;
+function TWAVLoader.Load(FName: string; Loop: Boolean): Boolean;
var
RW: PSDL_RWops;
begin
Result := False
end;
SDL_RWclose(RW);
+ FStreaming := False;
+ FLooping := Loop;
end;
-function TWAVLoader.SetPosition(Pos: LongWord): Boolean;
+function TWAVLoader.Finished(): Boolean;
begin
- Result := False; // makes no sense when not streaming
+ Result := FDataPos >= FDataLen;
end;
-function TWAVLoader.FillBuffer(Buf: Pointer; Len: LongWord): LongWord;
+function TWAVLoader.Restart(): Boolean;
begin
- if FDataLen < Len then
- Len := FDataLen;
- if FData <> nil then
- begin
- Move(FData^, Buf^, Len);
- Result := Len;
- end
- else
- Result := 0;
+ Result := True;
+ FDataPos := 0;
end;
-function TWAVLoader.GetAll(var OutPtr: Pointer): LongWord;
+function TWAVLoader.FillBuffer(Buf: Pointer; Len: LongWord): LongWord;
+var
+ OutPos: LongWord;
+ Tx: LongWord;
begin
- OutPtr := FData;
- Result := FDataLen;
+ OutPos := 0;
+ Result := 0;
+
+ while (FDataPos < FDataLen) and (OutPos < Len) do
+ begin
+ Tx := nmin(FDataLen - FDataPos, Len - OutPos);
+ Move((FData + FDataPos)^, (Buf + OutPos)^, Tx);
+
+ FDataPos := FDataPos + Tx;
+ OutPos := OutPos + Tx;
+ Result := Result + Tx;
+
+ if (FDataPos >= FDataLen) and FLooping then
+ FDataPos := 0;
+ end;
end;
procedure TWAVLoader.Free();
begin
if FData <> nil then
SDL_FreeWAV(FData); // SDL allocates inside the DLL, so we need this
+ FDataPos := 0;
+ FData := nil;
+ FDataLen := 0;
end;
initialization