Como gravar JPG ou GIF em tabelas Access?
Como gravar JPG ou GIF em tabelas Access?
uso componente Ado NO DELPHI.
Grato, Adriano
uso componente Ado NO DELPHI.
Grato, Adriano
Xadriano
Curtidas 0
Respostas
Walfrido
23/12/2004
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
GOSTEI 0