Displaying 2 results from an estimated 2 matches for "tfilestream".
Did you mean:
filestream
2004 Apr 12
3
Decoding with 8 bit-samples
Hi!
I'd like to make a stereo 8-bit wav file
from a stereo (16 bit) ogg vorbis file
(in delphi, with the vorbisfile).
I use:
ret := ov_open_callbacks(filein,vf,nil,0,ops_callbacks);
if ret = 0 Then
begin
fileOut := TFileStream.Create(savedlg.FileName,fmCreate);
repeat
ret := ov_read(VF, pcmout, BufferSize, 0, 1, 1, nil); //'cause of the 8-bit
fileOut.Write(pcmout,ret);
until ret = 0;
end;
The result will be cracking.... etc (will be unrecognizable). Why?
If I decode into 16-bit sampl...
2003 Jun 23
3
Cannot get ogm infos
...eded !
I cannot extract infos from video stream in an .ogm file using the
VorbisFile library.
It seems that I can only open .ogg files (audio)! When I call
"ov_open_callbacks" it generates a message error.
Here is my procedure in pascal:
code:
_____
procedure GetOGMInfo;
var
F : TFileStream;
vf: OggVorbis_File;
res: integer;
begin
F := TFileStream.Create("OGM FileName", fmOpenRead);
res := ov_open_callbacks(F, vf, nil, 0, ops_callbacks);
if res < 0 then // always return -132 !! No Vorbis info/file
begin
F.Free;
exit;
end;
**** code to get in...