Formatos de Compression de Audio

[Descendents]

Buenas de nuevo, ultimamente estoy muy pesado preguntando mucho por aqui en el foro, ruego me disculpen.

Estoy utilizando el acmformatchoose de la libreria msacm.dll

function acmFormatChoose; external msacm32 name 'acmFormatChooseA';

Pues bien.

Esta funcion me habre un cuadro de dialogo que me salen los formatos los cuales puedo escoger.

Formatos de audio.
Ejemplo de formato : PCM o MPG, o etc...

Yo hago lo siguiente.


var
fc:TACMFORMATCHOOSEA;
begin
if fc.pwfx = nil then
begin
acmMetrics(0, ACM_METRIC_MAX_SIZE_FORMAT, MaxSizeFormat);
fc.cbStruct := sizeof(fc);
fc.cbWfx := MaxSizeFormat;
getmem(fc.pwfx, MaxSizeFormat);
fc.pwfx.wFormatTag :=$31;
fc.pwfx.nChannels := 1;
fc.pwfx.nSamplesPerSec := 8000;
fc.pwfx.nAvgBytesPerSec:= 8000;
fc.pwfx.nBlockAlign:=1;
fc.pwfx.wbitspersample := 8;
end;
fc.fdwStyle:=ACMFORMATCHOOSE_STYLEF_INITTOWFXSTRUCT;
res := acmFormatChoose(fc); {Muestra the ACM dialog ;}
end;


Mas adelante hay una funcion que de parametro se pasa lo siguiente:

ACMWaveIn1.Open(fc.pwfx); // pwfx = Pwaveformatex;

Y todo me funciona correctamente.

Entonces yo lo que quisiera es hacer lo mismo, pero sin que me apareciera el ACM dialogo.Y poder escoger yo directamente por codigo,un tipo de formato.

He mirado por todos sitios, pero el ingles no es mi fuerte y el ruso menos, y es en los dos unicos idiomas en que encontrado algo del tema.

Supongo que tendre que utilizar otra funcion o algo,pero no se.

Espero alguien pueda ayudarme.

Muchas gracias.

Un saludo

[delphi.com.ar]

Con acmFormatEnum puedes enumerar todos los tipos, al igual que con el Diálogo, valiéndote de un CallBack.


Saludos!