TCP/IP - Monitor nao recebe os comandos

[AlexSilva]

Caros colegas,

uso o AcbrNFeMonitor com um sistema feito em VB6 a algum tempo, porém em modo de comunicacao por texto.

Fazendo agora as alteracoes da NFe exigidas para os proximos meses, resolvi fazer uma revisao de todo o aplicativo, passando o modo de comunicacao para socket, que acredito apresentar algumas vantagens.

A conexao acontece perfeitamente:

ACBrNFeMonitor2 Ver. 0.6.2a - CAPICOM

Conectado em: 23/09/11 11:31:06

Máquina: 10.0.0.12

Esperando por comandos.

Entretando nao consigo fazer com que os comandos cheguem ate o monitor.

Tentei o comando puro sem sucesso: "NFe.StatusServico"

e como vi que pelo terminal com TELNET é necessario usar um terminador CR + "." + CR, também tentei essa e algumas outras combinacoes de terminadores (CRLF, Chr(3), CRLF + "." + CRLF), todas sem sucesso.

Será que alguem teria alguma dica pra eu tentar resolver esse problema de enviar os comandos para o monitor?

Agradeço de antemão

[valmir.vfc]

Alex, estou tentando fazer a mesma mudança em meu sistema, porém, não conseguindo sequer conectar. Você está usando o componente winsock? Poderia me passar um exemplo de como conseguiu fazer a conexão?

Grato.

[adilsonpazzini]

Segue atalho com um post com um exemplo

viewtopic.php?f=14&t=2337

[valmir.vfc]

Boa noite!

Consegui chegar ao mesmo ponto que o Alex, ou seja, conecto via winsock e o monitor é ativado, porém, tentei de várias maneiras enviar um comando, mas, o monitor fica sempre no estado "Esperando por comandos".

Adilson, você conhece algum exemplo em vb6?

Grato

[helderlr]

Amigo

eu usava o acbrnfemonitor via arquivo texto ai mudei pra tcp/ip e uso sem problema

se estiver na rede tem que ver se a porta usada pelo acbnfemonitor ex: 3436

nao esta sendo bloqueada pelo firewaal ou antivirus

o que fiz na verdade foi continuar lendo o arquivo texto mas gerado por tcp/ip

segue exemplo como faco

clausula inicio da rotina

uses ACBrSocket,blcksock

criar a variavel no inicio rotina

var fSocket: TTCPBlockSocket;

procedure desconecta_socket(m_socket:TTCPBlockSocket);

begin

m_socket.Free;

m_socket := nil;

end;

function conecta_socket:boolean;

var m_host : string;

begin

fSocket := TTCPBlockSocket.Create;

fSocket.Connect('127.0.0.1,'3436');

if fSocket.lasterror <> 0 then

begin

mensagem(fSocket.LastErrorDesc,1);

fSocket.Free ;

fSocket := nil;

result := false;

end

else

begin

retorno_socket(fSocket);

result := true;

end;

end;

procedure retorno_socket(m_socket:TTCPBlockSocket);

var m_retsocket: tstringlist;

begin

m_retsocket := tstringlist.Create;

m_retsocket.Add( m_socket.RecvTerminated(100000, #3) );

m_retsocket.SaveToFile(ExtractFilePath(paramstr(0))+'sainfe.txt');

m_retsocket.Free;

end;

procedure status_servico(p:tpanel);

begin

if not conecta_socket then exit;

fSocket.SendString('NFe.StatusServico'+sLineBreak+'.'+sLineBreak );

retorno_socket(fSocket);

desconecta_socket(fSocket);

end;

[lucioam]

Em 31/05/2012 17:54:54, valmir.vfc disse:

Boa noite!

 

Consegui chegar ao mesmo ponto que o Alex, ou seja, conecto via winsock e o monitor é ativado, porém, tentei de várias maneiras enviar um comando, mas, o monitor fica sempre no estado "Esperando por comandos".

 

Adilson, você conhece algum exemplo em vb6?

 

Grato

Valmir... estou parado no mesmo ponto que você... conseguiu evoluir alguma coisa?

[Juliomar Marchetti]

Vocês já viram que no svn tem um trecho de código postado pelo Daniel senão me engano, fazendo uso do synapse pra efetuar essa conexão e os comandos?

Caso ainda não peço que tirem um tempo e olhem ele!

[lucioam]

Juliomar,

Naveguei no repositório e não encontro por nada. Pode me indicar onde encontro o exemplo?

[Juliomar Marchetti]

é acredito mesmo ser difícil !

\Projetos\ACBrMonitorPLUS\Lazarus\Exemplos\Lazarus

[lucioam]

2 horas atrás, Juliomar Marchetti disse:

é acredito mesmo ser difícil !

\Projetos\ACBrMonitorPLUS\Lazarus\Exemplos\Lazarus

Juliomar,

Ok.. eu até tinha passado por esse exemplo, só não me chamou atenção pq ele está em Lazarus.... o que preciso é em VB6 .... teria alguma coisa?

[Juliomar Marchetti]

Segue o mesmo!

as linguagens só muda sintaxe e é claro componentes mas ideia é a mesma!

[lucioam]

Bingo! Funcionou.

Vou anexar o fonte em VB6 aí beneficia outras pessoas do grupo.. Ok... !!

Abraços.

ACBR_TCP.zip

[Juliomar Marchetti]

22 minutos atrás, lucioam disse:

Bingo! Funcionou.

Vou anexar o fonte em VB6 aí beneficia outras pessoas do grupo.. Ok... !!

Abraços.

ACBR_TCP.zip

Com sua permissão e pra evitar novos posts vou anexar seu exemplo a pasta do svn!