Armazenar vídeo em tabela Interbase

Firebird

09/07/2004

Olá pessoal,

Estou precisando saber como armazenar um vídeo ou um gif animado em um campo (blob) de uma tabela Interbase, e como eu faço para recuperar esse vídeo (ou gif animado) e apresentá-lo em uma janela de uma aplicação desenvolvida em Delphi.

Obrigado a todos,


Edbertof

Edbertof

Curtidas 0

Respostas

Afarias

Afarias

09/07/2004

carregue o arquivo em um Stream (TFileStream) e então jogue no campo BLOB (BlobField.LoadFromStream(Stream)) .. ex::

var
  Stm: TStream;

begin
  
  Stm := TFileStream.Create(´arquivo.avi´, fmOpenRead);
  try
    Stm.Position := 0;
    CampoBlob.LoadFromStream(Stm); 
  finally
    Stm.Free;
  end;

end;


e, para carregar de volta é só fazer a operação contrária.. é a mesma coisa q carregar figuras (jpg)


T+


GOSTEI 0
POSTAR