String如何转化为Bin(10分)

J

JackKen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-05

• #1

string中保存的是文字，为了安全传输想变为二进制，在接收方再转换成string应该怎么做？

 

S

satanmonkey

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-05

• #2

你直接把string当流传过去就可以了.

 

A

ayu310

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-05

• #3

var S:String;
i:Integer;
DataToSend:array[0..100] of byte;
S:='abcdef';
for i:=1 to Length(S);
DataToSend:=Ord(S);

Recived:
i contains recived data
Chr(i)

 

J

JackKen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-05

• #4

但我用的是sendbuffer，有其他办法吗？

 

A

ayu310

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-05

• #5

把你的程序贴出来吧

 

J

JackKen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-05

• #6

主要是用TNmudp控件传输，用他的SendBuffer函数发送，
procedure SendBuffer(Buff:array of char;length:integer);
如果直接把String赋给Char数组就很好办，但现在要求用字节流的形式传输，即char数组中的内容要是01的。