定义一个记录和数据库字段和相同,然后用writebuffer
TRec=record
ID: Array[0..37] Of char;
NR: Array[0..10239] Of char;
ZZ: Array[0..19] Of char;
ZLLB: Array[0..32] Of char;
GPDM: Array[0..6] Of char;
end;
Memorystream.WriteBuffer(Rec,SizeOf(TRec));
接收:
MyStream:TMemoryStream;
TmpStr,Show:String;
i:Integer;
...
SetLength(TmpStr,NumberBytes);
MyStream.Read(TmpStr[1],NumberBytes);
for i:=1 to Length(TmpStr) do
begin
{ 每个TmpStr都是Byte型(也就是short int),
用IntToStr转换成字符,IntTo其他转换成其他,然后拼合
至于转换函数,查帮助,很详细}
end