PC Toledo

Amiguinhos,

Agora são 18:00hs no meu comutador, notebook e Samgung.

As funções GetProfString devem fazer parte da xHB.lib, basta acrescentá-la as chamadas do ligador.

Meu fuso estava confuso e salvou minhas mensagens com 1 hora de atraso.

rochinha escreveu:As funções GetProfString devem fazer parte da xHB.lib, basta acrescentá-la as chamadas do ligador.

prezado professor Rochinha... não tô entendendo nada!

Amiguinhos,

microvolution
Acrescente a xHB.lib ao seu batch de compilação.

rochinha escreveu:Acrescente a xHB.lib ao seu batch de compilação.

como eu disse anteriormente, não estou entendendo nada... o que tem a ver XHB e quais códigos devo acrescentar que dependem de XHB, pois não acrescentei nada...
reveja os meus últimos comentários por favor, para verificar se estamos falando a mesma coisa! please!
ou seu perfil foi hackeado (como diz o asimoes)?

boa noite a todos!
prezado professor asimoes:
fiz o primeiro teste (idêntico ao código que V.Sa. postou) do TRY.CATCH e não deu certo. Veja a mensagem de erro:

Código: Selecionar todos

pci10001.prg(3350) Error E0020  Incomplete statement or unbalanced delimiters // linha do TRY
pci10001.prg(3354) Error E0020  Incomplete statement or unbalanced delimiters // linha do CATCH
pci10001.prg(3388) Error E0011  ENDDO does not match WHILE

Como não entendo nada da sintaxe do try.catch... não tenho nem ideia do que esteja errado.

Microvolution,

Mostre o seu código que vou dizer onde você está errando.

Obs.: Você tem que incluir no incio do seu fonte:

#include "hbcompat.ch"

Outra coisa,

Cria um programa simples para testar

Código: Selecionar todos

#include "hbcompat.ch"
FUNCTION MAIN
   Try
      SET PRINTER TO LPT1
      SET PRINT ON
   Catch
      Alert("Erro na impressão")
      //Aqui você coloca os seus controles
   End
RETURN Nil

asimoes escreveu:Mostre o seu código que vou dizer onde você está errando.

o código é o mesmo que vc alterou pra mim, lembra? pra evitar de vc procurar, olha-o novamente aqui:

Código: Selecionar todos

      do while lastkey () <> K_ESC
           try
               SET DEVICE TO PRINTER 
               SET PRINTER TO LPT1
               SET PRINT ON
           catch
            if .not. CONFIRMA3 ( 'A Impressora Matricial LPTx Est  Pronta?' , 1 , 'SiCCA v3.6 - Verifique Sua Impressora Matricial (paralela)' ) == 1
               if .not. CONFIRMA3 ('Deseja Ent„o Usar Outra Impressoras Instaladas ( USB, em Rede, etc) ? ',1,'SiCCA v3.6 - Impressoras Alternativas') == 1
                  * Abandona o programa // acrescentada p/ parar erro na RIMPR000 na função CONFIG_COMANDO (linha 300) 14/12/15w
                  keyboard chr (K_ESC) // acrescentada p/ parar erro na RIMPR000 na função CONFIG_COMANDO (linha 300) 14/12/15w
                  inkey () // acrescentada p/ parar erro na RIMPR000 na função CONFIG_COMANDO (linha 300) 14/12/15w
                  lUSB := .f.
                  return .f.
                  exit // acrescentada p/ parar erro na RIMPR000 na função CONFIG_COMANDO (linha 300) 14/12/15w
               else // acrescentada p/ parar erro na RIMPR000 na função CONFIG_COMANDO (linha 300) 14/12/15w
                  lUSB := .t.
                  mUSBPRN := substr (dtos(date()),3,2) + substr (dtos(date()),5,2) + left (time(),2) + substr (time(),4,2) + right (time(),2)
                  exit
               endif
                * Abandona o programa
           endif
         end
      enddo

As linhas acima são as que estão no meu aplicativo...

asimoes escreveu:
Obs.: Você tem que incluir no incio do seu fonte:
#include "hbcompat.ch"

Isto eu não sabia... aliás nem sabia que existia o try.catch.end no harbour... sei que existe no delphi, mas, aqui não!

Enviado: **02 Mar 2016 10:14**

asimoes escreveu:Cria um programa simples para testar

bom dia a todos!
fiz o pequeno exemplo e incluí para funcionar a lib XHB.HBC.
Bom, no windows 10/64 já testei...
Nessa versão do windows, não possuo impressora LPTx instalada, somente uma HP c4280 (USB).
E a mensagem de erro apareceu:

Código: Selecionar todos

   Alert("Erro na impressão")

Falta testar no windows xp/32 onde tenho uma EPSON LX300 instalada (LPTx) e vou fazer o teste com ela ligada e desligada.
Assim, que eu puder fazer, postarei os resultados!

Enviado: **05 Mar 2016 20:39**

microvolution escreveu:Falta testar no windows xp/32 onde tenho uma EPSON LX300 instalada (LPTx) e vou fazer o teste com ela ligada e desligada.

bom, testei, e infelizmente deu o mesmo problema que acontecia em qualquer outro teste com outras funções...
- se a impressora estiver ligada = o resultado é que não aparece a tal mensagem de erro que aconteceu no win 10/64 bits;
- se a impressora estiver DESLIGADA = o resultado é que não aparece a tal mensagem de erro que aconteceu no win 10/64 bits.

Estava pensando aqui... o Viktor e outros lá do google groups users

Bom, quando ainda estava no clipper (16 bits) a coisa funcionava perfeitamente, foi só após a migração para harbour (32 bits) é que a coisa mudou...
então, o problema está que quando a Microsoft ou sei lá quem criou esse 32 bits, mudou alguma coisa no hardware que não mais aceita o jeito que o MSDOS (16 bits) interpretava as portas LPTx/COMx...

no MSDOS pelo que o Viktor me respondeu é feita uma leitura diretamente da BIOS, já no 32 bits (windows) isso é feito pela instalação da impressora.
Se ela está instalada é o que interessa (para o windows), mas, para mim, o que interessa é se a impressora está ligada ou não (on line ou off line).

Obrigado asimoes, mas, infelizmente não deu também, e, agora realmente desisto. Desde a última postagem estou aqui quebrando cabeça, lendo, testando, mas, nada, funciona. E, não é só aqui no meu laboratório, também lá no meu cliente onde possui muitas máquinas instaladas...
Bom, vou continuar com minha variável pública, onde o usuário (cliente e seus funcionários) definem no menu CONFIGURAÇÕES/PARÂMETROS se vai usar ou não impressora matrcial.
Agora, pretendo melhorar isso, pois atualmente em todos os relatórios (exceto em 4 telas) antes da impressão, é oferecido para o usuário o seguinte:

Código: Selecionar todos

IMPRIMIR - VÍDEO - ARQUIVO

Pretendo mudar, que aí fica uma coisa padrão a todos os módulos:

Código: Selecionar todos

IMPRIMIR LPTx - IMPRIMIR IMPRESSORAS WINDOWS - VÍDEO - ARQUIVO

Creio que assim, resolvo meu problema em todos os módulos de relatórios do sistema.
Abraços, e vamos ver se encontramos outra coisa melhor!

Enviado: **05 Mar 2016 20:47**

Você desiste fácil. Enfim!

Enviado: **05 Mar 2016 23:36**

Amiguinhos,

Vamos mais fundo.

Teste e veja o que acontece. Faça screenshots e nos mostre.

Descompacte, entre na subpasta e execute o aplicativo.

Teste na máquina que tem impressora física, depois teste em uma máquina que acessa uma impressora matricial pela rede, ou seja, de uma máquina na rede você acessa a impressora matricial conectada a outra máquina.

Enviado: **06 Mar 2016 09:00**

Microvolution,

Uma dica, não sei se você faz assim.

Quando eu quero testar uma função do harbour ou minha, eu sempre crio um programa teste tipo:

Código: Selecionar todos

FUNCTION MAIN
   altd() // para debugar
   Funcao() //a função ou situação que eu quero testar.
RETURN Nil

Quando está ok e livre de bug, eu porto a função ou procedure para o sistema que eu quero utilizar.

Fica mais fácil e rápido o entendimento.

Outra coisa, eu não sou um expert em c++ ou C mas quando uma função não existe no harbour eu vou google e tento fazer observando o que já existe no harbour, hmg, hwgui, minigui e tento fazer. Eu já fiz varias!

Enviado: **06 Mar 2016 09:07**

Achei muita informação útil na págima do fivewin

Enviado: **12 Mar 2016 02:01**

Amigos olha oque ta na atualizaçao do harbour

2016-03-08 22:10 UTC+0100 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)
* src/rtl/isprint.c
! HB_ISPRINTER(), ISPRINTER() fix to open the port name with CREATE
flag (= CREATE_ALWAYS on Windows). It may fix port detection in
certain situations. Tested on Windows 7 x86 and x64, whereas it
will now return .T. if the port is associated with a queue,
and .F. if it isn't. It seems to cause no harm on OS X. Please
test it on other systems and other LPT scenarios (f.e. with real
hardware device attached).
; borrowed from Viktor's fork: 2016-03-08 18:19 UTC+0100 Viktor Szakats

PC Toledo

Funçao ISPRINTER()

Funçao ISPRINTER()

Funçao ISPRINTER()

Funçao ISPRINTER()

Funçao ISPRINTER()

Funçao ISPRINTER()

Funçao ISPRINTER()

Funçao ISPRINTER()

Funçao ISPRINTER()

Funçao ISPRINTER()

Funçao ISPRINTER()

Funçao ISPRINTER()

Funçao ISPRINTER()

Funçao ISPRINTER()

Funçao ISPRINTER()

Funçao ISPRINTER()