Delphi dicas

Inserir imagem em tb paradox e visualizar

//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

por : Rodrigo Gomes Nascimento