Fórum Dúvida em baixar imagem. #368744

02/03/2009

0

Bom dia.

quando carrego uma imagem usando TImage faço o seguinte:

if FileExists(´Aqui o caminho da imagem no HD´) then
  Image1.Picture.LoadFromFile(´Aqui o mesmo caminho da imagem´);


Minha dúvide é se esse procedimento é correto? Vejo que muitos usam [b:8e33618191]Try ... except[/b:8e33618191].

Até agora não tive problemas trabalhando na máquina local. Gostaria de saber se em rede posso usar o mesmo procedimento.


Obrigado.


Abelha

Abelha

Responder

Posts

03/03/2009

Discorpio

Bom dia Abelha.

O seu procedimento está correto, pois a função FileExists(Nome do arquivo) testa se o arquivo existe no disco, em caso negativo, o seu código não fará mais nada, só acho que neste caso, voce deveria implementar uma mensagem avisando caso o arquivo não seja encontrado.

O uso do Try....Except.....End se faz necessário as vezes pois este comando nada mais é do que um tratamento de erro, ou seja, o que estiver dentro do bloco Try...Except será testado pelo programa, em caso de haver por exemplo alguma leitura de arquivo corrompido em algumas das linhas dentro desse bloco, ao invés do programa gerar a exceção de erro, ele desvia a execução para as linhas para dentro do bloco Except....End, de onde voce pode tratar o erro. Se não haver erro dentro do Try..Except, o programa pula a execução do bloco Except....End. Exemplo:

  Try
      if FileExists(´Aqui o caminho da imagem no HD´) then 
         Image1.Picture.LoadFromFile(´Aqui o mesmo caminho da imagem´)
      else
         ShowMessage(´Arquivo Inexistente´)
   Except
      On E: Exception do
           ShowMessage(´Houve erro na leitura do arquivo ´+E.Message);
   End;


Cappichi


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar