请教!!!如何用TServerSocket,TClientSocket来发送与接收Tstream类型数据

我的发送代码:  
  var  
      strm   :   TMemoryStream;  
      i         :   integer;  
      b         :   Boolean;  
  begin  
      i:=20;  
      strm   :=   TMemoryStream.Create;  
      strm.Write(i,sizeof(i));  
      b:=ServerSocket1.Socket.Connections[0].SendStreamThenDrop(strm);  
      if   b   then  
          statusbar1.Panels[0].Text   :=   '发送成功';  
      //strm.Free;  
  end;  
  我的接受代码:  
  procedure   TForm1.ClientSocket1Read(Sender:   TObject;  
      Socket:   TCustomWinSocket);  
  var  
      buffer   :   Pointer;  
      i,j     :   integer;  
  begin  
      getmem(buffer,sizeof(i));  
      Socket.ReceiveBuf(buffer^,sizeof(i));  
      j   :=   integer(buffer^);  
      Memo1.Lines.Add(intTostr(j));  
      freemem(buffer);  
  end;  
  运行时,发送代码中的b的值是true.但是在没有执行接收代码!  
  请高手帮我看看,非常感谢!!!!!!!!!  
  问题点数：0、回复次数：8Top

1 楼aiku（程序员万岁）回复于 2004-09-02 13:46:27 得分 0

自己定先!  
  Top

2 楼qiliu（痴心求学）回复于 2004-09-02 14:33:31 得分 0

学习  
  upTop

3 楼aiku（程序员万岁）回复于 2004-09-10 13:29:31 得分 0

怎么没人回啊?难道高手都去泡MM吗?Top

4 楼MMas（永远凌乱）回复于 2004-09-10 16:46:59 得分 0

学习ingTop

5 楼xushufa13（xushufa）回复于 2004-09-10 16:59:31 得分 0

你是不是设置成阻塞模式了，设置成阻塞模式是不触发时间的Top

6 楼kekebear（796020）回复于 2004-09-10 17:00:55 得分 0

我也不会   所以学习一下！顶Top

7 楼linuxghs（）回复于 2005-02-02 15:09:12 得分 0

我也想知道Top

8 楼mxhong456（毛毛）回复于 2005-08-07 17:50:50 得分 0

可是,也有MM做程序员的哦Top

相关问题

• 代码
• socket
• strm
• 发送
• buffer
• sizeof
• integer

• 帖主：aiku

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载