salvando caminho da imagem [ajuda]

[Felipe da Silva COsta]

usei o seguinte código

em um DBedit:

begin

if not FileExists(DBEdit5.text) then

image1.Picture:= nil

else

Image1.Picture.LoadFromFile(DBEdit5.text)

end;

SpeedButton

begin

if OpenPictureDialog1.Execute then

Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);

end;

ele não esta salvando o local da foto e também não esta limpando quando executo o botão novo...

alguém da uma luz ae!

[Alberto Mota]

Eu uso de maneira diferente e dá o resultado esperado,

mostram-se todas as imagens de todos os produtos da tabela

procedure TFrmProdutos.DataSource3DataChange(Sender: TObject;

Field: TField);

var

foto1,guardafoto : string;

begin

guardafoto := inttostr(ADOQuery1.FieldByName('referência').AsInteger);

if not(fileexists('C:\wa\'+guardafoto+'.jpg')) then

begin

foto1 := ('C:\wa\wa2.jpg');

end else

foto1 := ('C:\wa\'+guardafoto+'.jpg');

DbImage1.Picture.loadfromfile(foto1);

end;

Armazena a imagem conforme o código

O código coloquei no OndataChange do data source.

Um abraço.

[Jhonas]

ele não esta salvando o local da foto e também não esta limpando quando executo o botão novo...

Veja esses posts:

http://scriptbrasil.com.br/forum/index.php...e=salvar+imagem

abraço