zglTSoundDecoder

type zglTSoundDecoder = record

  Ext: UTF8String;

  Open: function(

  var Stream: zglTSoundStream;

  const FileName: UTF8String

):Boolean;

  OpenMem: function(

  var Stream: zglTSoundStream;

  const Memory: zglTMemory

):Boolean;

  Read: function(

  var Stream: zglTSoundStream;

  Buffer: PByteArray;

  Bytes: LongWord;

  out _End: Boolean

):LongWord;

  Seek: procedure(

  var Stream: zglTSoundStream;

  Milliseconds: Double

);

  Loop: procedure(

  var Stream: zglTSoundStream

);

  Close: procedure(

  var Stream: zglTSoundStream

);

end;