Fórum Arquivos MP3... Firebird Embeded - Stream - MPlayer #323195
11/06/2006
0
Olá gente!
Achei esta função abaixo que armazena em um BD músicas em MP3 utilizando STREAM.
Utilizo DBEXPRESS + Firebird + Delphi 7.
A rotina abaixo adapta-se perfeitamente as minhas necessidades para o armazenamento.
Agora... Gostaria de saber como recuperar este arquivo MP3 que está no BD FIREBIRD em um BLOB e tocar direto utilizando MPLAYER da paleta SUSTEM do delphi...
ou seja, sem ter que armazenar no disco (tocar direto em memória).
Agradeço desde já pela ajuda.
Luciano-User-BA
//gravando blob
var stream : TMemoryStream;
begin
stream := tmemorystream.create;
stream.loadfromfile( ´c:\arquivo.mp3´ );
ibsql.sql.text := ´UPDATE TABELA SET CAMPO_TIPO_BLOB = :CONTEUDO WHERE CONDICAO´;
TBlobField( IBSQL.parambyname( ´CONDICAO´ ) ).LoadFromStream( Stream );
ibsql.execsql;
stream.free;
end;
* Arquivos MP3... FIREBIRD EMBEDED - Tocar em Memória - STREAM - MPLAYER
Achei esta função abaixo que armazena em um BD músicas em MP3 utilizando STREAM.
Utilizo DBEXPRESS + Firebird + Delphi 7.
A rotina abaixo adapta-se perfeitamente as minhas necessidades para o armazenamento.
Agora... Gostaria de saber como recuperar este arquivo MP3 que está no BD FIREBIRD em um BLOB e tocar direto utilizando MPLAYER da paleta SUSTEM do delphi...
ou seja, sem ter que armazenar no disco (tocar direto em memória).
Agradeço desde já pela ajuda.
Luciano-User-BA
//gravando blob
var stream : TMemoryStream;
begin
stream := tmemorystream.create;
stream.loadfromfile( ´c:\arquivo.mp3´ );
ibsql.sql.text := ´UPDATE TABELA SET CAMPO_TIPO_BLOB = :CONTEUDO WHERE CONDICAO´;
TBlobField( IBSQL.parambyname( ´CONDICAO´ ) ).LoadFromStream( Stream );
ibsql.execsql;
stream.free;
end;
* Arquivos MP3... FIREBIRD EMBEDED - Tocar em Memória - STREAM - MPLAYER
Userba
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)