Displaying 1 result from an estimated 1 matches for "tmainform".
Did you mean:
mainform
2001 Feb 14
1
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...