- procedure TOGG.LoadHeader(ADataStorage: TDataStorage);
- begin
- OV_Open_Callbacks(ADataStorage, FFileData, nil, 0, Callbacks);
- if OV_Info(FFileData, -1)^.channels = 1
- then FFormat := sbf_MONO16
- else FFormat := sbf_STEREO16;
- end;
Delphi spinnt??Moderator: DGL-Team
|