Solução do problema: Imagem jpg em interbase!
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
Posts
17/02/2003
Navoid
até
24/02/2003
Moonlight
O campo é blob subtype 0
o que tem que fazer pra salvar direitinho?
agradeço
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
24/02/2003
Moonlight
Era problema entre o teclado e a cadeira mesmo :oops:
valeu
Clique aqui para fazer login e interagir na Comunidade :)