unavorbisapi.pas

Voice Communicator (VC) 一套处理音频压缩的的控件包

end;

function ogg_sync_clear(const oy: tOgg_sync_state): int;	// ogg.dll #23
begin
  if (0 < g_dllLoad_ogg_refCount) then
    result := proc_ogg_sync_clear(oy)
  else
    result := OV_ERR_NO_DLL_LOADED;
end;

function ogg_sync_destroy(var oy: tOgg_sync_state): int;	// ogg.dll #24
begin
  if (0 < g_dllLoad_ogg_refCount) then
    result := proc_ogg_sync_destroy(oy)
  else
    result := OV_ERR_NO_DLL_LOADED;
end;

function ogg_sync_init(var oy: tOgg_sync_state): int;	// ogg.dll #25
begin
  if (0 < g_dllLoad_ogg_refCount) then
    result := proc_ogg_sync_init(oy)
  else
    result := OV_ERR_NO_DLL_LOADED;
end;

function ogg_sync_pageout(const oy: tOgg_sync_state; const og: tOgg_page): int;		// ogg.dll #26
begin
  if (0 < g_dllLoad_ogg_refCount) then
    result := proc_ogg_sync_pageout(oy, og)
  else
    result := OV_ERR_NO_DLL_LOADED;
end;

function ogg_sync_pageseek(const oy: tOgg_sync_state; const og: tOgg_page): long;	// ogg.dll #27
begin
  if (0 < g_dllLoad_ogg_refCount) then
    result := proc_ogg_sync_pageseek(oy, og)
  else
    result := OV_ERR_NO_DLL_LOADED;
end;

function ogg_sync_reset(const oy: tOgg_sync_state): int;	// ogg.dll #28
begin
  if (0 < g_dllLoad_ogg_refCount) then
    result := proc_ogg_sync_reset(oy)
  else
    result := OV_ERR_NO_DLL_LOADED;
end;

function ogg_sync_wrote(const oy: tOgg_sync_state; bytes: long): int;	// ogg.dll #29
begin
  if (0 < g_dllLoad_ogg_refCount) then
    result := proc_ogg_sync_wrote(oy, bytes)
  else
    result := OV_ERR_NO_DLL_LOADED;
end;

procedure oggpack_adv(const b: tOggpack_buffer; bits: int);	// ogg.dll #30
begin
  if (0 < g_dllLoad_ogg_refCount) then
    proc_oggpack_adv(b, bits);
end;

procedure oggpack_adv1(const b: tOggpack_buffer);		// ogg.dll #31
begin
  if (0 < g_dllLoad_ogg_refCount) then
    proc_oggpack_adv1(b);
end;

function oggpack_bits(const b: tOggpack_buffer): long;		// ogg.dll #32
begin
  if (0 < g_dllLoad_ogg_refCount) then
    result := proc_oggpack_bits(b)
  else
    result := OV_ERR_NO_DLL_LOADED;
end;

function oggpack_bytes(const b: tOggpack_buffer): long;		// ogg.dll #33
begin
  if (0 < g_dllLoad_ogg_refCount) then
    result := proc_oggpack_bytes(b)
  else
    result := OV_ERR_NO_DLL_LOADED;
end;

function oggpack_get_buffer(const b: tOggpack_buffer): pointer;	// ogg.dll #34
begin
  if (0 < g_dllLoad_ogg_refCount) then
    result := proc_oggpack_get_buffer(b)
  else
    result := nil;
end;

function oggpack_look(const b: tOggpack_buffer; bits: int): long;	// ogg.dll #35
begin
  if (0 < g_dllLoad_ogg_refCount) then
    result := proc_oggpack_look(b, bits)
  else
    result := OV_ERR_NO_DLL_LOADED;
end;

function oggpack_look1(const b: tOggpack_buffer; bits: int): long;	// ogg.dll #36
begin
  if (0 < g_dllLoad_ogg_refCount) then
    result := proc_oggpack_look1(b, bits)
  else
    result := OV_ERR_NO_DLL_LOADED;
end;

function oggpack_read(const b: tOggpack_buffer; bits: int): long;	// ogg.dll #37
begin
  if (0 < g_dllLoad_ogg_refCount) then
    result := proc_oggpack_read(b, bits)
  else
    result := OV_ERR_NO_DLL_LOADED;
end;

function oggpack_read1(const b: tOggpack_buffer): long;		// ogg.dll #38
begin
  if (0 < g_dllLoad_ogg_refCount) then
    result := proc_oggpack_read1(b)
  else
    result := OV_ERR_NO_DLL_LOADED;
end;

procedure oggpack_readinit(const b: tOggpack_buffer; buf: pointer; bytes: int);	// ogg.dll #39
begin
  if (0 < g_dllLoad_ogg_refCount) then
    proc_oggpack_readinit(b, buf, bytes);
end;

procedure oggpack_reset(const b: tOggpack_buffer);		// ogg.dll #40
begin
  if (0 < g_dllLoad_ogg_refCount) then
    proc_oggpack_reset(b);
end;

procedure oggpack_write(const b: tOggpack_buffer; value: ulong; bits: int);	// ogg.dll #41
begin
  if (0 < g_dllLoad_ogg_refCount) then
    proc_oggpack_write(b, value, bits);
end;

procedure oggpack_writealign(const b: tOggpack_buffer);		// ogg.dll #42
begin
  if (0 < g_dllLoad_ogg_refCount) then
    proc_oggpack_writealign(b);
end;

procedure oggpack_writeclear(const b: tOggpack_buffer);		// ogg.dll #43
begin
  if (0 < g_dllLoad_ogg_refCount) then
    proc_oggpack_writeclear(b);
end;

procedure oggpack_writeinit(const b: tOggpack_buffer);		// ogg.dll #44
begin
  if (0 < g_dllLoad_ogg_refCount) then
    proc_oggpack_writeinit(b);
end;

procedure oggpack_writetrunc(const b: tOggpack_buffer; bits: long);	// ??
begin
//  result := OV_ERR_NOT_SUPPORED;
//
//  if (0 <> g_dllLoad_ogg_refCount) then
//    proc_oggpack_writetrunc(b, bits);
end;

procedure oggpack_writecopy(const b: tOggpack_buffer; source: pointer; bits: long);	// ??
begin
//  result := OV_ERR_NOT_SUPPORED;
//
//  if (0 <> g_dllLoad_ogg_refCount) then
//    proc_oggpack_writecopy(b, source, bits);
end;

procedure ogg_page_checksum_set(const og: tOgg_page);	// ??
begin
//  result := OV_ERR_NOT_SUPPORED;
//
//  if (0 <> g_dllLoad_ogg_refCount) then
//    proc_ogg_page_checksum_set(og);
end;

// ------------------------

function vorbis_analysis(const vb: tVorbis_block; op: pOgg_packet): int;	// vorbis.dll #4
begin
  if (0 < g_dllLoad_vorbis_refCount) then
    try
      result := proc_vorbis_analysis(vb, op)
    except
      result := OV_ERR_NO_DLL_LOADED;
    end
  else
    result := OV_ERR_NO_DLL_LOADED;
end;

function vorbis_analysis_blockout(const v: tVorbis_dsp_state; const vb: tVorbis_block): int;	// vorbis.dll #5
begin
  if (0 < g_dllLoad_vorbis_refCount) then
    result := proc_vorbis_analysis_blockout(v, vb)
  else
    result := OV_ERR_NO_DLL_LOADED;
end;

function vorbis_analysis_buffer(const v: tVorbis_dsp_state; vals: int): pSingleSamples; // float **	// vorbis.dll #6
begin
  if (0 < g_dllLoad_vorbis_refCount) then
    result := proc_vorbis_analysis_buffer(v, vals)
  else
    result := nil;
end;

function vorbis_analysis_headerout(const v: tVorbis_dsp_state; const vc: tVorbis_comment; const op: tOgg_packet; const op_comm: tOgg_packet; const op_code: tOgg_packet): int;	// vorbis.dll #7
begin
  if (0 < g_dllLoad_vorbis_refCount) then
    result := proc_vorbis_analysis_headerout(v, vc, op, op_comm, op_code)
  else
    result := OV_ERR_NO_DLL_LOADED;
end;

function vorbis_analysis_init(var v: tVorbis_dsp_state; const vi: tVorbis_info): int;	// vorbis.dll #8
begin
  if (0 < g_dllLoad_vorbis_refCount) then
    result := proc_vorbis_analysis_init(v, vi)
  else
    result := OV_ERR_NO_DLL_LOADED;
end;

function vorbis_analysis_wrote(const v: tVorbis_dsp_state; vals: int): int;	// vorbis.dll #9
begin
  if (0 < g_dllLoad_vorbis_refCount) then
    result := proc_vorbis_analysis_wrote(v, vals)
  else
    result := OV_ERR_NO_DLL_LOADED;
end;

function vorbis_bitrate_addblock(const vb: tVorbis_block): int;	// vorbis.dll #10
begin
  if (0 < g_dllLoad_vorbis_refCount) then
    result := proc_vorbis_bitrate_addblock(vb)
  else
    result := OV_ERR_NO_DLL_LOADED;
end;

function vorbis_bitrate_flushpacket(const vd: tVorbis_dsp_state; const op: tOgg_packet): int;	// vorbis.dll #11
begin
  if (0 < g_dllLoad_vorbis_refCount) then
    result := proc_vorbis_bitrate_flushpacket(vd, op)
  else
    result := OV_ERR_NO_DLL_LOADED;
end;

function vorbis_block_clear(const vb: tVorbis_block): int;	// vorbis.dll #12
begin
  if (0 < g_dllLoad_vorbis_refCount) then
    result := proc_vorbis_block_clear(vb)
  else
    result := OV_ERR_NO_DLL_LOADED;
end;

function vorbis_block_init(const v: tVorbis_dsp_state; var vb: tVorbis_block): int;	// vorbis.dll #13
begin
  if (0 < g_dllLoad_vorbis_refCount) then
    result := proc_vorbis_block_init(v, vb)
  else
    result := OV_ERR_NO_DLL_LOADED;
end;

procedure vorbis_comment_add(const vc: tVorbis_comment; comment: pChar);	// vorbis.dll #14
begin
  if (0 < g_dllLoad_vorbis_refCount) then
    proc_vorbis_comment_add(vc, comment);
end;

procedure vorbis_comment_add_tag(var vc: tVorbis_comment; tag: pChar; contents: pChar);	// vorbis.dll #15
begin
  if (0 < g_dllLoad_vorbis_refCount) then
    proc_vorbis_comment_add_tag(vc, tag, contents);
end;

procedure vorbis_comment_clear(const vc: tVorbis_comment);	// vorbis.dll #16
begin
  if (0 < g_dllLoad_vorbis_refCount) then
    proc_vorbis_comment_clear(vc);
end;

procedure vorbis_comment_init(const vc: tVorbis_comment);	// vorbis.dll #17
begin
  if (0 < g_dllLoad_vorbis_refCount) then
    proc_vorbis_comment_init(vc);
end;

function vorbis_comment_query(const vc: tVorbis_comment; tag: pChar; count: int): pChar;	// vorbis.dll #18
begin
  if (0 < g_dllLoad_vorbis_refCount) then
    result := proc_vorbis_comment_query(vc, tag, count)
  else
    result := nil;
end;

function vorbis_comment_query_count(const vc: tVorbis_comment; tag: pChar): int;	// vorbis.dll #19
begin
  if (0 < g_dllLoad_vorbis_refCount) then
    result := proc_vorbis_comment_query_count(vc, tag)
  else
    result := OV_ERR_NO_DLL_LOADED;
end;

function vorbis_commentheader_out(const vc: tVorbis_comment; const op: tOgg_packet): int;	// vorbis.dll #20
begin
  if (0 < g_dllLoad_vorbis_refCount) then
    result := proc_vorbis_commentheader_out(vc, op)
  else
    result := OV_ERR_NO_DLL_LOADED;
end;

procedure vorbis_dsp_clear(const v: tVorbis_dsp_state);	// vorbis.dll #21
begin
  if (0 < g_dllLoad_vorbis_refCount) then
    proc_vorbis_dsp_clear(v);
end;

function vorbis_encode_s