tela preta - prompt dos dos...

[FARLEY RIBEIRO]

pessoal,

gero alguma etiqueta para impressora zebra e no final imprimo através do comando COPY. só que toda vez aparece a tela preta do prompt do DOS.

Código: Selecionar todos

// AQUI ESTA O MEU PROBLEMA...

run copy /b temp.txt prn >null

// JÁ TENTEI TAMBÉM...

cPorta:= "LPT1"
cFileTxt := "temp.txt"
WAITRUN("COMMAND.COM /C COPY /B " + cFileTxt + " " + cPorta, 0 )

Por acaso, alguém tem alguma solução definitiva para esse problema?

Aguardo sugestões.

Atenciosamente

Farley

[Maligno]

O problema se repete quando executado em outra máquina, com hardware diferente do desta?

[FARLEY RIBEIRO]

Sim acontece em qq máquina. O problema todo é pq estou usando o comando RUN e por isso aparece a tela preta do prompt.

Disseram que o harbour tem o comando COPY FILE <origem> to <destino>...

Eu tentei assim e não deu certo.

worigem = "temp.txt"
wdestino = "LPT1"
COPY FILE &worigem to &wdestino

Alguma dica????

Atenciosamente

Farley

[FARLEY RIBEIRO]

Perfeito, no caso do comando COPY o problema foi resolvido!

Utilizei o comando abaixo:

COPY FILE temp.txt to LPT1

Aproveitando o bonde.. como faço para executar programas externo sem exibir a tela preta...
Será que teria que criar um bat para executar outros comandos?

run <aplicativo.exe>

grato

farley

[sygecom]

Olá Farley,
Pode usar o exemplo abaixo para chamar programas externo:

MYRUN(aplicativo.exe)

Código: Selecionar todos

**************************
Function MYRUN( cComando )
**************************
local oShell, RET
oShell := CreateObject( "WScript.Shell" )
RET := oShell:Run( "%comspec% /c " + cComando, 0, .T. )
oShell := NIL
return iif( RET = 0, .T., .F. )

[rochinha]

Amiguinhos,

Se voce mudar o segundo parametro de WaitRUN( ..., 0 ) para WaitRUN( ..., 7 ) resolve.

[Toledo]

Veja abaixo todos os valores para o segundo parâmetro da função WAITRUN():

0 - Esconde a janela e passa a ativação para outra janela.
1 - Ativa e exibe uma janela. Se a janela é minimizada ou maximizada, Windows restaura para o seu tamanho e posição original (o mesmo que 9).
2 - Ativa uma janela e exibe como um ícone.
3 - Ativa uma janela e exibe como uma janela maximizada.
4 - Exibe uma janela em seu mais recente tamanho e posição. A janela que está atualmente ativa permanece ativa.
5 - Ativa uma janela e mostra na sua atual dimensão e localização.
6 - Minimiza a janela especificada e ativa a janela de nível superior dentro da lista do sistema.
7 - Exibe uma janela como um ícone. A janela que está atualmente ativa permanece ativa.
8 - Exibe uma janela, no seu estado atual. A janela que está atualmente ativa permanece ativa.
9 - Ativa e exibe uma janela. Se a janela é minimizada ou maximizada, Windows restaura para o seu tamanho e posição original (o mesmo que 1).

Abraços,

[clodoaldomonteiro]

Olá pessoal!

Qual a biblioteca que encontro a função waitRUN()?

[sygecom]

Faz parte da FIVEWIN

[Itamar M. Lins Jr.]

Faz parte da FIVEWIN

É , bem, como aqui é fivewin, tudo bem, mas podemos encontrar em outras libs e até no harbour console.

Saudações,
Itamar M. Lins Jr.

[FARLEY RIBEIRO]

A dica do Rochinha foi batata!!!! mudar o segundo parâmetro para 7.

Muito grato mesmo.

Veja...

xComando := "copy /b temp.txt prn > NUL"
WaitRun( xCOMANDO, 7 )

Atenciosamente...

Farley Ribeiro