Fórum Grave imagens JPEG usando DBImage. #209603

Grave imagens JPEG usando DBImage.

Para você gravar imagens JPEG usando DBImage, faça assim:

Acrescente nas Uses JPEG, ClipBrd e no botão que vai inserir a imagem digite o código:

procedure Tfrm_imagem.btn_fotoClick(Sender: TObjetct);
var
imagem : tPicture;
begin
if OpenPictureDialog1.Execute then
begin
imagem := tPicture.create();
imagem.LoadFromFile(OpenPictureDialog1.FileName);
clipboard.Assing(imagem);
DBImage1.PasteFromClipboard;
imagem.Free;
end;
end;

Walfrido César Cintra
wcc@bol.com.br
Bacharel em Ciência da Computação.
Programação em delphi a 5 anos.
Franca/SP.