Delphi Char nicht einzeln sondern "packetweise" seriell verwenden

Thema durchsuchen

Ansicht

Themen-Optionen

Char nicht einzeln sondern "packetweise" seriell verwenden

Ein Thema von Helmi · begonnen am 21. Jan 2007 · letzter Beitrag vom 21. Jan 2007

Vorheriger Beitrag

Nächster Beitrag

Hawkeye219

Registriert seit: 18. Feb 2006
Ort: Stolberg
2.227 Beiträge

Delphi 2010 Professional

Re: Char nicht einzeln sondern "packetweise" serie

21. Jan 2007, 13:28

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 MSDN-Library durchsuchen

CharToOemA() an:

markieren

Delphi-Quellcode:

			function StringToOEM (const s: string): string;

begin

  Result := s;

  if (s <> '') then

    CharToOemA(@Result[1], @Result[1]);

end;

...

Serial.TransmittText(StringToOEM('ABCäöü'));