(Resolvido) Como não dá mensagem de erro se não achar a imagem..

[robinhocne]

Estou com um pequeno problema....

gravo no banco de dados o caminho da imagem da aplicação, mas quando não tem esse imagem

no caminho salvo do banco ele da esse erro:

Cannot open file "C:\IZACFC\IMAGENS\IZACFC.JPG". O sistema não pode encontrar o caminho especificado.

como eu posso pular esse erro ??

esse é o meu codigo fonte que eu pego o caminho da imagem:

procedure Tfrmprincipal.FormShow(Sender: TObject);
var
  caminho : string;
begin
   BuscaDataCaixa;

   //buscar caminho da imagem
   with DtmIza.QryConfig do
   begin
     close;
     sql.Clear;
     sql.Add('select Imagem_Prin from Configuracao');
     open;
   end;

   if DtmIza.QryConfig.FieldByName('Imagem_Prin').AsString <> null then
     begin
        Caminho := DtmIza.QryConfig.FieldByName('Imagem_Prin').AsString;
        Image1.Picture.LoadFromFile(Caminho);
     end;
  
end;

[Jhonas]

gravo no banco de dados o caminho da imagem da aplicação, mas quando não tem esse imagem

no caminho salvo do banco ele da esse erro:

Cannot open file "C:\IZACFC\IMAGENS\IZACFC.JPG". O sistema não pode encontrar o caminho especificado.

como eu posso pular esse erro ??

Basta testar se existe o arquivo para o caminho especificado

if DtmIza.QryConfig.FieldByName('Imagem_Prin').AsString <> null then
     begin
        Caminho := DtmIza.QryConfig.FieldByName('Imagem_Prin').AsString;

        if FileExists(caminho) then 
           Image1.Picture.LoadFromFile(Caminho);
     end;

abraço

[robinhocne]

gravo no banco de dados o caminho da imagem da aplicação, mas quando não tem esse imagem

no caminho salvo do banco ele da esse erro:

Cannot open file "C:\IZACFC\IMAGENS\IZACFC.JPG". O sistema não pode encontrar o caminho especificado.

como eu posso pular esse erro ??

Basta testar se existe o arquivo para o caminho especificado

if DtmIza.QryConfig.FieldByName('Imagem_Prin').AsString <> null then
     begin
        Caminho := DtmIza.QryConfig.FieldByName('Imagem_Prin').AsString;

        if FileExists(caminho) then 
           Image1.Picture.LoadFromFile(Caminho);
     end;

abraço

Ok Resolvido...

Isso mesmo que eu queria!