mmantex.pas

P2P即时通讯源码(DELPHI编写)

unit MMAntex;

interface

//===========================================================================================
// Definicion de parametros de compresion
//===========================================================================================
type
    PIMA_PARAMS = ^TIMA_PARAMS;
    TIMA_PARAMS = record
	lIMA_NIBBLE: Smallint;
	lSTEP_NO   : Smallint;
	lPCM_VALUE : Smallint;
	rIMA_NIBBLE: Smallint;
	rSTEP_NO   : Smallint;
	rPCM_VALUE : Smallint;
    end;

    PIMA_PARAMS_REPRO = ^TIMA_PARAMS_REPRO;
    TIMA_PARAMS_REPRO = record
	lSTEP_NO   : Smallint;
	lPCM_VALUE : Smallint;
	rSTEP_NO   : Smallint;
	rPCM_VALUE : Smallint;
    end;

// mediavision-adpcm.asm
function  wmimatopcm(imabuf, pcmbuf: PChar; br: integer; var IMAParams: TIMA_PARAMS): integer; pascal;
function  wmpcmtoima(pcmbuf, imabuf: PChar; br: integer; var IMAParams: TIMA_PARAMS): integer; pascal;
function  wsimatopcm(imabuf, pcmbuf: PChar; br: integer; var IMAParams: TIMA_PARAMS): integer; pascal;
function  wspcmtoima(pcmbuf, imabuf: PChar; br: integer; var IMAParams: TIMA_PARAMS): integer; pascal;

// antex-oki-dvi-adpcm.asm
function  wmdvitopcm(dvibuf, pcmbuf: PChar; br: integer; var IMAParams: TIMA_PARAMS): integer; pascal;
function  wmpcmtodvi(pcmbuf, dvibuf: PChar; br: integer; var IMAParams: TIMA_PARAMS): integer; pascal;
function  wsdvitopcm(dvibuf, pcmbuf: PChar; br: integer; var IMAParams: TIMA_PARAMS): integer; pascal;
function  wspcmtodvi(pcmbuf, dvimbuf: PChar; br: integer; var IMAParams: TIMA_PARAMS): integer; pascal;

implementation

// mediavision-adpcm.asm
{$L MMIMA32.OBJ}
{$F+}
function  wmimatopcm; external;
function  wmpcmtoima; external;
function  wsimatopcm; external;
function  wspcmtoima; external;
{$F-}

// antex-oki-dvi-adpcm.asm
{$L MMDVI32.OBJ}
{$F+}
function  wmdvitopcm; external;
function  wmpcmtodvi; external;
function  wsdvitopcm; external;
function  wspcmtodvi; external;
{$F-}

end.