CPort: Comport auslesen DOS-> Delphi

[Wal]

Du kannst das hier noch testen:

Delphi-Quellcode:

procedure TfrmMain.Timer1Timer(Sender: TObject);
var
  A: String;
begin
  if ComPort.InputCount > 0 then
  begin
    ComPort.ReadStr(A, ComPort.InputCount);
    memo1.Text := memo1.Text + 'Daten: ' + A + #13#10;
  end;
end;

Über einen 1Sekunden Timer abfragen, ob Daten vorhanden sind. Evtl. ist OnRxChar irgendwie nicht richtig konfiguriert bei dir.
Den Code oben habe ich mit einer GPS-Mouse getestet, die sendet aber immer Daten. :-)

[Freiwilderer]

hi und nochmals vielen Dank für die Hilfe :)

das geht leider auch nicht ...
ich habe eben raus gefunden, wie die Verbindung auf dem WinCE Gerät geöffnet wird. und zwar so:
C++

Code:

      GetCommState(hPort,&PortDCB);
      PortDCB.BaudRate            = CBR_9600;
      PortDCB.fBinary             = TRUE;
      PortDCB.fParity             = TRUE;
      PortDCB.fOutxCtsFlow        = TRUE;
      PortDCB.fOutxDsrFlow        = TRUE;
      PortDCB.fDtrControl         = DTR_CONTROL_ENABLE;
      PortDCB.fDsrSensitivity     = FALSE;
      PortDCB.fTXContinueOnXoff   = TRUE;
      PortDCB.fOutX               = FALSE;
      PortDCB.fInX                = FALSE;
      PortDCB.fErrorChar          = FALSE;
      PortDCB.fNull               = FALSE;
      PortDCB.fAbortOnError       = FALSE;
      PortDCB.ByteSize            = 7;
      PortDCB.Parity              = EVENPARITY;
      PortDCB.StopBits            = ONESTOPBIT;
      PortDCB.fRtsControl         = RTS_CONTROL_ENABLE;
      PortDCB.XoffLim             = 2048/5;
      PortDCB.XonLim              = 2048/5;
      SetCommState(hPort,&PortDCB);

      m_CommTimeouts.ReadIntervalTimeout = MAXDWORD;
      m_CommTimeouts.ReadTotalTimeoutMultiplier = 0;
      m_CommTimeouts.ReadTotalTimeoutConstant = 0;
      m_CommTimeouts.WriteTotalTimeoutMultiplier = 0;
      m_CommTimeouts.WriteTotalTimeoutConstant = 3000;
      iPortReturn=SetCommTimeouts(hPort , &m_CommTimeouts);

... kannst mir nicht zufällig sagen, ob meine Delphi Connection da richtig eingestellt ist?

[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;

[Freiwilderer]

Kann heute leider nicht weiter testen :(. Mir ist was anderes dazwischen gekommen. Ich meld mich aber, wie es ausgeht ;)

[Freiwilderer]

Projekt über COM erstmal auf eis gelegt ...
muss jetzt mal gucken, ob ich eine WLAN oder Bluetooth lösung hinbekomme ... :(

danke für eure Hilfe.