求Socket编程资料！▲急▲  
  最好有例子！！！！

方便也给我一份  
  landi_125@163.com

我也想要zz_star@163.net

give   me   please!  
  wzping@21cn.com

give   me   some   help   ,thanks  
  gslcx@163.com

如果有关于TTCPServer的阻塞式多线程的例子，请也给我一份，万分感谢谢  
  zeuson@21cn.com

就那么缺吗？我也正想要！

//服务器端  
  unit   Unit1;  
   
  interface  
   
  uses  
      Windows,   Messages,   SysUtils,   Classes,   Graphics,   Controls,   Forms,   Dialogs,  
      ScktComp,   StdCtrls,   ComCtrls;  
   
  type  
      TForm1   =   class(TForm)  
          ServerSocket1:   TServerSocket;  
          RichEdit1:   TRichEdit;  
          procedure   FormShow(Sender:   TObject);  
          procedure   ServerSocket1ClientRead(Sender:   TObject;  
              Socket:   TCustomWinSocket);  
          procedure   FormClose(Sender:   TObject;   var   Action:   TCloseAction);  
      private  
          {   Private   declarations   }  
      public  
          {   Public   declarations   }  
      end;  
   
  var  
      Form1:   TForm1;  
   
  implementation  
   
  {$R   *.DFM}  
   
  procedure   TForm1.FormShow(Sender:   TObject);  
  begin  
  serversocket1.Port:=5000;  
  serversocket1.Open;  
  end;  
   
  procedure   TForm1.ServerSocket1ClientRead(Sender:   TObject;  
      Socket:   TCustomWinSocket);  
  begin  
  richedit1.Lines.add(socket.ReceiveText);  
  end;  
  //客户端  
  unit   Unit1;  
   
  interface  
   
  uses  
      Windows,   Messages,   SysUtils,   Classes,   Graphics,   Controls,   Forms,   Dialogs,  
      ScktComp,   StdCtrls,   ComCtrls;  
   
  type  
      TForm1   =   class(TForm)  
          ServerSocket1:   TServerSocket;  
          RichEdit1:   TRichEdit;  
          procedure   FormShow(Sender:   TObject);  
          procedure   ServerSocket1ClientRead(Sender:   TObject;  
              Socket:   TCustomWinSocket);  
          procedure   FormClose(Sender:   TObject;   var   Action:   TCloseAction);  
          procedure   ServerSocket1Accept(Sender:   TObject;  
              Socket:   TCustomWinSocket);  
      private  
          {   Private   declarations   }  
      public  
          {   Public   declarations   }  
      end;  
   
  var  
      Form1:   TForm1;  
   
  implementation  
   
  {$R   *.DFM}  
   
  procedure   TForm1.FormShow(Sender:   TObject);  
  begin  
  serversocket1.Port:=5000;  
  serversocket1.Open;  
  end;  
   
  procedure   TForm1.ServerSocket1ClientRead(Sender:   TObject;  
      Socket:   TCustomWinSocket);  
  begin  
  richedit1.Lines.add(socket.ReceiveText);  
  end;  
   
  procedure   TForm1.FormClose(Sender:   TObject;   var   Action:   TCloseAction);  
  begin  
  serversocket1.Close;  
  end;  
  end.  
  //以上调试通过只是一个简单的例子

我也要，zyymmm@163.com

这麽凑巧我也需要，playboyguai@163.com

楼上兄弟，能不能说说如果要发送数组如何发送啊。

www.20cn.net  
  去搜索一下  
  有很多资料，并且有实例

我也想知道，我收到的全是乱码，TcpClient1.SendBuf(s,length(s))；TcpClient1.ReceiveBuf(s,datalen)；  
  我的Email:playboyguai@163.com;  
  QQ:51677400

皇天不负苦心人我终于找到一份，共享给大家，不过我没编译过，不知道怎样？  
  服务器端：  
  unit   Unit_Server;  
   
  interface  
   
  uses  
      Windows,   Messages,   SysUtils,   Classes,   Graphics,   Controls,   Forms,   Dialogs,  
      ComCtrls,   StdCtrls,   ScktComp,Winsock,   ExtCtrls;  
   
  type  
      TForm1   =   class(TForm)  
          Server:   TServerSocket;  
          btnSend:   TButton;  
          edtSend:   TEdit;  
          Label1:   TLabel;  
          btnOneSend:   TButton;  
          Label3:   TLabel;  
          Label4:   TLabel;  
          Bevel1:   TBevel;  
          Combox1:   TComboBox;  
          Statusbar1:   TStatusBar;  
          Memo1:   TMemo;  
          procedure   ServerClientConnect(Sender:   TObject;  
              Socket:   TCustomWinSocket);  
          procedure   ServerClientRead(Sender:   TObject;   Socket:   TCustomWinSocket);  
          procedure   FormCreate(Sender:   TObject);  
          procedure   ServerAccept(Sender:   TObject;   Socket:   TCustomWinSocket);  
          procedure   ServerClientError(Sender:   TObject;   Socket:   TCustomWinSocket;  
              ErrorEvent:   TErrorEvent;   var   ErrorCode:   Integer);  
          procedure   btnSendClick(Sender:   TObject);  
          procedure   ServerClientDisconnect(Sender:   TObject;  
              Socket:   TCustomWinSocket);  
          procedure   btnOneSendClick(Sender:   TObject);  
      private  
          {   Private   declarations   }  
      public  
          {   Public   declarations   }  
      end;  
  Type   UsrRec=Record  
                              SocketID:Integer;  
                              UsrName:string;  
                              Passwd:string;  
                              IP:string;  
                              ReceivingData:string;  
                              End;  
   
  var  
      Form1:   TForm1;  
      buf:string;  
      bEUserName,bEPasswd:Boolean;  
      Usr:^UsrRec;  
   
  implementation  
   
  {$R   *.DFM}  
   
  procedure   TForm1.ServerClientConnect(Sender:   TObject;  
      Socket:   TCustomWinSocket);  
  Var  
      strIp,strHost:string;  
      Count:Integer;  
  begin  
      strIp:=Socket.RemoteAddress;  
      strHost:=Socket.RemoteHost;  
      Memo1.Lines.Add(当前登录用户);  
      Memo1.Lines.add(#9SocketID:+Inttostr(Socket.SocketHandle));  
      Combox1.Items.Add(Inttostr(Socket.SocketHandle));  
      Memo1.lines.add(#9IP地址:+strIp);  
      Memo1.Lines.Add(#9主机名:+strHost);  
      Count:=Server.Socket.ActiveConnections;  
      Statusbar1.Panels.Items[1].Text:=在线用户:   +IntToStr(Count);  
  end;  
   
  procedure   TForm1.ServerClientRead(Sender:   TObject;  
      Socket:   TCustomWinSocket);  
  var  
      p:pchar;  
      length:longint;  
      Count,i:Integer;  
  begin  
          p:=nil;  
          while   socket.ReceiveLength>0   do   begin  
                  length:=socket.receivelength;  
                  Getmem(p,length);  
                  TRY  
                          socket.ReceiveBuf(p^,socket.receivelength);  
                          Count:=Server.Socket.ActiveConnections;  
                          for   i:=0   to   Count-1   do  
                                  Server.Socket.Connections[i].SendBuf(p^,length);  
                  FINALLY  
                          FreeMem(p);  
                  END;  
          end;  
  end;  
   
  procedure   TForm1.FormCreate(Sender:   TObject);  
  begin  
          //   程序开始运行时激活服务器端Socket  
          Server.Active:=true;  
          Statusbar1.Panels.Items[0].Text:=服务器启动.主机名:+Server.Socket.LocalHost+     监听端口:+inttostr(Server.Port);  
          self.Caption:=Statusbar1.Panels.Items[0].Text;  
          Application.Title:=Statusbar1.Panels.Items[0].Text;  
          Statusbar1.Panels.Items[1].Text:=在线用户数:   +IntToStr(Server.Socket.ActiveConnections);  
  end;  
   
  procedure   TForm1.ServerAccept(Sender:   TObject;   Socket:   TCustomWinSocket);  
  var  
      Tempstr:pchar;  
  begin  
          TempStr:=pchar(欢迎登陆服务器         #13#10);  
          socket.SendText(TempStr);  
          TempStr:=pchar(#######################################+#13#10);  
          socket.SendText(TempStr);  
          TempStr:=pchar(你所输入的内容将发送给所有在线用户+#13#10);  
          socket.SendText(TempStr);  
  end;  
   
  procedure   TForm1.ServerClientError(Sender:   TObject;  
      Socket:   TCustomWinSocket;   ErrorEvent:   TErrorEvent;  
      var   ErrorCode:   Integer);  
  begin  
      //错误判断  
      Case   ErrorCode   Of  
      10054:Memo1.lines.add(连接被用户重置.);  
      Else  
          Memo1.Lines.Add(发生Socket错误,错误代码:+InttoStr(errorCode));  
          //   显示错误码  
  End;  
  ErrorCode:=0;  
  end;  
   
  procedure   TForm1.btnSendClick(Sender:   TObject);  
  var  
      i:integer;  
      Count:Integer;  
  begin  
          Count:=Server.Socket.ActiveConnections;  
          for   i:=0   to   Count-1   do  
              Server.Socket.Connections[i].SendText(edtSend.text);  
  end;  
   
  procedure   TForm1.ServerClientDisconnect(Sender:   TObject;  
      Socket:   TCustomWinSocket);  
  Var  
          Count:Integer;  
          IDIndex:Integer;  
  begin  
          Memo1.Lines.add(用户离线);  
          Memo1.Lines.add(             SocketID:+Inttostr(Socket.SocketHandle));  
          IDIndex:=Combox1.Items.IndexOf(   Inttostr(Socket.SocketHandle));  
          Combox1.Items.Delete(IDIndex);  
          //该事件在用户离开前发生  
          Count:=Server.Socket.ActiveConnections-1;  
          Statusbar1.Panels.Items[1].Text:=在线用户:+Inttostr(Count);  
  end;  
   
  procedure   TForm1.btnOneSendClick(Sender:   TObject);  
  var  
      ID:Integer;  
      Socket:TCustomWinSocket;  
  begin  
      if   Combox1.Text=   then  
          exit;  
      ID:=strtoint(Combox1.text);  
      //用已有的Socket句柄建立socket对象  
      Socket:=TCustomWinSocket.Create(ID);  
      Socket.SendText(EdtSend.text);  
  end;  
   
  end.  
   
   
 

客户端：  
  unit   Unit_client;  
   
  interface  
   
  uses  
      Windows,   Messages,   SysUtils,   Classes,   Graphics,   Controls,   Forms,   Dialogs,  
      ScktComp,   StdCtrls,   ComCtrls,   ExtCtrls;  
   
  type  
      TfrmMain   =   class(TForm)  
          Statusbar1:   TStatusBar;  
          Memo1:   TMemo;  
          Client:   TClientSocket;  
          Edit1:   TEdit;  
          Button1:   TButton;  
          Bevel1:   TBevel;  
          Label1:   TLabel;  
          edtHost:   TEdit;  
          Label2:   TLabel;  
          edtPort:   TEdit;  
          btnConnect:   TButton;  
          bntDisConnect:   TButton;  
          btnSend:   TButton;  
          procedure   ClientConnect(Sender:   TObject;  
              Socket:   TCustomWinSocket);  
          procedure   ClientRead(Sender:   TObject;   Socket:   TCustomWinSocket);  
          procedure   ClientDisconnect(Sender:   TObject;   Socket:   TCustomWinSocket);  
          procedure   FormClose(Sender:   TObject;   var   Action:   TCloseAction);  
          procedure   Memo1Click(Sender:   TObject);  
          procedure   Button1Click(Sender:   TObject);  
          procedure   btnConnectClick(Sender:   TObject);  
          procedure   Edit1KeyPress(Sender:   TObject;   var   Key:   Char);  
          procedure   FormCreate(Sender:   TObject);  
          procedure   bntDisConnectClick(Sender:   TObject);  
          procedure   btnSendClick(Sender:   TObject);  
      private  
          {   Private   declarations   }  
      public  
          {   Public   declarations   }  
      end;  
   
  var  
      frmMain:   TfrmMain;  
      TotalLen:Integer;  
   
  implementation  
  uses     ShellAPI;  
  {$R   *.DFM}  
   
  procedure   TfrmMain.ClientConnect(Sender:   TObject;  
      Socket:   TCustomWinSocket);  
  begin  
  Statusbar1.Panels.Items[0].Text:=接受连接;  
  Statusbar1.Panels.items[1].text:=;  
  end;  
   
  procedure   TfrmMain.btnSendClick(Sender:   TObject);  
  begin  
  if   client.Active   then  
  begin  
      Client.Socket.SendText(Edit1.Text);  
      edit1.SelectAll;  
  end;  
  end;  
   
  procedure   TfrmMain.ClientRead(Sender:   TObject;   Socket:   TCustomWinSocket);  
  var  
      re:pchar;  
      sbuf:string;  
      relong:integer;  
  begin  
          re:=nil;  
          while   socket.ReceiveLength>0   do  
              begin  
                  //申请内存  
                  re:=AllocMem(socket.receivelength);  
              TRY  
                  relong:=socket.ReceiveLength;  
                  Socket.ReceiveBuf(re^,Socket.receivelength);  
                  sBuf:=strpas(re);  
                  Setlength(sbuf,relong);  
   
                  //计算数据长度  
                  TotalLen:=TotalLen+   relong;  
                  Statusbar1.Panels.Items[1].Text:=总共接收(Byte):     +   IntToStr(TotalLen);  
                  Statusbar1.Update();  
              FINALLY  
                  freemem(re);  
              END;  
          Memo1.Lines.Add(sbuf);  
      end;  
  end;  
   
  procedure   TfrmMain.ClientDisconnect(Sender:   TObject;  
      Socket:   TCustomWinSocket);  
  begin  
      Statusbar1.Panels.Items[0].Text:=关闭与主机的连接;  
      Statusbar1.Panels.Items[0].Text:=;  
      Memo1.Lines.Clear;  
      edit1.Text:=;  
  end;  
   
  procedure   TfrmMain.FormClose(Sender:   TObject;   var   Action:   TCloseAction);  
  begin  
      if   Client.Active   then  
          Client.Close;  
  end;  
   
  procedure   TfrmMain.Memo1Click(Sender:   TObject);  
  begin  
  Edit1.SetFocus;  
  end;  
   
  procedure   TfrmMain.Button1Click(Sender:   TObject);  
  begin  
          ShellExecute(self.handle,nil,Pchar(Application.EXEname),nil,nil,SW_Normal);  
  end;  
   
  procedure   TfrmMain.btnConnectClick(Sender:   TObject);  
  begin  
          Client.Address:=edtHost.Text;  
          Client.Port:=strtoint(edtPort.Text);  
          Client.Active:=true;  
  end;  
   
  procedure   TfrmMain.Edit1KeyPress(Sender:   TObject;   var   Key:   Char);  
  begin  
  if   key=#13   then  
      begin  
          if   not   Client.Active   then  
                  btnConnectClick(Sender);  
          Client.Socket.SendText(Edit1.Text);  
          edit1.SelectAll;  
          key:=#0;  
      end;  
  end;  
   
  procedure   TfrmMain.FormCreate(Sender:   TObject);  
  begin  
          edtHost.Text:=166.111.187.2;  
          edtPort.Text:=4012;  
          TotalLen:=0;  
  end;  
   
  procedure   TfrmMain.bntDisConnectClick(Sender:   TObject);  
  begin  
          Client.Active:=False;  
  end;  
  end.

D中不就自带了例子么

• 软件资讯
• 技术指南
• 开发文档
• 编程技术
• 程序编程
• 数据库技术
• 服务器
• 项目开发
• 游戏编程

• 软件开发
• 服务器技术
• 行业资讯
• 程序相关
• 编程博文

• 结婚前必读
• 如何在没有vc的机器上运行vc程序
• C语言大全偶遇感
• 各位老大：如何设置swing组件的tooltip显示的时间，或者说当我的鼠标停在swing上面时tooltip不消失
• asp.net里面Forms验证问题！！！！！
• 打开Outlook Express，启动几秒后它就没响应了。请帮帮忙，谢谢。
• 如何使我的程序抓取网眼摄下的图像
• Ado连接SQL Server出现了一个很怪的问题,麻烦大家帮我解决一下
• win me下的boot.ini在那？
• load:com.ms.activeX.ActiveXComponent cant be instantiated
• 急问：哪里有delphi 6.0 或5.0下载？
• 用FSO,为何本想建目录却成了建未知类型的文件??
• 为完成毕业设计，结交神经网络方面的高手。
• [急急急！！！]能不能实现pbd文件的反编译？我丢失了pbl源文件
• api高手请进：怎样画曲线图？
• 请问在客户机上用主域分配的用户名登录的问题。。
• 我的C/S程序，用超级用户可以执行，但到power user用户时不能运行。程序中读了注册表
• delphi +SQL SERVER （sybase）程序员在(深圳)的薪水调查
• 修改Windows2000的启动画面？
• 修改Window2000的启动画面？