Reproducir audio desde campo LongBlob con MediaPlayer

Saludos a todos, les comento que logre grabar un archivo de audio desde el microfono del laptop a un campo LongBlob de MySql.

Ahora requiero reproducir este contenido a través de MediaPlayer, logre pasar este contenido a TMemoryStream o TStream pero no logro asignarlo a mediaplayer para su reproducción.

Lo ideal sería reproducirlo directamente desde un stream sin tener que grabarlo a un archivo wav/mp3.

Alguien resolvió ya esto?

Gracias 

La verdad es que tendría que verificar si es que el TMediaPlayer que viene con Delphi tiene, al día de hoy, capacidad de reproducir un Stream. El que venía con D6 no es capaz de soportar stream.

Tanto, o más importante, es que el reproductor tenga la función de reconocer e interpretar el formato adecuadamente al hacer streaming. Esto es porque se necesita determinar el codec a aplicar, y esto depende del formato.

El Streaming básicamente es ir leyendo los bytes a medida que llegan. Y lo primero que se hace es detectar el formato. Sin ello dará lo mismo que le pases cualquier cosa... no podrá reproducirlo.

Necesariamente, de forma directa, o indirecta, el contenido del stream es formateado.

Veo más factible tratar de buscar un componente de terceros que haga lo que buscas. Tengo mis serias dudas que haya cambiado mucho el TMediaPlayer que conocí en D6. La primera impresión al verlo en Delphi 10.2 Starter es que no cambió nada.

Saludos,

Hola Delphius, estuve buscando y por lo que pude ver MediaPlayer solo reproduce desde un archivo que puede ser mp3 u otros formatos.

Ahora debo reproducir el audio no me importa si es desde un archivo mp3, el problema que tengo es que no se como llevar desde el campo LongBlob a audio.mp3, por medio de la instrucción :

UniQuerylineaMensajeAudio.SaveToFile('c:\micarpeta\mensaje.mp3');

este crea el archivo mp3 con 0 Bytes,

de que otra forma puedo hacerlo? , talvez con TMemoryStream.

Saludos

Intente con este codigo :

procedure TForm1.TimerMensajeAudioTimer(Sender: TObject);
var
   sMp3File : String;
   blob : tStream;
begin
      sMp3File := 'C:\Audio\Mensaje.mp3';
      if FileExists(sWaveFile) then
       deletefile( sWaveFile );
 
      UniQuery1.Close;
      UniQuery1.SQL.Text:='select MensajeAudio from audios';
      UniQuery1.ExecSQL;
      UniQuery1.Open;
      blob := UniQuery1.CreateBlobStream(UniQuery1.FieldByName('MensajeAudio'), bmRead);
      try
        blob.Seek(0, soFromBeginning);
 
      with TFileStream.Create(sWaveFile, fmCreate) do
      try
       CopyFrom(blob, blob.Size)
      finally
       Free
      end;
     finally
       blob.Free
     end;
end;

y sigue grabando el archivo mp3 con 0 Bytes, ya no se me ocurre que pasa, el campo blob tiene cargado el mp3.

Saludos

TMediaPlayer no soporta Stream, puedes hacer uso de terceros como la librería BASS ó la API PlaySound de Windows un ejemplo de éste último:

procedure TocarAudio(DBField:TBlobField);
var
  b: TBlobStream;
  m: TMemoryStream;
begin
  b := TBlobStream.Create(DBField, bmRead);
  try
    m := TMemoryStream.Create;
    try
      m.CopyFrom(b, b.Size);
 
      Win32Check(PlaySound(m.Memory, 0, SND_SYNC or SND_MEMORY));
    finally
      m.Free
    end;
  finally
    b.Free
  end;
end;

Ojo, lo hice al vuelo sin probar.

Saludos.

Gracias enecumene, pero lo necesito para una apps Android, veré algún componente que lo haga.

Saludos

Ah, es que como está en el foro de Delphi y no firemoneky

Recién veo este tema y quiero comentar. No se si lo movieron.

En el caso de los blobs lo que corresponde es obtener el valor del blob y convertirlo a un medio viable para su reproducción, no tan directamente.

Es el caso de los JPGs, se almacenan como JPGs, pero no pueden representarse directamente en los controles atados a los datos.

Al menos cuando lo intento debo primero pasarlos a un control que permita su representación. Pero en cambio si lo almaceno como BMP si lo puedo representar directamente.

Corríjame alguien que esté más al tanto si estoy equivocado, pero yo lo hago así con los gráficos.

FM es más moderno que la VCL, pero desconozco esa posibilidad.

El TMediaPlayer de FM permite la reproducción de MP3, WMA y WAV. Por lo que no debería haber problemas. El asunto es cómo se guardó este contenido en el campo blob.

1. Deberías verificar si realmente fue almacenado en la tabla de MySQL, para dar pasos firmes.

2. Conocer el formato la compresión del MP3, quizás no sea soportado por FM.

3. Revisa las propiedades TMedia y TMediaCodecManager, quizás te den algo de "luz".

Saludos.

También te recomiendo que leas la ayuda Audio-Video in FireMonkey, que se accede navegando en la ayuda desde un control TMediaPlayer.

Saludos