SoloCodigo

Hola he hecho una aplicacion con un componente TMediaPlayer que reproduce mediante un bucle infinito varios archivos de video.
El problema es que si no se minimiza la aplicacion, esta va aumentando su consumo de memoria, hasta agotar toda la memoria.


entre cada iteracion del bucle lo que hago es :

      MediaPlayer1->Close();
      MediaPlayer1->FileName = OpenDialog1->FileName; // En realidad la eleccion del archivo a abrir funciona de otra manera, pero pongo esto para simplificar el ejemplo
      MediaPlayer1->Wait = true;
      MediaPlayer1->Open();
      MediaPlayer1->DisplayRect = Rect(0,0,Panel1->Width,Panel1->Height);
      MediaPlayer1->Play();