estou fazendo assim:( obs: é um blob que vem de uma tabela)
procedure TFmPlayer.FormActivate(Sender: TObject);
var
b : TStream;
begin
if not Dm2.Cds_Filme.IsEmpty then
begin
b :=
Dm2.Cds_Filme.CreateBlobStream(Dm2.Cds_Filme.FieldByName('FILME'),bmRead);
end;
with MediaPlayer1 do
begin
/// a duvida esta aqui é fazer esse '' b '' que é b : TStream se
trnasformar em FileName
para o componente MediaPlayer executar o arquivo que vem da tabela.
/// ou posso executar o b : TStream direto no MediaPlayer ?
/// como fazer isso de forma mais pratica enxuta e claro mais eficiente?
FileName := 'c:\image\filme\05593.avi';
Open;
MediaPlayer1.DisplayRect := FmPlayer.ClientRect;
Display := FmPlayer;
Play;
end;
Sou grata a todos que ajudarem.
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com
[As partes desta mensagem que não continham texto foram removidas]
