string型にバイナリ値をセットして送信したい

解決

OJ 2006-11-10 01:30:52 No: 23861

delphi6でstring型のバッファにバイナリ値をセットして送信すると、
バイナリ値が１バイト→４バイトに変換されてしまいます。
バイナリのビットパターンをそのまま送信するにはどうすれば良いの
でしょうか？教えてください。

var
   Csum : String;
   Str1,Str2 : String;
begin
     Str1 := 'ABCDEF';  //値は何でも良い
     Str2 := '012345';
     Csum := StringOfChar('0', 2);
     Csum[1] := #202;
     Csum[2] := #238;  //Csum=CAEE  (16進)

TIdPeerThread.Connection.Write((Str1+Csum+Str2);

で送信した結果は、
414243444546FFFFFFCAFFFFFFEE303132333435(16進)

となってしまいます。
FFFFFFCA → CA
FFFFFFEE → EE
にしたいのですが、良い方法を教えてください。

OJ 2006-11-10 17:34:59 No: 23862

自己解決いたしました。お騒がせして申し訳ありませんでした。