Solução do problema: Imagem jpg em interbase!
Olá amigos!!!!
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
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
Curtidas 0
Respostas
Navoid
17/02/2003
cara eu num ti ajudei, mas mesmo assim, obrigado por colocar o código, será útil para muitos.
até
até
GOSTEI 0
Agonzaga
17/02/2003
Denese Mendes, obrigado pela dica, valeu mesmo! :D
GOSTEI 0
Moonlight
17/02/2003
Legal! Consegui fazer a foto aparecer lá. Mas não tou conseguindo salvar ela.. tipo, quando coloco a foto, ela aparece no dbImage, certinho... mas não consigo salvar no meu BD pra que sempre apareça a foto escolhida!
O campo é blob subtype 0
o que tem que fazer pra salvar direitinho?
agradeço
O campo é blob subtype 0
o que tem que fazer pra salvar direitinho?
agradeço
GOSTEI 0
Anonymous
17/02/2003
Letícia
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
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
Moonlight
17/02/2003
Opa! Já consegui fazer
Era problema entre o teclado e a cadeira mesmo :oops:
valeu
Era problema entre o teclado e a cadeira mesmo :oops:
valeu
GOSTEI 0