Clipper On Line • Ver Tópico - Mandar comando para ecf
Página 1 de 1

Mandar comando para ecf

MensagemEnviado: 05 Mar 2010 13:56
por negrao
To querendo fazer um teste mandando o comando pra ecf (bematech) direto, sem uso da Dll.So pra ver se é + rapido.
Mas me esbarrei no seguinte problema.
A variavel abaixo recebe os dados formatados de acordo com o que se pede na impressora,mas como faco pra enviar esse comando ?
no clipper dou o Fwrite e boa , mas no delphi nao sei

Buffer := #27+'|09|'+cod+'|'+cdes+'|'+cicms+'|'+nqtd+'|'+nvlru+'|0000|'+#27;

Obrigado

Re: Mandar comando para ecf

MensagemEnviado: 05 Mar 2010 16:05
por anfm
Veja os componente ACBr - http://acbr.sf.net

No componente ACBr é usado a synapse para efetuar a comunicação com os ECFs usando comunicação direta sem uso de DLLs.

Mandar comando para ecf

MensagemEnviado: 05 Mar 2010 21:53
por Pablo César
no clipper dou o Fwrite e boa , mas no delphi nao sei
fwrite ? Você quis dizer que irá gravar em arquivo. Bem não que conheça Delphi (probably I will see in the future for curious), mas acho que você primeiramente cria um arquivo e depois copia para LPT.

Como criar um arquivo e mandar para LPT1 (segundo o que pesquisei na NET):
begin
AssignFile(v_arq,\'LPT1\');
Writeln(v_arq,Buffer := #27+'|09|'+cod+'|'+cdes+'|'+cicms+'|'+nqtd+'|'+nvlru+'|0000|'+#27);
Flush(v_arq);
CloseFile(v_arq);
end;


Acho que deve ser isso, experimente. Espero ter acertado, senão me desculpe pela minha tentativa.