Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   API de Windows (https://www.clubdelphi.com/foros/forumdisplay.php?f=7)
-   -   Formatos de Compression de Audio (https://www.clubdelphi.com/foros/showthread.php?t=4866)

Descendents 31-10-2003 10:09:36

Formatos de Compression de Audio
 
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.

Código:

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 31-10-2003 16:17:23

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


Saludos!


La franja horaria es GMT +2. Ahora son las 18:15:08.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi