Einzelnen Beitrag anzeigen

ZamKirill

Registriert seit: 15. Aug 2012
1 Beiträge
 
#49

AW: TSerial - RS232 ansprechen

  Alt 15. Aug 2012, 17:07
Servus zusamm und vielen Dank für die Klasse. Die funktioniert bei mir fast und ich würde gerne fragen, woran es liegt und was ich ändern muss, damit es richtig funktioniert.
Code:
  Port := TCOM.Create(nil);
  Port.Baud := 2400;
  Port.Stopbits := TWOSTOPBITS;
  Port.Parity := EVENPARITY;
  Port.Databits := 7;
  Port.Open(1, RTS_DISABLED, DTR_DISABLED);
  Port.Send(PChar(Message), Length(Message)*2);
  Port.Close;
  Port.Free;
Message wird auf AnsiString(#75#54#13#10); festgelegt, was K6CRLF bedeuten sollte. Mein Sniffer, den ich am COM zwecks Tests dran hängen habe, zeigt dabei K[]6[]CR[]LF[]. Was [] ist, sagt er nicht weiter, wobe ich das Nullbyte vermute (wenn ich AnsiString(#00) sende, zeigt der Sniffer genau [] an).
Anscheinend hängt der an jedes übertragene Zeichen irgendwas an, wie kann ich das verhindern?
  Mit Zitat antworten Zitat