Mandar comando para ecf

[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

[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.

[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.