Configurar Puerto con ApdComport

[BetoAlonso]

Saludos

estoy trabajando con este componente y quisiera saber si tiene una opcion para configurar el puerto en tiempo de ejecucion, es decir que invoque a una ventana de dialogo donde se pueda definir el puerto por el cual se comunicara y la velocidad, los bits de paridad, etc.

gracias

[[egostar]]

Empezado por BetoAlonso

Saludos

estoy trabajando con este componente y quisiera saber si tiene una opcion para configurar el puerto en tiempo de ejecucion, es decir que invoque a una ventana de dialogo donde se pueda definir el puerto por el cual se comunicara y la velocidad, los bits de paridad, etc.

gracias

Pues crear una ventana que tenga esas opciones:

• Puerto: COM1...COMn
• Paridad: None, Odd, Even, Mark, Space;
• DataBits: 7,8 //O los que quieras, pero estos son los más comúnes.
• StopBit: 1,2 //Son los mas comúnes
• Velocidad: 1200..19200 //Son las más comúnes.

Y con un botón configuras el puerto en base a lo que seleccionaste

Código Delphi [-]
procedure TForm1.BitbtnClick(Sender: TObject);
Begin
  ApdComPort1.ComNumber := Puerto;
  ApdComPort1.DataBits  := DataBits;
  ApdComPort1.Baud      := Velocidad;
  Case Paridad of
     1 : ApdComPort1.Parity := pNone;
     2 : ApdComPort1.Parity := pOdd;
     3 : ApdComPort1.Parity := pEven;
     4 : ApdComPort1.Parity := pMark;
     5 : ApdComPort1.Parity := pSpace;
  end;
  ApdComPort1.StopBits := StopBit;
  ApdComPort1.Open := True;
End;

Salud OS