Ler imagem JPG da tabela Paradox

// TbClientesCli_Foto é um variavel da tabela do tipo Blob

// Image1 é um componente

Procedure Le_Imagem_JPEG(Campo:TBlobField; Foto:TImage);

var BS:TBlobStream;

MinhaImagem:TJPEGImage;

Begin

if Campo.AsString <> '' Then

Begin

BS := TBlobStream.Create((Campo as TBlobField), BMREAD);

MinhaImagem := TJPEGImage.Create;

MinhaImagem.LoadFromStream(BS);

Foto.Picture.Assign(MinhaImagem);

BS.Free;

MinhaImagem.Free;

End

Else Foto.Picture.LoadFromFile('c:\temp\limpa.jpg');

End;

 

procedure TForm1.Button1Click(Sender: TObject);

begin

Le_Imagem_JPEG(TbClientesCli_Foto, Image1);

// TbClientesCli_Foto é um variavel da tabela do tipo Blob

// Image1 é um componente

end;

  

Publicidade