salvar e visualizar imagem (.bmp) em tabelas paradox

Delphi

02/07/2004

salve a todos os colegas....
seguinte, meu problema esta em salvar e visualizar imagem .bmp em tabelas paradox, no meu aplicativo. abaixo vai o meu codigo, se alguem puder corrigi-lo, para me ajudar fico muito grato.

campo da tabela : Imagem
Tipo de Campo : Graphic
Size : 240

//----------------------------salvar na tabela-------------------------


procedure TCadastro_Clientes.Btn_Salvar(Sender: TObject);

begin
DM.Tbl_Clientes.FieldByName(´imagem´).AsString := Cadastro_Clientes.OpenPictureDialog1.FileName;
end;

//-----------------Visualizar------------------------
// o botao visualizar, seria como um botao de Navigator, que passa para o procimo registro da tabela e maostra no meu aplicativo qual a foto que esta salva no campo ´imagem´.

procedure TCadastro_Clientes.Btn_visualizar(Sender: TObject);
begin
Cadastro_Clientes.image1.Picture.LoadFromFile(DM.Tbl_Clientes.FieldByName(´Foto´).AsString);
end;


Mahdak

Mahdak

Curtidas 0

Respostas

Gandalf.nho

Gandalf.nho

02/07/2004

Você está tentando salvar num campo Graphic o nome do arquivo BMP e não o próprio. Para armazenar o nome use um campo tipo testo mesmo.


GOSTEI 0
POSTAR