serverc.cpp

一个用于delphi多线程Socket.多线程Socket阻塞模式下通信的例子

//---------------------------------------------------------------------------
/*
    BCB-Socket阻塞模式通讯测试-服务器端
    作者:Sncel(地狱情人) QQ:6522203
    指导:invalid(空心菜) QQ:309283
    http://bcb.vicp.net
*/

#include <vcl.h>
#pragma hdrstop
#include "MyServer.h"
#include "ServerC.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TServerFrm *ServerFrm;
int ActiveNum=0; //申明全局变量,用于计算当前的连接数
AnsiString TransmitStr=""; //存放客户机发来的消息
//---------------------------------------------------------------------------
__fastcall TServerFrm::TServerFrm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TServerFrm::ServerSocket1GetThread(TObject *Sender,
      TServerClientWinSocket *ClientSocket,
      TServerClientThread *&SocketThread)
{
    SocketThread=new MyServer(false,ClientSocket,600000);
}
//---------------------------------------------------------------------------
void __fastcall TServerFrm::Button1Click(TObject *Sender)
{
    ServerSocket1->Close();
    ServerSocket1->Active=true;
}
//---------------------------------------------------------------------------
int __fastcall TServerFrm::boardcast(String msg)
{
    String ip;
    for(int i=0;i<ServerSocket1->Socket->ActiveConnections;i++)
    {
       ip=ServerSocket1->Socket->Connections[i]->RemoteAddress;
        if(CompareText(ip,msg.SubString(1,ip.Length()))!=0)
            ServerSocket1->Socket->Connections[i]->SendText(msg);
    }
  return true;  
}