Solução do problema: Imagem jpg em interbase!

Delphi

17/02/2003

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


Anonymous

Anonymous

Curtidas 0

Respostas

Navoid

Navoid

17/02/2003

cara eu num ti ajudei, mas mesmo assim, obrigado por colocar o código, será útil para muitos.

até


GOSTEI 0
Agonzaga

Agonzaga

17/02/2003

Denese Mendes, obrigado pela dica, valeu mesmo! :D


GOSTEI 0
Moonlight

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


GOSTEI 0
Anonymous

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


GOSTEI 0
Moonlight

Moonlight

17/02/2003

Opa! Já consegui fazer
Era problema entre o teclado e a cadeira mesmo :oops:
valeu


GOSTEI 0
POSTAR