Fórum Como gravar JPG ou GIF em tabelas Access? #263212
23/12/2004
0
Como gravar JPG ou GIF em tabelas Access?
uso componente Ado NO DELPHI.
Grato, Adriano
uso componente Ado NO DELPHI.
Grato, Adriano
Xadriano
Curtir tópico
+ 0
Responder
Posts
23/12/2004
Walfrido
essa pergunta já foi respondida no forum, mas tudo bem posso ajudar novamente.
acrescente nas Uses JPeg, ClipBrd
ai no botão que vai inserir a imagem faça assim
var
imagem : tPicture;
begin
if OpenPictureDialog1.execute then
begin
imagem := tPicture.create();
imagem.LoadFromFile(OpenPictureDialog1.FileName);
clipboard.Assign(imagem);
DBImage1.PasteFromClipboard;
imagem.Free;
end;
end;
: o DBImage1 deve estar ligado no campo que corresponde a imagem.
Walfrido
acrescente nas Uses JPeg, ClipBrd
ai no botão que vai inserir a imagem faça assim
var
imagem : tPicture;
begin
if OpenPictureDialog1.execute then
begin
imagem := tPicture.create();
imagem.LoadFromFile(OpenPictureDialog1.FileName);
clipboard.Assign(imagem);
DBImage1.PasteFromClipboard;
imagem.Free;
end;
end;
: o DBImage1 deve estar ligado no campo que corresponde a imagem.
Walfrido
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)