问题有点难？？(0分)

定义了一记录型数组
shrecord=Trecord
ss:=string[6];dd:=real;
kk:=real;bb:=real;
...
end;
send:array[1..1000] of Tshrecord;
rece:Array[1..1000] of Tshrecord;
做一个循环 recNO根据需要可以改变但小于1000
for i:=1 to recNO do
begin
send.ss:='ssss';
send.bb:=2335333;
...
end;
st:=Tmemorystream.creat;
st.write(send,recno*sizeof(Tshrecord));
st.postion:=0;
serversocket1.socket.connections[0].sendstream(st);
在CLIENT端
clientsocket1.socket.recevbuf(rece,recno*sizeof(Tshrecord);
如果i<100一般没有i很大接收到的数据有问题，改如何解决？

分批发送！！！因为当I很大时，导到内存时除了速度慢还有可能死机。
建议在发送的数据超过5M时分批发送！