Aplicación que se congela
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; ¿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. |
RE: Aplicación que se congela
Pues me respondo a mi mismo por si alguien mas se llega a encontrar con este problema.
Es un error en los componentes NewAC, al parecer se ciclan al consultar el estatus de un Thread. Lo único que se necesita hacer es en lugar de utilizar el procedimiento Stop del componente TDXAudioOut, utilizarlo como Stop(False) para que detenga la reproducción. Y asunto arreglado. |
La franja horaria es GMT +2. Ahora son las 21:20:54. |
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