Clipper On Line • Ver Tópico - Problema ao executar uma aplicação no Xailer

Problema ao executar uma aplicação no Xailer

Discussão sobre a Xailer

Moderador: Moderadores

 

Problema ao executar uma aplicação no Xailer

Mensagempor leohpaim » 13 Jul 2017 16:15

Estou desenvolvendo um pequeno conversor de dados de fonte Firebird. A comunicação com a base funciona corretamente e o processo aparentemente está sendo processado da forma que implementei. Porém esta aparecendo para mim a seguinte mensagem durante o processo:

"onecoreuap\inetcore\urlmon\zones\zoneidentifier.cxx(359)\urlmon.dll!6FEB1CD0: (caller: 6FEB1A98) ReturnHr(1) tid(1f58) 80070002 O sistema não pode encontrar o arquivo especificado."

Alguém sabe me dizer o que pode ser e como faço para solucionar?
Nota de Moderação:
Toledo: O presente tópico foi movido da seção Contribuição, Dicas e Tutoriais, uma vez que seu conteúdo não tem relação com os objetivos daquela seção.

Leonardo Henrique Paim
Desenvolvedor de Software


"A primeira regra de qualquer tecnologia utilizada nos negócios é que a automação aplicada a uma operação eficiente aumentará a eficiência. A segunda é que a automação aplicada a uma operação ineficiente aumentará a ineficiência."
Bill Gates
Avatar de usuário

leohpaim
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 15
Data de registro: 02 Mai 2017 13:35
Cidade/Estado: Lagoa da Prata - MG
Curtiu: 3 vezes
Mens.Curtidas: 0 vez

Problema ao executar uma aplicação no Xailer

Mensagempor fladimir » 13 Jul 2017 18:51

Parece ser algo relativo a Dll
Poderia postar o Método / função q chama esta rotina q apresenta o erro? Quem sabe possamos entender melhor o q se passa.
Vc tem aplicativos bancários instalados? WARSAW?
Sun Tzu há mais de três mil anos cita nas epígrafes de seu livro “A Arte da Guerra“:

“Concentre-se nos pontos fortes, reconheça as fraquezas, agarre as oportunidades e proteja-se contra as ameaças”.
“Se não é vantajoso, nunca envie suas tropas; se não lhe rende ganhos, nunca utilize seus homens; se não é uma situação perigosa, nunca lute uma batalha precipitada”
.


Até 2017    Desktop Console [ Legado ] Harbour | MinGW | DBF | CDX | FastReport | MySQL


Novos Projetos:

   Desktop Visual           Windev Desktop
   Celular Android/iOS   Windev Mobile
   WEB                            Windev Web


Sejamos gratos a Deus.
Avatar de usuário

fladimir
Colaborador

Colaborador
 
Mensagens: 2434
Data de registro: 15 Nov 2006 19:21
Curtiu: 28 vezes
Mens.Curtidas: 157 vezes

Problema ao executar uma aplicação no Xailer

Mensagempor leohpaim » 17 Jul 2017 11:14

O Erro ocorre ao chamar o Run do objeto oShell:

oShell := CreateObject( "WScript.Shell" )
!GetEnv( "OS" ) == "Windows_NT"
   cComando += "start " + cComando
ENDIF

RET := oShell:Run( "%comspec% /c " + cComando, nStyle, lWait )


O comando que ele está rodando é o seguinte: "%comspec% /c DEL *.NTX"

Leonardo Henrique Paim
Desenvolvedor de Software


"A primeira regra de qualquer tecnologia utilizada nos negócios é que a automação aplicada a uma operação eficiente aumentará a eficiência. A segunda é que a automação aplicada a uma operação ineficiente aumentará a ineficiência."
Bill Gates
Avatar de usuário

leohpaim
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 15
Data de registro: 02 Mai 2017 13:35
Cidade/Estado: Lagoa da Prata - MG
Curtiu: 3 vezes
Mens.Curtidas: 0 vez

Problema ao executar uma aplicação no Xailer

Mensagempor fladimir » 17 Jul 2017 13:28

Leonardo, testei o trecho de código q vc mandou mandando após instanciar o objeto oShell executar e é executado da forma correta

veja abaixo
METHOD Button4Click( oSender ) CLASS TForm2
   local oShell, nRet
   oShell := CreateObject('WScript.Shell')
   nRet := oShell:Run("%comspec% /c DEL *.TXT")
   if nRet == 0
      MsgInfo('Sucesso ao executar o comando!')
   endif
RETURN Nil


Chegou a testar em outro SO?
Sun Tzu há mais de três mil anos cita nas epígrafes de seu livro “A Arte da Guerra“:

“Concentre-se nos pontos fortes, reconheça as fraquezas, agarre as oportunidades e proteja-se contra as ameaças”.
“Se não é vantajoso, nunca envie suas tropas; se não lhe rende ganhos, nunca utilize seus homens; se não é uma situação perigosa, nunca lute uma batalha precipitada”
.


Até 2017    Desktop Console [ Legado ] Harbour | MinGW | DBF | CDX | FastReport | MySQL


Novos Projetos:

   Desktop Visual           Windev Desktop
   Celular Android/iOS   Windev Mobile
   WEB                            Windev Web


Sejamos gratos a Deus.
Avatar de usuário

fladimir
Colaborador

Colaborador
 
Mensagens: 2434
Data de registro: 15 Nov 2006 19:21
Curtiu: 28 vezes
Mens.Curtidas: 157 vezes

Problema ao executar uma aplicação no Xailer

Mensagempor leohpaim » 17 Jul 2017 15:40

Não testei em outros SO's. Vou tentar montar um ambiente para fazer esse teste. Também vou fazer o teste com outra aplicação que tenho desenvolvida para verificar se existe algum erro no projeto ou se é a minha máquina mesmo que falta algo. Assim que tiver mais conclusões volto a postar aqui.

Leonardo Henrique Paim
Desenvolvedor de Software


"A primeira regra de qualquer tecnologia utilizada nos negócios é que a automação aplicada a uma operação eficiente aumentará a eficiência. A segunda é que a automação aplicada a uma operação ineficiente aumentará a ineficiência."
Bill Gates
Avatar de usuário

leohpaim
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 15
Data de registro: 02 Mai 2017 13:35
Cidade/Estado: Lagoa da Prata - MG
Curtiu: 3 vezes
Mens.Curtidas: 0 vez

Problema ao executar uma aplicação no Xailer

Mensagempor JoséQuintas » 18 Jul 2017 17:03

Se o erro é no RUN, muito provavelmente é no aplicativo que está sendo chamado.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 17942
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Problema ao executar uma aplicação no Xailer

Mensagempor leohpaim » 20 Jul 2017 14:45

Saberia me dizer como consigo verificar isso José Quintas?

Tentei em outra máquina e também aconteceu o problema, estamos usando o W10.

Leonardo Henrique Paim
Desenvolvedor de Software


"A primeira regra de qualquer tecnologia utilizada nos negócios é que a automação aplicada a uma operação eficiente aumentará a eficiência. A segunda é que a automação aplicada a uma operação ineficiente aumentará a ineficiência."
Bill Gates
Avatar de usuário

leohpaim
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 15
Data de registro: 02 Mai 2017 13:35
Cidade/Estado: Lagoa da Prata - MG
Curtiu: 3 vezes
Mens.Curtidas: 0 vez

Problema ao executar uma aplicação no Xailer

Mensagempor JoséQuintas » 20 Jul 2017 15:28

Nem sei porque cargas dágua está inventando isso.
Se vai rodar alguma coisa, é só rodar, não tem que inventar moda.
Está carregando o script do windows, pra ele executar uma instância do prompt, pra iniciar uma nova janela, pra executar outro programa
Percebeu o que está fazendo?

Opções:

1. R U N ( cCmd )
2. R U N ( "c m d /c s t a r t " + cCmd )
3. S h e l l E x e c u t e O p e n( "programa" )

Considerações:

Isso equivale a ir no prompt e digitar o comando
Vai no prompt, digita o comando e vê o que acontece.

PROMPT é uma coisa, tem lá seus paths, seu diretório, etc.
O script não conhece diretório atual, paths, etc., precisa explicitamente mostrar aonde estão as coisas, provavelmente ele nem sabe o que é cmd ou start, e está procurando alguma coisa chamada cmd no espaço, já que ele nem sabe se procura numa pasta ou aonde procurar.

Nota: o fórum proíbe certos textos de fonte, tive que ajustar os exemplos.

Se viu com atenção o post do Fladimir:

 nRet := oShell:Run("%comspec% /c DEL *.TXT")


set comspec
ComSpec=C:\WINDOWS\system32\cmd.exe
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 17942
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Problema ao executar uma aplicação no Xailer

Mensagempor JoséQuintas » 20 Jul 2017 15:39

Sobre a terceira opção:
Pra mim não ter que lembrar sempre, não precisar #define, #include, etc., deixei na minha LIB assim:

/*
ZE_SHELLEXECUTE
José Quintas
*/

FUNCTION ShellExecuteOpen( cFileName, cParameters, nShow )

   hb_Default( @cParameters, "" )
   hb_Default( @nShow, WIN_SW_SHOWNORMAL )
   WAPI_ShellExecute( NIL, "open", cFileName, cParameters,, nShow )

   RETURN NIL

FUNCTION ShellExecutePrint( cFileName, cParameters, nShow )

   hb_Default( @cParameters, "" )
   hb_Default( @nShow, WIN_SW_SHOWMINNOACTIVE )
   WAPI_ShellExecute( NIL, "print", cFileName, cParameters,, nShow )

   RETURN NIL
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 17942
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Problema ao executar uma aplicação no Xailer

Mensagempor fladimir » 20 Jul 2017 17:03

vamos fazer o seguinte, como aki não deu erro mando o codigo / projeto gerado e vc compila e testa ai e compara, não pode dar erro tb.
Sun Tzu há mais de três mil anos cita nas epígrafes de seu livro “A Arte da Guerra“:

“Concentre-se nos pontos fortes, reconheça as fraquezas, agarre as oportunidades e proteja-se contra as ameaças”.
“Se não é vantajoso, nunca envie suas tropas; se não lhe rende ganhos, nunca utilize seus homens; se não é uma situação perigosa, nunca lute uma batalha precipitada”
.


Até 2017    Desktop Console [ Legado ] Harbour | MinGW | DBF | CDX | FastReport | MySQL


Novos Projetos:

   Desktop Visual           Windev Desktop
   Celular Android/iOS   Windev Mobile
   WEB                            Windev Web


Sejamos gratos a Deus.
Avatar de usuário

fladimir
Colaborador

Colaborador
 
Mensagens: 2434
Data de registro: 15 Nov 2006 19:21
Curtiu: 28 vezes
Mens.Curtidas: 157 vezes




Retornar para Xailer

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 1 visitante


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro