CPort: Comport auslesen DOS-> Delphi

[Wal]

Delphi-Quellcode:

  ComPort := TComPort.Create(Nil);
  ComPort.OnRxChar := ComPortRxChar;
  ComPort.Port := 'COM1';
  ComPort.BaudRate := br9600;
  ComPort.FlowControl.ControlDTR := dtrEnable;
  ComPort.FlowControl.OutDSRFlow := True;
  ComPort.FlowControl.OutDSRFlow := True;
  ComPort.FlowControl.TxContinueOnXoff := True;
  ComPort.FlowControl.XonXoffOut := False;
  ComPort.FlowControl.XonXoffIn := False;
  ComPort.FlowControl.DSRSensitivity := False;
  ComPort.FlowControl.ControlRTS := rtsEnable;
  ComPort.Parity.Bits := prEven;
  ComPort.DataBits := dbSeven;
  ComPort.StopBits := sbOneStopBit;
  ComPort.Open;