Gravar imagem JPG em tabela Paradox

// TbClientes é o nome de alguma Tabela

// TbClientesCli_Foto é um variavel da tabela do tipo Blob

// Image1 é um componente

// OpenPictureDialog1 é o componente para abrir a figura

Procedure Grava_Imagem_JPEG(Tabela:TTable; Campo:TBlobField;

Foto:TImage; Dialog:TOpenPictureDialog);

var BS:TBlobStream;

MinhaImagem:TJPEGImage;

Begin

Dialog.InitialDir := 'c:\temp';

Dialog.Execute;

if Dialog.FileName <> '' Then

Begin

if not (Tabela.State in [dsEdit, dsInsert]) Then

Tabela.Edit;

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

MinhaImagem := TJPEGImage.Create;

MinhaImagem.LoadFromFile(Dialog.FileName);

MinhaImagem.SaveToStream(BS);

Foto.Picture.Assign(MinhaImagem);

BS.Free;

MinhaImagem.Free;

Tabela.Post;

DBISaveChanges(Tabela.Handle);

End;

End;

 

procedure TForm1.Button1Click(Sender: TObject);

begin

Grava_Imagem_JPEG(TbClientes,TbClientesCli_Foto, Image1,

OpenPictureDialog1);

// TbClientes é o nome de alguma Tabela

// TbClientesCli_Foto é um variavel da tabela do tipo Blob

// Image1 é um componente

// OpenPictureDialog1 é o componente para abrir a figura

end;

  

Publicidade