Buscar por:

Inserir imagem em tb paradox e visualizar

Código

//Encontrei este codigo na net e resolveu o meu problema gostaria de compartilhar espero q auxilie.

DECLARE EM USES -> JPEG ,Clipbrd

procedure TForm1.SpeedButton1Click(Sender: TObject);

 var

 Jpeg:TJPEGImage;

 begin

OpenPictureDialog1.Execute;

if OpenPictureDialog1.FileName > '' then

begin

Jpeg:= TJPEGIMAGe.Create;

Jpeg.LoadFromFile(OpenPictureDialog1.FileName);

Clipboard.Assign(Jpeg);

dbimage1.Picture.Assign(Jpeg);

dbimage1.PasteFromClipboard;

Jpeg.free;

end else

abort;

end;

//PARA RODAR VC TEM QUE TER UM CAMPO NA 

//TABELA TYPE= G 

//UM COMPONENTE DBIMAGE

//COMPONENTE OPENPICTUREDIALOG

//UM COMPONENTE TABLE

//UM COMPONENTE BITBTNBUTTON/OU SP

//E COLOCAR O CODIGO NO  SpeedButton1Click