BEMATECH, testar se esta ligada?

[pena]

tem como testar se a bematech esta ligada, quando mandamos informações com ela desligada o programa tranca, tem como testar se esta ligada? :(Neg

[casesistemas]

Quando a impressora está desligada, o Driver (MPP20DRV/DOS) ou DLL (windows) responde com time-out, porem ela responde com ACK,ST1,ST2
no manual explica melhor como converter este retorno.

Abracos


Joao Carlos

[Mário Isa]

vejaisso:

// Leitura do Estado da Impressora
Comando := Chr(27) + Chr(251) + "19|" + Chr(27)
Gravaarquivo(comando)
!bemafi
if memoread('status.txt')='006016001'
Tecle('ECF desligado ou cabo desconectado.')
Return .f.
endif

/////////////////////
Function GravaArquivo
/////////////////////
Parameters Comando

Delete File( "BEMAFI.CMD" )
Delete File( "STATUS.TXT" )
Delete File( "RETORNO.TXT" )

iArquivo := FCreate( "BEMAFI.CMD" )

FWrite( iArquivo, @Comando, Len( Comando ) )
FClose( iArquivo )
//////
Return
//////