Destravar Catraca Henry.

[Maurício Elias]

Olá, bom dia pessoal.
Alguém sabe como Destravar essa infeliz dessa Catraca Henry
Estamos tentando em Delphi enviar o comando passado pelo "suporte" prá destravar ela, mas simplesmente não aciona. Essa maravilhosa catraca não tem um driver, nem uma DLL, tem q mandar comandos diretos na COM, uma graça.
Alguém tem alguma sugestão em HB prá comunicar diretamente na COM ? Quem sabe em HB vai...
Grato a todos.....

[Kapiaba]

Já perguntou ao suporte deles?

(41) 3661-0100

http://www.henry.com.br/home

http://www.henry.com.br/softwares/7x/Ke ... 2.0.42.exe

abs.

[Jairo Maia]

Olá Mauricio,

Nunca trabalhei com catracas, mas comunicação com portas COM sim, então, mesmo em Delphi, você precisa abrir e configurar a porta antes de enviar o comando, você está setando a configuração conforme o protocolo dela?

Você precisa setar: velocidade, paridade, comprimento de dados, bits de parada e comando.

Como é o protocolo da catraca?

[Maurício Elias]

Olá pessoal, bom dia.
Então, o suporte não sabe nada de programação, se faz de desentendido.
Apenas passa o comando que tem que enviar prá serial, mas não tem exemplos, driver, dll, nada.

Em Delphi, a sequencia é a seguinte:
------------------------------------------------
componente COMPORT
CODIGO NO ONACTIVE DO FORM
portacom:=´COM6´
ComPort1.Close;
ComPort1.Port:=trim(portacom);
ComPort1.BaudRate:=br115200;
ComPort1.StopBits:=sbOneStopBit;
ComPort1.DataBits:=dbEight;
ComPort1.Open;
if (ComPort1.Connected = false) // Verifica se a porta esta conectada
then begin
Application.Messagebox('Não Foi Possivel se Conectar a Porta! Verifique!','ATENÇÃO!',mb_OK+MB_ICONWARNING+MB_SYSTEMMODAL);
exit;
end;
if (ComPort1.Connected = True) // Verifica se a porta esta conectada
then begin
tempcatra:=5
vstr:='11+REON+00+1]'+'tempcatra'+'] L i b e r a d o]';
vstr:=vstr + #13#10;
ComPort1.WriteStr(vstr); // Enviando dados pela Serial
end;
--------------------------------------------------------------------------
Como seria em HB ? Já ví que seria usando COM_OPEN, COM_INIT, etc, mas não sei como fazer. No cliente é COM6, e aqui nos testes é COM2. A velocidade é 115200.
Tem como vc me ajudar amigo ?

[Kapiaba]

Neste caso, o melhor a usar, é a HBCOMM.LIB do xHarbour, não é dificil.

https://pctoledo.org/forum/viewto ... omm#p82611

Pesquise mais aqui no forum sobre HBCOMM.

abs.

[Maurício Elias]

Mas funciona somente para o xharbour? Pq tô usando o HB32 que o Toledo me ensinou.
Alguém teria algum comentário sobre a rotina do Delphi postada tb? Isso tb ajudaria. Toda ajuda é bem vinda...

[Kapiaba]

Não entendo de delphi, mas veja se ajuda:

Código: Selecionar todos

procedure TForm1.Button1Click(Sender: TObject); 
var count2 : integer; 
begin 

sleep(500); 
if Comport1.Connected  then begin 
comport1.Close; 
end; 
ComPort1.Port := 'COM1'; 
Comport1.Connected := true; 
Comport1.Open; 

if Comport1.Connected  then begin 
timer1.enabled := true; 
end; 

procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer); 
var count2 : integer; 
begin 
count2 := 1024; 
ComPort1.ReadStr(Str,count2); 
memo1.lines.add (Str); 
end; 

Também não sei qual é Lib do Harbour compatível com xHarbour. Não uso Harbour.

Abs

[Kapiaba]

Não parece dificil em Harbour, veja:

Código: Selecionar todos

#include "hbcom.ch"

PROCEDURE Main( cPortName )

   LOCAL cString := "ATE0" + Chr( 13 ) + "ATI3" + Chr( 13 )
   LOCAL nTimeOut := 3000 // 3000 miliseconds = 3 sec.
   LOCAL nResult
   LOCAL nPort := 1

   IF !empty( cPortName )
      hb_comSetDevice( nPort, cPortName )
   ENDIF
   IF ! hb_comOpen( nPort )
      ? "Cannot open port:", nPort, hb_comGetDevice( nPort ), ;
        "error: " + hb_ntos( hb_comGetError( nPort ) )
   ELSE
      ? "port:", hb_comGetDevice( nPort ), "opened"
      IF ! hb_comInit( nPort, 9600, "N", 8, 1 )
         ? "Cannot initialize port to: 9600:N:8:1", ;
           "error: " + hb_ntos( hb_comGetError( nPort ) )
      ELSE
         nResult := hb_comSend( nPort, cString, len( cString ), nTimeOut )
         IF nResult != len( cString )
            ? "SEND() failed,", nResult, "bytes sent in", nTimeOut / 1000, ;
              "sec., expected:", len( cString ), "bytes."
            ? "error: " + hb_ntos( hb_comGetError( nPort ) )
         ELSE
            ? "SEND() succeeded."
         ENDIF

         WAIT "Press any key to begin reading..."
         cString := space( 32 )
         nTimeOut := 500 // 500 milliseconds = 0.5 sec.
         nResult := hb_comRecv( nPort, @cString, len( cString ), nTimeOut )
         IF nResult == -1
            ? "RECV() failed,", ;
              "error: " + hb_ntos( hb_comGetError( nPort ) )
         ELSE
            ? nResult, "bytes read in", nTimeOut / 1000, "sec."
         ENDIF
      ENDIF
      ? "CLOSE:", hb_comClose( nPort )
   ENDIF
   RETURN

[Kapiaba]

Melhor ainda:

https://pctoledo.org/forum/viewto ... 45&t=14136

abs,

[Jairo Maia]

Olá Maurício,

Me parece que na função em Delphi que você postou acima, está faltando informar a Paridade. Não sei se o Delphi assume o padrão. Outra coisa, é que não conheço Delphi, mas a variável tempcatraca é numérica, e você está somando com string. Porém, teoricamente em Harbour + HBCT.LIB, seria algo assim:

Código: Selecionar todos

/*
   Compilar usando: HBMK2 Nome_Exemplo -lhbct
*/
Function Main()

 Local nComPorta := 1  // numero da porta COM sem o "COM", é numerico
 Local nBaudRate := 115200
 Local cParity := "N"     // (E)ven, (O)dd, (M)ark, (S)pace, (N)one  // verifique a paridade correta
 Local nDataLength := 8   // 7 ou 8  // verifique também...
 Local nStopBits := 2     // 1 ou 2  // verifique também...

 Local tempcatra := "5"
 Local cString := "'11+REON+00+1]'+'tempcatra'+'] L i b e r a d o]'" + Chr(13)+Chr(10)
 // ou apenas:
 // Local cString := "'11+REON+00+1]'+'tempcatra'+'] L i b e r a d o]'"
 
 Clear Screen
 
 If !Com_Open( nComPorta, 1024, 1024)
  Alert( "Erro na abertura da Porta!" )
  Return Nil
 EndIf
 
 Com_Init( nComPorta, nBaudRate, cParity, nDataLength, nStopBits )
 
 Com_Send( nComPorta, cString )
 
 Com_Close( nComPorta )

Return Nil

[Maurício Elias]

Grande Jairo, bom dia.
Muito obrigado por adaptar meus dados na sua rotina. Já implementei de imediato.
Mas tb não funcionou. Apenas um aplicativo da net chamado IONINJA funciona nela.
Outros aplicativos quaisquer tb não acionam.
O Suporte não entende nada de software e a ajuda é pouca. Trouxemos a catraca aq rsrs (absurdo) e esgotamos nossas possibilidades. Vamos ver se o fabricante consegue resolver remotamente. Se der certo, vou postar a solução aq prá ninguém passar o que nós estamos passando com essa catrada HENRY.

[Toledo]

Maurício, em um busca rápida pelo Google, vi muitas mensagens falando sobre uma DLL para catraca Henry:

https://www.google.com.br/#q=catraca+henry+dll

Então seria bom entrar em contato com o suporte e ver se realmente existe alguma DLL.

Abraços,