Fórum Tratar código.. (Se imagem existe, mostra.. se não existe..) #347002
04/10/2007
0
LocImg := ExtractFilePath(Application.ExeName)+´produtos\´;
if (FileExists(LocImg + RetornaNomeFoto(DADOS.CDSPRODUTO.FieldByName(´BARRA´).AsString) + ´.jpg´)) then
RetornaNomeFoto(DADOS.CDSPRODUTO.FieldByName(´BARRA´).AsString);
Image2.Picture.LoadFromFile(LocImg + RetornaNomeFoto(DADOS.CDSPRODUTO.FieldByName(´BARRA´).AsString) + ´.jpg´)
nesta, quando faço uma pesquisa por um produto com imagem existente na pasta, a imagem mostra... se eu coloco um produto existente, sem imagem cadastrada, daí da pau no sistema, mostrando que a imagem do produto não existe...
Como que eu poderia tratar este código? Ou seja: Pesquiso por um código de barras, aparece a imagem, o produto e o preço. Se não tiver imagem, aparece o produto, o preço apenas...
Desde já, agradeço.
Obrigado!
Lucas_spohr
Curtir tópico
+ 0Posts
04/10/2007
Jhosef
Gostei + 0
04/10/2007
Gandalf.nho
LocImg := ExtractFilePath(Application.ExeName)+´produtos\´; if (FileExists(LocImg + RetornaNomeFoto(DADOS.CDSPRODUTO.FieldByName(´BARRA´).AsString) + ´.jpg´)) then begin RetornaNomeFoto(DADOS.CDSPRODUTO.FieldByName´BARRA´).AsString); Image2.Picture.LoadFromFile(LocImg + RetornaNomeFoto(DADOS.CDSPRODUTO.FieldByName(´BARRA´).AsString) + ´.jpg´) end;
Gostei + 0
04/10/2007
Lucas_spohr
era só o begin mesmo... hehe
Muito obrigado!
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)