Grave imagens JPEG usando DBImage.

Delphi

26/01/2004

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.


Walfrido

Walfrido

Curtidas 0

Respostas

Aroldo Zanela

Aroldo Zanela

26/01/2004

Colega,

Sua dica acima já está em nosso fórum de Dicas, Links e Downloads.
Obrigado.


GOSTEI 0
Caninha51

Caninha51

26/01/2004

Só que aí tem um porém; se o cara tiver alguma coisa na área de transferência já era, né??

Por isso q eu prefiro converter pra BMP!!


Mas tá valendo!!


Falow

Caninha51


GOSTEI 0
Walfrido

Walfrido

26/01/2004

O cara não vai ficar com essa ´alguma coisa´ na área de transferência a vida toda né!!!

:idea: Isso aqui é p/ resolver o problema com o DBImage. E outra, o BMP pesa muito, e qdo é gravado diretamente no banco de dados, e esse fica enorme.

Aqui está apenas um dica para aqueles que querem usar imagens JPEG, e gravar as imagens em seu banco de dados. Serve p/ qualquer banco de dados.


OK!!!

[color=blue:d6fdacb453][b:d6fdacb453]Walfrido[/b:d6fdacb453][/color:d6fdacb453] :wink:


GOSTEI 0
POSTAR