asyncpro + delphi + apdcom1.putstring(chr(128))

[Bummi]

wenn Deine Gegenstelle Unicode verdaut wirst Du 2 Bytes schicken müssen, oder schauen ob das Protokoll etwas anderes vorsieht...seriell werden eigentlich nur Bytes übertragen ...

Delphi-Quellcode:

var
 C:Char;
 ast:AnsiString;
 i:Integer;
begin
 c :='€';
 i := 0;
 SetLength(ast,SizeOf(c));
 Move(c,ast[1],SizeOf(c));
 Move(c,i,SizeOf(c));
 Showmessage(IntToHex(i,8));