TSerial - RS232 ansprechen

[ZamKirill]

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?

[Bummi]

Delphi >= 2009 ??
Nimm für seriell AnsiString, AnsiChar, PAnsiChar etc ...