Mostrar um aviso se o arquvo ja estiver em uso?

Question

Como fa�o para mostrar um aviso para o usuario quando um arquivo ja esta aberto?Explicando: Tenho um codigo que gera um PDF, ai carrego o arquivo no Adobe. Bom at� ai blz, mais vamos supor que eu tent...

Marcosrocha · Answer

Coloca num [b:5b63f4b740]try[/b:5b63f4b740] com [b:5b63f4b740]except[/b:5b63f4b740]. Caso haja exce��o, o arquivo est� sendo utilizado....

Adriano_servitec · Answer

[quote:c76b9bf5e5=�mcblade�]Coloca num [b:c76b9bf5e5]try[/b:c76b9bf5e5] com [b:c76b9bf5e5]except[/b:c76b9bf5e5]. Caso haja exce��o, o arquivo est� sendo utilizado.[/quote:c76b9bf5e5]Obrigado amigo, mais n�o conseguiOlhe[code:1:c76b9bf5e5]try            ppReport1.TextFileName := �c:pedidos�+wNomarq+�.PDF�; //Joga o pdf criado para a pasta aonde esta o programa l� no cliente.            ppReport1.PrintReport;          except           {Todo -cModulo EnviaPed -oAdriano:N�o funcionou, queria mostrar uma mensagem se o arquivo ja estivesse em uso no adobe}           if FileOpen(Caminho+wNomarq+�.PDF�,fmOpenReadWrite) > 0 then           else             raise Exception.Create(�Arquivo est� aberto. Feche o Adobe para gravar o pedido�);            Abort;          end;[/code:1:c76b9bf5e5]...

Marcosrocha · Answer

Na verdade eu tinha em mente algo do tipo:

try
  ppReport1.TextFileName := �c:\pedidos\�+wNomarq+�.PDF�; //Joga o pdf criado para a pasta aonde esta o programa l� no cliente.
  ppReport1.PrintReport;
except
  {Todo -cModulo EnviaPed -oAdriano:N�o funcionou, queria mostrar uma mensagem se o arquivo ja estivesse em uso no adobe}
  on E: Exception do
  begin
    if Pos(�CANNOT OPEN FILE�, E.Message) > 0 then
      raise Exception.Create(�Arquivo est� aberto. Feche o Adobe para gravar o pedido�)
    else
      raise E;
  end;
end;

E ainda que eu nem uso �raise exception� no except dos meus try eu uso [b:57e6239d04]MessageDlg(�Arquivo est� aberto. Feche o Adobe para gravar o pedido�, mtError, [mbOK],0)[/b:57e6239d04].

Adriano_servitec · Answer

[quote:6aeed52f6c=�mcblade�]Na verdade eu tinha em mente algo do tipo:[code:1:6aeed52f6c]try  ppReport1.TextFileName := �c:pedidos�+wNomarq+�.PDF�; //Joga o pdf criado para a pasta aonde esta o programa l� no cliente.  ppReport1.PrintReport;except  {Todo -cModulo EnviaPed -oAdriano:N�o funcionou, queria mostrar uma mensagem se o arquivo ja estivesse em uso no adobe}  on E: Exception do  begin    if Pos(�CANNOT OPEN FILE�, E.Message) > 0 then      raise Exception.Create(�Arquivo est� aberto. Feche o Adobe para gravar o pedido�)    else      raise E;  end;end;[/code:1:6aeed52f6c]E ainda que eu nem uso �raise exception� no except dos meus try eu uso [b:6aeed52f6c]MessageDlg(�Arquivo est� aberto. Feche o Adobe para gravar o pedido�, mtError, [mbOK],0)[/b:6aeed52f6c].[/quote:6aeed52f6c]Obrigado pela ajuda, mais n�o deu certo, aparece o erro de Access violation caso o adobe esteja aberto com o mesmo arquivo em uso....

Marcosrocha · Answer

Tente modificar o c�digo e adapt�-lo para a sua necessidade, veja debugando com F8 se o texto em E.Message cont�m alguma palavra que voc� possa usar como refer�ncia para saber se o arquivo est� sendo usado.

Adriano_servitec · Answer

N�o passa da linha em vermelho[quote:67673997e8]try            {:Gera o arquivo PBD para ser anexado}            n_Pedido := qr_PedidoSelecionadonum_pedido.AsString;            wNomarq  := �PD�+FormatDateTime(n_pedido+�.yymmdd�, now);            ppReport1.DeviceType := �PDFFile�;            ppReport1.SaveAsTemplate := True;            ppReport1.SavePrinterSetup := True;            ppReport1.TextFileName := �c:pedidos�+wNomarq+�.PDF�; //Joga o pdf criado para a pasta aonde esta o programa l� no cliente.            {:Grava no RBuilder}            [color=red:67673997e8]ppReport1.PrintReport;[/color:67673997e8]          except           {Todo -cModulo EnviaPed -oAdriano:N�o funcionou, queria mostrar uma mensagem se o arquivo ja estivesse em uso no adobe}            on E: Exception do            begin              if Pos(�cannot open file�, E.Message) > 0 then                raise Exception.Create(�Arquivo est� aberto. Feche o Adobe para gravar o pedido�)              else                raise E;            end;          end;  [/quote:67673997e8]...