Hola a todos.
Antes que nada les agradezco a todos por la ayuda que siempre me han brindado, no se que haría sin el apoyo de este foro para mis proyectos en Win32.
Ahora tengo un problema que me parece un tanto extraño. Actualmente estoy desarrollando un sistema que básicamente muestra un texto y le da al usuario la opción de reproducir el audio correspondiente al texto que se tiene en pantalla en ese momento. Para estoy utilizo los controles de
NewAC con archivos MP3 codificados. Lo que hago básicamente es cargar un archivo mp3 que tengo codificado con el uso de las librerías DCPCrypt, lo cargo en un TFileStream, lo decodifico y lo paso a un TMemoryStream.
Al principio utilizaba un par de controles que se encontraban en la forma para reproducir el audio, con NewAC solo se necesita un decodificador de audio de entrada y un reproductor de salida para tener el audio, cargo el stream al decodificador y arranco el reproductor. Hasta ahí no tengo problemas, sin embargo en la optimización me dí cuenta de que cada vez que reproducía un audio, el uso de la memoria se iba incrementando en un tamaño identico al del archivo de audio que se reproducía, y no podía liberar el stream de memoria porque el componente de audio me marcaba error. Así que decidí crear los controles para reproducción de audio en tiempo de ejecución. Cuando el usuario presiona el botón de Reproducir el sistema verifica si existe un control creado y el estatus de este, si se esta reproduciendo lo pausa, y si no existe lo crea y comienza la reproducción. Hay otro botón que detiene la reproducción y hace un FreeAndNil para los controles de audio y para el TMemoryStream, este es el código de la unidad en cuestión un tanto simplificado:
Código:
unit ufmEntrenamiento;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, StdCtrls, Buttons, ExtCtrls, ACS_Classes, ACS_DXAudio, ACS_WinMedia, ACS_smpeg, ACS_Streams, DCPCAST256, DCPSHA1;
type
procedure bnRepPreguntaClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure DesencriptaStream(psOrigen : String);
procedure bnDetPreguntaClick(Sender: TObject);
private
{ Controles utilizados para la reproducción del Audio }
var srAudioActual : TMemoryStream;
var auAudio : TMP3In;
var daAudio: TDXAudioOut;
public
{ Public declarations }
end;
var
fmEntrenamiento: TfmEntrenamiento;
implementation
uses udmInterfaz;
{$R *.dfm}
{Botón para detener la reproducción del Audio.}
procedure TfmEntrenamiento.bnDetPreguntaClick(Sender: TObject);
begin
if (daAudio.Status = tosPlaying) or (daAudio.Status = tosPaused) then
begin
daAudio.Stop;
FreeAndNil(daAudio);
FreeAndNil(auAudio);
FreeAndNil(srAudioActual);
end;
bnDetPregunta.Enabled := False;
bnRepPregunta.ImageIndex := 3;
end;
{Botón para reproducir y pausar el audio.}
procedure TfmEntrenamiento.bnRepPreguntaClick(Sender: TObject);
begin
if bnRepPregunta.ImageIndex = 3 then
begin
if Assigned(daAudio) then
begin
daAudio.Resume;
bnRepPregunta.ImageIndex := 2;
end
else
begin
auAudio := TMP3In.Create(Self);
daAudio := TDXAudioOut.Create(Self);
bnRepPregunta.ImageIndex := 2;
bnDetPregunta.Enabled := True;
DesencriptaStream(ExtractFilePath(Application.ExeName) + 'Audios\Prueba.enc');
auAudio.Stream := srAudioActual;
daAudio.PrefetchData := False;
daAudio.Input := auAudio;
daAudio.Run;
end;
end
else
begin
bnRepPregunta.ImageIndex := 3;
if daAudio.Status = tosPlaying then
begin
daAudio.Pause;
end;
end;
end;
procedure TfmEntrenamiento.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if daAudio.Status = tosPlaying then
begin
daAudio.Stop;
FreeAndNil(daAudio);
FreeAndNil(daSalida);
FreeAndnil(srAudioActual);
end;
Action := CAFree;
end;
{Procedimiento para desencriptar el Audio y enviarlo a un TMemoryStream}
procedure TfmEntrenamiento.DesencriptaStream(psOrigen : string);
var
kyCifrador : TDCP_EncriptadoX;
vsLlave : String;
srOrigen : TFileStream;
srDestino : TMemoryStream;
begin
vsLlave := 'Llave';
try
srOrigen := TFileStream.Create(psOrigen, fmOpenRead);
srDestino := TMemoryStream.Create;
srAudioActual := TMemoryStream.Create;
kyCifrador := TDCP_EncriptadoX.Create(Self);
kyCifrador.InitStr(vsLlave, TDCP_EncriptadoX);
kyCifrador.DecryptStream(srOrigen, srDestino, srOrigen.Size);
kyCifrador.Burn;
srAudioActual.CopyFrom(srDestino, 0);
FreeAndNil(kyCifrador);
FreeAndNil(srOrigen);
FreeAndNil(srDestino);
except on E: Exception do
ShowMessage(E.Message);
end;
end;
end.
Mi problema es que de manera aleatoria al estar reproduciendo y deteniendo la reproducción de un archivo de Audio el sistema simplemente se congela, estoy depurando y simplemente no recibo ningún error, no hay excepciones, el depurador me indica que el sistema sigue corriendo pero la aplicación en ese momento está congelada.
¿Estoy haciendo algo mal con los objetos que creo y libero? o ¿Existe alguna manera mejor de hacerlo? y ¿Cómo puedo saber que es lo que está congelando la aplicación?
De antemano Gracias y una discúlpa por un post tan largo.