Boa noite
Chegou a abrir o projeto e olhar o código?
segue um trecho abaixo:
procedure TFrmACBrMonitor.ACBrLCB1LeCodigo(Sender: TObject);
var
Codigo: ansistring;
{$IFDEF LINUX}
fd, I: integer;
C: char;
{$ENDIF}
begin
lLCBCodigoLido.Caption := Converte(ACBrLCB1.UltimaLeitura);
mResp.Lines.Add('LCB -> ' + ACBrLCB1.UltimoCodigo);
if rbLCBTeclado.Checked then
begin
Codigo := ACBrLCB1.UltimoCodigo;
if Codigo = '' then
exit;
{$IFDEF MSWINDOWS}
Codigo := Codigo + Trim(cbLCBSufixo.Text);
SendKeys(PChar(Codigo), True);
{$ENDIF}
{ Alguem sabe como enviar as teclas para o Buffer do KDE ??? }
{$IFDEF LINUX}
Codigo := Codigo + TraduzComando(cbLCBSufixo.Text);
fd := FileOpen(Trim(cbLCBDispositivo.Text), O_WRONLY + O_NONBLOCK);
if fd < 0 then
Writeln('Erro ao abrir o dispositivo: ' + Trim(cbLCBDispositivo.Text))
else
try
for I := 1 to length(Codigo) do
begin
C := Codigo[I];
FpIOCtl(fd, TIOCSTI, @C);
end;
finally
FileClose(fd);
end;
// WriteToTXT('/dev/stdin',Codigo,False);
// RunCommand('echo','"TESTE'+Codigo+'" > /dev/tty1',true) ;
{$ENDIF}
end;
end;