| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
ric_rio2
Aprendiz
Registrado: Segunda-Feira, 1 de Outubro de 2018
Mensagens: 108
|
 Enviada: Qua Fev 19, 2020 8:37 am Assunto: FileExists FireMonkey e Desktop |
 |
|
Bom dia..
Criei um projeto para BACKUP de dados em FIREMONKEY.
Ele ira rodar em um DESKTOP.
Tenho a seguinte linha..
| Código: | If Not FileExists(Label_MySQlDump.Text) then
ShowMessage('MySQlDump.Exe NÃO EXISTE') |
Se eu rodo no windows 10 onde esta instalado o DELPHI.. funciona
Se eu rodo no windows 7 da Socket error #10013 Access denied.
Algum dos senhores sabe o porque desse comportamento?
Desde já agradeço a atenção  |
|
| Voltar ao Topo |
|
 |
joemil
Moderador
Registrado: Quinta-Feira, 25 de Março de 2004
Mensagens: 9100
Localização: Sinop-MT
|
| Enviada: Qua Fev 19, 2020 9:40 am Assunto: |
|
|
esses arquivos estao em qual pasta?
liberou a UAC do windows?
testou em outros computadores?
veja estes exemplos:
[url]http://docwiki.embarcadero.com/CodeExamples/Rio/en/FileExists_(Delphi)[/url]
_________________
<b>SEMPRE COLOQUE [RESOLVIDO] NO SEU POST</b>
Enviar imagens: http://tinypic.com/ |
|
| Voltar ao Topo |
|
|
ric_rio2
Aprendiz
Registrado: Segunda-Feira, 1 de Outubro de 2018
Mensagens: 108
|
| Enviada: Qua Fev 19, 2020 2:35 pm Assunto: |
|
|
Boa tarde joemil..
Cara..
Testei na máquina com delphi 10 - OK
Testei em outra maquina com Win 7 - deu o erro mensionado
e testei em uma maquina com windows server 2008 - OK
O arquivo esta em uma pasta qualquer que alguem criou.
Nao esta no SYSTEM nem no Arquivo de Programas.
Você pode falar mais sobre esse UAC?
Sobre o UAC que tu falou.. não sei do que se trata..
Mesmo porque, com o Delphi 7 não era necessário nada.. o FileExists funcionava em tudo quanto era lugar
Win 10, Win 7 , Servidores... etc ..etc..
Inclusive eu fiz um form em Delphi 7 agora com o mesmo comando e funcionou tudo normal como falei acima.. O problema "eu acho" é com algum
parangole no FIREMONKEY.. |
|
| Voltar ao Topo |
|
|
ric_rio2
Aprendiz
Registrado: Segunda-Feira, 1 de Outubro de 2018
Mensagens: 108
|
| Enviada: Qua Fev 19, 2020 2:38 pm Assunto: |
|
|
Boa tarde joemil..
Cara..
Testei na máquina com delphi 10 - OK
Testei em outra maquina com Win 7 - deu o erro mensionado
e testei em uma maquina com windows server 2008 - OK
O arquivo esta em uma pasta qualquer que alguem criou.
Nao esta no SYSTEM nem no Arquivo de Programas.
Você pode falar mais sobre esse UAC pois não sei do que se trata..
Mesmo porque, com o Delphi 7 não era necessário nada.. o FileExists funcionava em tudo quanto era lugar
Win 10, Win 7 , Servidores... etc ..etc..
Inclusive eu fiz um form em Delphi 7 agora com o mesmo comando e funcionou tudo normal como falei acima.. O problema "eu acho" é com algum
parangole no FIREMONKEY.. |
|
| Voltar ao Topo |
|
|
natanbh1
Colaborador
Registrado: Terça-Feira, 15 de Março de 2011
Mensagens: 3093
Localização: Belo Horizonte - MG
|
|
| Voltar ao Topo |
|
|
ric_rio2
Aprendiz
Registrado: Segunda-Feira, 1 de Outubro de 2018
Mensagens: 108
|
| Enviada: Qua Fev 19, 2020 3:03 pm Assunto: |
|
|
boa tarde natanbh1..
Valeu pelo esclarecimento..
Contudo.. para mim não faz muito sentido pois como falei com o delphi 7
funciona sem nenhum problema.. Não estou certo? |
|
| Voltar ao Topo |
|
|
natanbh1
Colaborador
Registrado: Terça-Feira, 15 de Março de 2011
Mensagens: 3093
Localização: Belo Horizonte - MG
|
| Enviada: Qua Fev 19, 2020 3:11 pm Assunto: |
|
|
Realmente é muito estranho essa situação.
| Código: | | Access Denied = Acesso Negado. |
Por isso o joemil te pediu para verificar se você tem permissão nessa pasta e liberar os bloqueios do Windows.
Outra parte da mensagem que parece estranha:
| Código: | | Socket Error = Erro de Socket |
Que eu saiba o FileExists não usa Socket para fazer essa validação.
Verifique se o erro vem de outra linha do código e não a que você mencionou.
_________________
''A persistência é o caminho para o êxito.''
Charlie Chaplin |
|
| Voltar ao Topo |
|
|
ric_rio2
Aprendiz
Registrado: Segunda-Feira, 1 de Outubro de 2018
Mensagens: 108
|
| Enviada: Qui Fev 20, 2020 6:49 am Assunto: |
|
|
Bom dia natanbh1..
| Código: | | Verifique se o erro vem de outra linha do código e não a que você mencionou. |
Cara.. Tirei tudo.. só deixei um form (FMX) com um botao , um edit .
No código esta
| Código: | If FileExists(Edit.Text) then
begin
ShowMEssage('EXISTE')
end
Else
begin
ShowMessage('NÃO Existe')
end |
|
|
| Voltar ao Topo |
|
|
natanbh1
Colaborador
Registrado: Terça-Feira, 15 de Março de 2011
Mensagens: 3093
Localização: Belo Horizonte - MG
|
| Enviada: Sex Fev 21, 2020 2:10 pm Assunto: |
|
|
Fiz um teste aqui com seu código em uma aplicação Firemonkey Desktop e funcionou sem erros.
Testei no Windows 10. Precisaria que alguém que tem Windows 7 fizesse esse teste.
_________________
''A persistência é o caminho para o êxito.''
Charlie Chaplin |
|
| Voltar ao Topo |
|
|
strak2012
Colaborador
Registrado: Segunda-Feira, 13 de Janeiro de 2014
Mensagens: 1518
Localização: Maceió - AL
|
| Enviada: Sáb Fev 22, 2020 1:59 am Assunto: |
|
|
O problema não é o acesso a pasta que se estar especificando
Socket error #10013 Access denied
| Código: | If Not FileExists(Label_MySQlDump.Text) then // o erro ocorre antes deste if
ShowMessage('MySQlDump.Exe NÃO EXISTE') |
o que acontece é que voce estar com problema de Firewall, o mesmo estar barrando a conexão do seu socket, vejo que deve estar a trabalhar com mysql então verifica se existe um firewall ativo na porta default do mysql 3306 ou se o mesmo já não estar bloqueando o acesso
Normalmente em W7 ou W10 ao axecutar uma aplicação que tem acesso a internet o mesmo antes de fazer qualquer coisa pergunta se o usuário autoriza ou não o aplicativo a ter acesso a internet.
mais como sou um cara que gosta muito de simplificar as coisa
teste criar uma aplicação aepans com o seguinte if
If Not FileExists([local+MySQlDump.Exe]) then // o erro ocorre antes deste if
ShowMessage('MySQlDump.Exe NÃO EXISTE');
e nada mais e volte a testar nas duas maquina e tire sua própria conclusão.
_________________
Tudo podemos quando tudo sabemos! |
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
