Ver Mensaje Individual
  #2  
Antiguo 05-02-2008
[egostar] egostar is offline
Registrado
 
Registrado: feb 2006
Posts: 6.572
Reputación: 27
egostar Va camino a la fama
Cita:
Empezado por BetoAlonso Ver Mensaje
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
__________________
"La forma de empezar es dejar de hablar y empezar a hacerlo." - Walt Disney
Responder Con Cita