Interceptar msg do DOS

Question

Ol�... o fato � o seguinte... estou fazendo uma chamada do meu aplicativo para um execut�vel do DOS... Se existir um poss�vel erro, onde o execut�vel do DOS n�o venha terminar a opera��o este apresent...

Thiago Vidal · Answer

Voce pode tentar executar a linha da seguinte forma:

"comando.exe > arqtemp.txt"

Se o programa do DOS escrever para stdout (o que a maioria faz ou deveria fazer) dentro de arqtemp.txt estar� a mensagem retornada, voce s� precisa ler a mesnagem usando um FileStream ou alguma outra forma de acesso a arquivo texto e em seguita apagar o arquivo tempor�rio.

Talvez nao seja a solu��o mais elegante, mas � funcional.

Nerdex · Answer

Ahh... � Thiago, eu estava desconfiado disto !! pois ap�s o erro este arquivo .tmp � criado e eu n�o podia delet�-lo pq estava em uso !!

Juro...!! que eu at� desliguei o micro e o liguei novamente para poder delet�-los, n�o sabendo a fonte de cria��o deles !! Agora ja sei...

Mas Thiago... sobre isto = �comando.exe > arqtemp.txt�

Eu posso embutir � uma chamada para um showmessage, comandos ShellExecute ou WinExec para a exibi��o direta da mensagem? Ou tenho que abrir o arquivo .temp de forma stream e assim convert�-lo para tipo string? Me d� a dica final e a mais aplic�vel para o caso...

Obrigado

Adilsond · Answer

Como executar uma aplica��o DOS e pegar seu retorno em delphi. Adenilton RodriguesDelphi17/09/2002 17:58:48 [url]//lib.seven.com.br/ampliar.asp?codcat=1&codartigo=500[/url]...

Nerdex · Answer

Obrigado Adenilton... � bem isto que precisava... come�arei agora os testes. O site lib.seven � �timo... pois prioriza divulgar a ess�ncia nos contextos de programa��o, proporcionando um alto n�vel de qualidade nas informa��es e conhecimentos, e s�o altamentes dirigidos para a comunidade de TI. Parab�ns pela mat�ria.

Ograde�o muito a dica...

Ricardo
Santa Maria - RS
pcunit@terra.com.br

Nerdex · Answer

Ade... olha... eu fiquei um pouco enrrolado com aquele c�digo, pois ele � meio bruxo de entender... Me d� uma orienta��o... se eu der este comando a�... embaixo por exemplo: e o arquivo ja estiver comprimido, ser� retornado um erro, certo... como eu fa�o p/ �pegar� a msg de erro disto? Acoplei a string no par�meto DosApp da procedure mas � adiantou...

//UPX - compress�o
WinExec(�Command.com /c upx --best C:\Dados\Arp.exe�, 0);

Depois eu desejaria fazer um para o GFix e o GBack do IB, para disponibilizar p/ o usu�rio um interfaceamento gr�fico para uma poss�vel manuten��o de corrup��o de dados, caso fosse necess�rio... que acha?

Mande-me um exemplo por e-mail?
pcunit@terra.com.br

Adilsond · Answer

A fun��o criada pelo Adenilton executa o comando passado a ele espera o fim do mesmo e retorna o seu resultado ao Memo passado como parametro. Ent�o voce deve executar o comando assim:

CaptureConsoleOutput(�C:\Diretorio\upx.exe --best C:\Diretorio\Arquivo.exe�, Memo1);

F�rum Interceptar msg do DOS #227223