Vorbis dev - Feb 2001 - Problem with seek functions,

On Mon, 12 February 2001, OmegaDan wrote:

[snip code]

Hmm, weird.. that does work for me. I only had the trouble that ov_time_tell
returned negative infinity
after a ov_time_seek to 0 secs. This is my code:

function TMainForm.ReadBuf(Buffer: PChar; Size: Longword; var Time: Single):
Longword;
var BytesRead, Change: Longword;
begin
  BytesRead := 0;

  Time := ov_time_tell(vf^);

  if Time < 0 then  // check against NAN, -INF
    Time := 0;
  
  repeat
    Change := ov_read(vf^, @Buffer[BytesRead], Size - BytesRead, 0, 2, 1,
StreamNumber);
    BytesRead := BytesRead + Change;
  until (Change = 0) or (BytesRead = Size);

  Result := BytesRead;
end;

Windows 98/MSVC++6-Dynamic/Borland Delphi 5.

Matthijs

Only two things are infinite, the universe and human stupidity, and I'm not
sure about the former.
Albert Einstein (1879 - 1955)
______________________________________________________________________
Get your Private, Free E-mail from Metallica at http://mail.metallica.com
powered by XingMail.  Check out Metallica's Official Web Site at
http://www.metallica.com

--- >8 ----
List archives:  http://www.xiph.org/archives/
Ogg project homepage: http://www.xiph.org/ogg/
To unsubscribe from this list, send a message to
'vorbis-dev-request@xiph.org'
containing only the word 'unsubscribe' in the body.  No subject is
needed.
Unsubscribe messages sent to the list will be ignored/filtered.

I actually suspect the bug to be in my platform -- Win2k SP1 with VS6 SP4
-- I've had a couple other problems with it already (I.E. ov_open causes an
exception in the kernel when used from vorbisfile dynamic but not
vorbisfile static).

Unfourtantley, my studio equiptment is tied to win2k :)

but thanks for trying to confirm












OD

On 14 Feb 2001, Matthijs wrote:
> Date: 14 Feb 2001 06:14:18 -0800
> To: vorbis-dev@xiph.org
> From: Matthijs <creepingdeathnl@metallica.com>
> Reply-To: vorbis-dev@xiph.org
> Sender: owner-vorbis-dev@xiph.org
> Subject: Re: [vorbis-dev] Problem with seek functions,
> 
> On Mon, 12 February 2001, OmegaDan wrote:
> 
> [snip code]
> 
> Hmm, weird.. that does work for me. I only had the trouble that
> ov_time_tell returned negative infinity
> after a ov_time_seek to 0 secs. This is my code:
> 
> function TMainForm.ReadBuf(Buffer: PChar; Size: Longword; var Time:
> Single): Longword;
> var BytesRead, Change: Longword;
> begin
>   BytesRead := 0;
> 
>   Time := ov_time_tell(vf^);
> 
>   if Time < 0 then  // check against NAN, -INF
>     Time := 0;
>   
>   repeat
>     Change := ov_read(vf^, @Buffer[BytesRead], Size - BytesRead, 0, 2, 1,
> StreamNumber);
>     BytesRead := BytesRead + Change;
>   until (Change = 0) or (BytesRead = Size);
> 
>   Result := BytesRead;
> end;
> 
> Windows 98/MSVC++6-Dynamic/Borland Delphi 5.
> 
> Matthijs
> 
> Only two things are infinite, the universe and human stupidity, and I'm
> not sure about the former.
> Albert Einstein (1879 - 1955)
> ______________________________________________________________________
> Get your Private, Free E-mail from Metallica at http://mail.metallica.com
> powered by XingMail.  Check out Metallica's Official Web Site at
> http://www.metallica.com
> 
> --- >8 ----
> List archives:  http://www.xiph.org/archives/
> Ogg project homepage: http://www.xiph.org/ogg/
> To unsubscribe from this list, send a message to
> 'vorbis-dev-request@xiph.org'
> containing only the word 'unsubscribe' in the body.  No subject is
> needed.
> Unsubscribe messages sent to the list will be ignored/filtered.
--- >8 ----
List archives:  http://www.xiph.org/archives/
Ogg project homepage: http://www.xiph.org/ogg/
To unsubscribe from this list, send a message to
'vorbis-dev-request@xiph.org'
containing only the word 'unsubscribe' in the body.  No subject is
needed.
Unsubscribe messages sent to the list will be ignored/filtered.