用serversocket,clientsocket传tstringlist,用流技术的程序实例

Question

如题，保给分！邮箱：[email protected]　给信时请带上您的csdn昵称！要求试验成功的！用其它的技术也可以：）多谢了！

Answer 1

用sendtext也可以，，，，，，，但里面的参数必须是tstringlist.text;.....

Answer 2

有的话我也想...我都不知道流在网络中怎么传..
[email protected]

Answer 3

不是在QQ上都告诉你了吗？注意TCP/IP 8K 瓶颈Procedure TForm1.Button1Click(Sender: TObject);
var
  Temp:TStringList;
begin
  ClientSocket1.Socket.SendBuf(Temp,sizeof(Temp));
end;procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
  MyData:TStringList;
  iLen: Integer;
begin
  iLen := Socket.ReceiveLength;
  Socket.ReceiveBuf(MyData,iLen);
end;