kapiaba Posted September 15, 2010 Report Share Posted September 15, 2010 Galera ajuda ahi, isto é FOR DOS modo CONSOLE. FUNCTION VERIFICA_PORTA_LPT4() VERRO=0 ARQTESTE="LPT4.PRN" TESTE=FOPEN(ARQTESTE) VERRO=FERROR() IF VERRO=3 SET PRINTER TO LPT1 RETURN( .F. ) ENDIF SET DEFAULT TO //-> AQUI GERA O ERRO: ( DOS ERROR 2 ) TERM/2014 //-> Como evitar se a porta nao existe? SET PRINTER TO LPT4 RETURN( .T. ) id=code>id=code>Abraços. João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
kapiaba Posted September 15, 2010 Author Report Share Posted September 15, 2010 Galera ajuda ahi, isto é FOR DOS modo CONSOLE. FUNCTION VERIFICA_PORTA_LPT4() VERRO=0 ARQTESTE="LPT4.PRN" TESTE=FOPEN(ARQTESTE) VERRO=FERROR() IF VERRO=3 SET PRINTER TO LPT1 RETURN( .F. ) ENDIF SET DEFAULT TO //-> AQUI GERA O ERRO: ( DOS ERROR 2 ) TERM/2014 //-> Como evitar se a porta nao existe? SET PRINTER TO LPT4 RETURN( .T. ) id=code>id=code>Abraços. João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted September 15, 2010 Report Share Posted September 15, 2010 Talvez ajude.. http://www.pctoledo.com.br/forum/viewtopic.php?f=1&t=6856 Abraços.. Retorne avisando se a dica funcionouid=red> Luiz Arruda Corumbá - MS ico.corumba@gmail.com Quote Link to comment Share on other sites More sharing options...
VLNUNES Posted September 15, 2010 Report Share Posted September 15, 2010 O Erro 2 se não me engano é arquivo não encontrado, verifique: TESTE=FOPEN(ARQTESTE) Vander HbMake v1.17 xHarbour build 0.99.70 Intl. (SimpLex) Borland C++ 5.5.1 fivewin 6.12 (FREE) Workshop 4.5 MEdit Quote Link to comment Share on other sites More sharing options...
kapiaba Posted September 16, 2010 Author Report Share Posted September 16, 2010 citação:O Erro 2 se não me engano é arquivo não encontrado, verifique: TESTE=FOPEN(ARQTESTE) Vander HbMake v1.17 xHarbour build 0.99.70 Intl. (SimpLex) Borland C++ 5.5.1 fivewin 6.12 (FREE) Workshop 4.5 MEdit id=quote>id=quote>Vander isto eu já faço, mas como ele não acha o arquivo da porta LPT4, pois ela não existe, aborta o programa, o que eu quero e evitar que ele aborte, como faço? João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
tiaoFW Posted September 16, 2010 Report Share Posted September 16, 2010 Bom dia João. Voce não pode dar um FOPEN num arquivo que não existe, voce deve cria-lo primeiro. t+ FWXH 10.06, PELLESC, MYMAKE 1.9J, DBF Belzonte - Minas Gerais msn: tiaopessoa@hotmail.com Quote Link to comment Share on other sites More sharing options...
vailtom Posted September 16, 2010 Report Share Posted September 16, 2010 João, bom dia. Teste este código por favor e me diga como ele se comporta com você aê: ? 'Testando portas paralela...' FOR i := 1 TO 9 p := 'LPT'+ALLTRIM(STR(i)) ? p, TestaPorta( p ) NEXT ? ? 'Testando portas seriais...' FOR i := 1 TO 9 p := 'COM'+ALLTRIM(STR(i)) ? p, TestaPorta( p ) NEXT ? ? FUNCTION TestaPorta(cPorta) nHandle := FOpen(cPorta) lResult := .T. IF ( nHandle == -1 ) lResult := .F. ELSE FClose( nHandle ) ENDIF RETURN lResultid=code>id=code> Quote Link to comment Share on other sites More sharing options...
kapiaba Posted September 16, 2010 Author Report Share Posted September 16, 2010 citação:Bom dia João. Voce não pode dar um FOPEN num arquivo que não existe, voce deve cria-lo primeiro. t+ FWXH 10.06, PELLESC, MYMAKE 1.9J, DBF Belzonte - Minas Gerais msn: tiaopessoa@hotmail.com id=quote>id=quote>Tião rapaz, LPT1,2,3,4, é reservado do WINDOWS, não posso criar. Você está errado e o VAILTON CORRETO! kkkk Abraços. João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
kapiaba Posted September 16, 2010 Author Report Share Posted September 16, 2010 Valeu Vailton, resolvido. FUNCTION VERIFICA_PORTA_LPT4() VERRO := 0 ARQTESTE := "LPT4.PRN" TESTE := FOPEN(ARQTESTE) VERRO := FERROR() IF VERRO=3 STOR 1 TO WTPPORTA,WVTPPORTA SET PRINTER TO LPT1 RETURN( .F. ) ENDIF IF ( TESTE == -1 ) lPorta_Lpt4 := .T. // Para nao abortar o programa se nao tem porta RETURN( .F. ) ELSE SET DEFAULT TO SET PRINTER TO LPT4 ENDIF RETURN( .T. ) id=code>id=code>Abracos João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.