Problema ao executar uma aplicação no Xailer

[leohpaim]

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?

[fladimir]

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?

[leohpaim]

O Erro ocorre ao chamar o Run do objeto oShell:

Código: Selecionar todos

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"

[fladimir]

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

Código: Selecionar todos

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?

[leohpaim]

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.

[JoséQuintas]

Se o erro é no RUN, muito provavelmente é no aplicativo que está sendo chamado.

[leohpaim]

Saberia me dizer como consigo verificar isso José Quintas?

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

[JoséQuintas]

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:

Código: Selecionar todos

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

set comspec
ComSpec=C:\WINDOWS\system32\cmd.exe

[JoséQuintas]

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

Código: Selecionar todos

/*
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

[fladimir]

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.