Buscar por:

Gravando imagem jpg em tabela paradox

Código

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;