Desviar Código Acbrlcb Para Buffer De Teclado Do Windows

[Rodrigo Cardilo]

Olá amigos,

 

Alguém sabe me dizer como faço para  "desviar" todos os códigos lidos pela Serial para o Buffer de Teclado do Windows, como no ACBRMonitor?

Utilizo o componente ACBRLCB.

 

Grato

[Juliomar Marchetti]

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;

[Rodrigo Cardilo]

Bom dia Juliomar,

 

Eu vi que tinha um projeto porém somente em Lazarus e eu utilizo o Delphi, por isso nem tentei abrir.

De qualquer forma muitíssimo obrigado pela ajuda.

 

Atc,

[Juliomar Marchetti]

Boa tarde

você pode abrir tranquilamente, as units pois é pascal ou até mesmo no bloco de notas!