Fórum Solução do problema: Imagem jpg em interbase! #137667
17/02/2003
0
Graças a ajuda de Salomão Soares eu consegui.
É necessário, colocar na claúsula units, as units: JPEG e CLIPBRD;
Pode-se com o objeto openpicturedialog, ou pré-determinar um caminho, a escolha é de vcs!!!!
Obrigada pela ajuda de todos!!!
procedure TForm1.Button1Click(Sender: TObject);
var img : Tjpegimage;
begin
{cria variável para armazenar imagem }
img:= Tjpegimage.Create;
openpicturedialog1.Execute;
{busca imagem no arquivo e joga na variável}
img.LoadFromFile(openpicturedialog1.FileName);
img.DIBNeeded;
{passa imagem para Clipboard}
clipboard.assign(img);
{copia imagem para o campo´DBimagem´}
dbimage1.pastefromclipboard;
{libera variável}
img.free;
end; :D
Anonymous
Curtir tópico
+ 0Posts
17/02/2003
Navoid
até
Gostei + 0
23/02/2003
Agonzaga
Gostei + 0
24/02/2003
Moonlight
O campo é blob subtype 0
o que tem que fazer pra salvar direitinho?
agradeço
Gostei + 0
24/02/2003
Anonymous
Coloque sua tabela em modo de edição, ao inserir a foto. Depois salve a tabela e de um commit (ou commitretaining) na sua transação.
Se tiver problemas, me manda um e-mail: denise_mendes@hotmail.com
Abraços
Denise
Gostei + 0
24/02/2003
Moonlight
Era problema entre o teclado e a cadeira mesmo :oops:
valeu
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)