Char nicht einzeln sondern "packetweise" seriell verwenden

[Hawkeye219]

Hallo Helmi,

es werden immer Bytes übertragen, deine Routine macht ja auch nichts anderes. Lediglich die Codierung der Zeichen muß angepaßt werden. Als Alternative zu StringReplace bietet sich dabei die Windows-Funktion CharToOemA() an:

Delphi-Quellcode:

function StringToOEM (const s: string): string;
begin
  Result := s;
  if (s <> '') then
    CharToOemA(@Result[1], @Result[1]);
end;
...
Serial.TransmittText(StringToOEM('ABCäöü'));

Versuche es einfach mal.

Gruß Hawkeye