Ver Mensaje Individual
  #18  
Antiguo 07-11-2018
[egostar] egostar is offline
Registrado
 
Registrado: feb 2006
Posts: 6.556
Reputación: 25
egostar Va camino a la fama
Hola

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  ApdComPort1.PutString('Se puede enviar una cadena.'#13);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  //SE puede enviar un caracter
  ApdComPort1.PutChar('X');
  ApdComPort1.PutChar(#13);
end;

Saludos
__________________
"La forma de empezar es dejar de hablar y empezar a hacerlo." - Walt Disney
Responder Con Cita