Indentificar q não existe uma foto na pasta especificada

[Sérgio H. Martins 0]

Bom dia pessoal,Criei um cadastro de clientes que tem a opção de incluir foto, ele faz o seguinte, quando começo a preencher o cadastro coloco nome etc, ai clico para inserir a foto e salvo ela, até ai tudo bem, depois pesquiso o cliente e ele abre a foto correspondente que foi salva com o nome do cliente .jpg na pasta fotos clientes. Esta parte esta correto, mas se o cliente não tem foto na pasta ele diz q não foi possivel achar o arquivo. e se eu editar e colocar a foto fica tudo normal novamente. Então o que preciso é que quando ele ver q não tem foto na pasta ele apenas coloque o logo da empresa no timage. em vez de me dar a mensagem, segue abaixo o código.

procedure Tfrmcadcliente.BitBtn2Click(Sender: TObject);begin//Abre a o Meus documentos para inserir a fotoOpenPictureDialog1.Execute;Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);Image1.Stretch:=true;//Salva a imagem com o Nome do cliente no formato .JPGSavePictureDialog1.Execute;SavePictureDialog1.FileName:=dbedit3.Text+('.jpg');Image1.Picture.SaveToFile(SavePictureDialog1.FileName);end;

Dados da identificação da imagem.

procedure Tfrmcadcliente.DBGrid1DblClick(Sender: TObject);varfoto:string;semfoto:string;begin//ROTINA PARA IDENTIFICAÇÃO DA FOTO DO CLIENTE PESSOA FÍSICAfoto:=('C:\DPaula\fotosclientes\')+dbedit3.Text+('.jpg');OpenPictureDialog1.FileName:=foto;//--TENTEI DESTE MODO DIZER SE NÃO ENCONTRAR A FOTO COLOCAR O LOGO MAS NÃO DA CERTOif OpenPictureDialog1.FileName<>foto thenbeginImage1.Picture.LoadFromFile('C:\DPaula\img\logotipo.jpg');Image1.Stretch:=true;end;if OpenPictureDialog1.FileName<>(dbedit3.text) thenbeginImage1.Picture.LoadFromFile('C:\DPaula\img\logotipo.jpg');Image1.Stretch:=true;end;//-------------------------------------------------//ESTA PARTE FUNCIONA if OpenPictureDialog1.FileName=foto thenbeginImage1.Picture.LoadFromFile(OpenPictureDialog1.FileName);Image1.Stretch:=true;end;dbgrid1.Visible:=false;end;

E também gostaria de saber se tem como fazer essa rotina abrir GIF em vez de JPG, Obrigado pela atençao de todos ate agoraUm grande abraçoSergio Martins

[Hugo Slepicka 0]

Verificando se existe ou não:

procedure TForm1.FormCreate(Sender: TObject);var Path_Da_Foto : String;begin  if Not FileExists(Path_Da_Foto) then  Begin	showmessage('Não existe o arquivo: '+ Path_Da_Foto);  end  Else  Begin	showmessage('Existe o arquivo: '+ Path_Da_Foto);  end;end;

http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[Sérgio H. Martins 0]

Olá Hugo, Show de bola sua diga, deu muito certo, segue abaixo como ficou o código.

procedure Tfrmcadcliente.DBGrid1DblClick(Sender: TObject);varfoto:string;begin//ROTINA PARA IDENTIFICAÇÃO DA FOTO DO CLIENTE PESSOA FÍSICAfoto:=('C:\DPaula\fotosclientes\')+(dbedit3.text)+('.jpg');OpenPictureDialog1.FileName:=foto;  if Not FileExists(foto) then      begin        Image1.Picture.LoadFromFile('C:\DPaula\img\logotipo.jpg');        Image1.Stretch:=true;      end      Else    begin      Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);      Image1.Stretch:=true;    end;dbgrid1.Visible:=false;end;

Mais uma coisinha teria como fazer o OpenPictureDialog abrir uma .GIF?Agradeço muito a ajuda que voce me deu um grande abraço. Sérgio Martins

[Hugo Slepicka 0]

Opa, beleza sérgio...

agora aqui vai mais uma, não sei se vai ser muito útil, mas com relação ao Gif acho que ese site vai lhe ajudar:

http://delphi.about.com/od/graphics/a/delphigif.htm

 

 

ou então esse:

http://www.swissdelphicenter.com/en/showcode.php?id=2012

 

Abraço! http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif