String如何转化为Bin(10分)

J

JackKen

Unregistered / Unconfirmed
GUEST, unregistred user!
string中保存的是文字,为了安全传输想变为二进制,在接收方再转换成string应该怎么做?
 
你直接把string当流传过去就可以了.
 
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)

 
但我用的是sendbuffer,有其他办法吗?
 
把你的程序贴出来吧
 
主要是用TNmudp控件传输,用他的SendBuffer函数发送,
procedure SendBuffer(Buff:array of char;length:integer);
如果直接把String赋给Char数组就很好办,但现在要求用字节流的形式传输,即char数组中的内容要是01的。
 

Similar threads

S
回复
0
查看
794
SUNSTONE的Delphi笔记
S
S
回复
0
查看
796
SUNSTONE的Delphi笔记
S
S
回复
0
查看
955
SUNSTONE的Delphi笔记
S
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
776
SUNSTONE的Delphi笔记
S
顶部