Programación General > Delphi

 Como Leer Y Escribir Archivos De Formato Wav,mp3.

(1/1)

ricardo8204:
:unsure:  :unsure: por favor si alguien sabe como leer y escribir (NO REPRODUCIR CON EL REPRODUCTOR DE WINDOWS) archivos en formatos WAV, Mp3. por favor hacermelo saber es que lo necesito con urgencia.

gracias

Amilius:
Veo que no sólo necesitas orientación en un tema puntual, por lo que te recomiento buscar componentes open source en "www.torry.net" o en "sourceforge.net".

Adjunto una biblioteca para leer archivos .WAV PCM que elaboré para ser usada para cargar los buffers de sonido de DirectSound. Es ideal si no quieren que su ejecutable "engorde" usando componentes que además escriben y reproducen archivos .WAV y romperse la cabeza buscando como usarlos para crear y llenar los buffers de directsound.


--- Código: Text --- unit LectorWAV;(*Autor: Ing. Sergio A. Chávez R. La clase TlectorWav permite leer un archivo .WAV PCM en un buffer para directSound.Pasos para usarlo: 1.- Crear el objeto TlectorWav indicando el nombre del archivo ".WAV". 2.- Verificar la propiedad ".preparado" de TlectorWav, falso=>cancelar todo, error al leer el archivo. 3.- Preparar el descriptor de buffer para directsound usando ".TamannoDatos" y ".formatoOnda" de TlectorWav; 4.- Crear el buffer de sonido directsound con el descriptor de buffer preparado. 5.- Usar el procedimiento "lock" del buffer de sonido directsound creado para obtener la referencia al buffer y su tamaño. 6.- Llamar al método ".Leer" de TlectorWav indicando la posición inicial del buffer y el tamaño del buffer.*) interface uses mmsystem;//Para el TWaveFormatEx, para usar con directSound. type  TWavTag=array[0..3] of char;  TErrorWavSound=integer; const  //Errores:  WV_Ok=0;  WV_EncabezadoIncorrecto=1;  //Constantes auxiliares  MaxTammanoBuffer=32768;  smTelefono:integer=11025;  smRadio:integer=22050;  smCD:integer=44100;  chMono:word=1;  chStereo:word=2;  rsRadio:word=8;  rsCD:word=16;  Inicio_Area_Datos=44;  tgRIFF:TWavTag=('R','I','F','F');  tgWAVE:TWavTag=('W','A','V','E');  tgfmt:TWavTag=('f','m','t',' ');  tgdata:TWavTag=('d','a','t','a');(*Control de tamaño de archivo. Es totalmente opcional pero es recomendable nocrear buffers demasiado grandes fraccionandolos en varios de menor tamaño.*)  MaximoAceptable=1048576;//Máximo archivos de 1MB  //Tags Para formato PCM  PCMversion1:integer=$10;  PCMversion2:word=$1; type  TlectorWav=class(TObject)  private    Tamanno_Datos:integer;    formato:TWaveFormatEx;    fabierto:bytebool;    archivo:file;    destructor destroy; override;  public    property TamannoDatos:Integer read Tamanno_Datos;    property BitsPorMuestra:word read formato.wbitspersample;    property Canales:word read formato.nchannels;    property Muestras:integer read formato.nSamplesPerSec;    property FormatoOnda:TWaveFormatEx read formato;    property Preparado:bytebool read fabierto;    constructor create(const FileName:string);    function Leer(var Buffer; Longitud:integer):boolean;  end; implementation constructor TlectorWav.create(const FileName:string);  function LeerEncabezado:TErrorWavSound;  var tag:TWavTag;      ver1,Bytes_Por_Segundo,Tamanno_Total:integer;      ver2,Bytes_Por_Muestra:word;  begin    result:=WV_EncabezadoIncorrecto;    BlockRead(Archivo,tag,4);    if tag<>tgRIFF then exit;    BlockRead(Archivo,Tamanno_Total,4);    if Tamanno_Total>MaximoAceptable then exit;    BlockRead(Archivo,tag,4);    if tag<>tgWAVe then exit;    BlockRead(Archivo,tag,4);    if tag<>tgfmt then exit;    BlockRead(Archivo,ver1,4);    if ver1<>PCMversion1 then exit;    BlockRead(Archivo,ver2,2);    if ver2<>PCMversion2 then exit;    BlockRead(Archivo,formato.nchannels,2);    if formato.nchannels>2 then exit;    BlockRead(Archivo,formato.nsamplespersec,4);    if formato.nsamplespersec>smCD then exit;    BlockRead(Archivo,Bytes_Por_Segundo,4);    BlockRead(Archivo,Bytes_Por_Muestra,2);    BlockRead(Archivo,formato.wbitspersample,2);    if formato.wbitspersample>rsCD then exit;    BlockRead(Archivo,tag,4);    if tag<>tgdata then exit;    BlockRead(Archivo,Tamanno_Datos,4);    if Tamanno_Datos>Tamanno_Total then exit;    //Formato:    with Formato do    begin      wFormatTag:=Wave_Format_PCM;      nblockalign:=(nchannels*wbitspersample) div 8;      nAvgBytesPerSec:=nsamplespersec*nblockalign;      cbSize:=0;    end;    result:=WV_Ok  end;begin  inherited create;  fabierto:=false;  assignfile(Archivo,FileName);  FileMode:=0;  reset(Archivo,1);  if LeerEncabezado=WV_Ok then    fabierto:=true  else    CloseFile(Archivo);end; function TlectorWav.Leer(var Buffer; Longitud:integer):boolean;var tama,leido,totalleido:integer;    referenciaDatos:pointer;begin  if fabierto then  begin    totalleido:=0;    referenciaDatos:=@Buffer;    while totalleido<longitud do    begin      if longitud-totalleido<MaxTammanoBuffer then        tama:=longitud-totalleido      else        tama:=MaxTammanoBuffer;      blockread(archivo,referenciaDatos^,tama,leido);      inc(integer(referenciaDatos),leido);      inc(totalleido,leido);      if (tama<>leido) then        break;    end;    result:=longitud=totalleido;  end  else    result:=false;end; destructor TlectorWav.destroy;begin  if fabierto then    CloseFile(Archivo);  inherited destroy;end; end.  

Navegación

[0] Índice de Mensajes