Fórum Me ajudem, gravar uma foto jpg no interbase, fiz de tudo! #163543
30/05/2003
0
Uma grande abraço a todos,
Atenciosamente,
Jorgerodrigo
Curtir tópico
+ 0Posts
30/05/2003
José Paz
Gostei + 0
30/05/2003
Rik3500
Gostei + 0
30/05/2003
Fred
depois coloque um opendialog e faça o seguinte
if opendialog1.execute then
tabelaCAMPOIMAGEM.loadfromfile(opendialog1.filename); 8)
Gostei + 0
30/05/2003
Moonlight
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;
quem fez ela foi uma Débora Mendes, que postou aqui no Clube há algum tempo... já testei, funcionou... qualquer coisa, se vc nao conseguir, fala ae...
ateh
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)