u_srv.pas

一个很好的游戏软件 自己试试看吧 不用多说了吧

unit U_Srv;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ScktComp, ExtCtrls, DB, ADODB;

type
  TForm1 = class(TForm)
    ServerSocket: TServerSocket;
    MemCliLink: TMemo;
    Label1: TLabel;
    MemCliMsg: TMemo;
    Label2: TLabel;
    ADOQuery1: TADOQuery;
    //Button1: TButton;
    procedure ServerSocketClientConnect(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure FormCreate(Sender: TObject);
    procedure ServerSocketListen(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure ServerSocket1ClientDisconnect(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure MemCliLinkChange(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ServerSocketClientRead(Sender: TObject;
      Socket: TCustomWinSocket);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  SockPool:TList;

implementation

{$R *.dfm}

procedure TForm1.ServerSocketClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  SockPool.Add(Socket);
  MemCliLink.Lines.Add('Client Connected:'+Socket.RemoteAddress);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  SockPool:=TList.Create;
end;


procedure TForm1.ServerSocketListen(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  if Socket.RemoteAddress <> '' then
  MemCliLink.Lines.Add('Listen:'+Socket.RemoteAddress);
end;

procedure TForm1.ServerSocket1ClientDisconnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  SockPool.Remove(Socket);
end;

procedure TForm1.MemCliLinkChange(Sender: TObject);
begin
//  ShowMessage(ServerSocket1.Socket.);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
Var
  i:Integer;
begin
  For i:=SockPool.Count-1 DownTO 0 do
    SockPool.Delete(i);
  FreeAndNil(SockPool);  
end;

procedure TForm1.ServerSocketClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
Var
  i,len:Word;
  Buf : array of char;
  Msg : String;
  uui : String;
begin   //收到一次信息后  还会侦听一次
  try
    Socket.ReceiveBuf(len,2);      //前两个字节存放消息体内容长度
    if Len < 1 then Exit;
    SetLength(buf,len);
    Socket.ReceiveBuf(Buf[0],len);
    setlength(msg, len);
    move(buf[0],Msg[1],len);
    //if msg='' then Exit;
    MemCliMsg.Lines.Add(Socket.LocalHost+':'+Msg);
    if Msg <> '' then
    begin
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('Select * from fff where User_and_pwd = '''+msg+'''');
    ADOQuery1.Active:=true;
    if ADOQuery1.Eof and ADOQuery1.Bof then
    begin
       msg := '用户名或密码错误！';
    end
    else
    begin
       msg := '允许登陆'
    end;
    ADOQuery1.Active:=false;
    ADOQuery1.Close;
      len:=length(msg);
      setlength(buf,len+2); //设置buf长度 //前两个字节存放消息体内容长度
      Move(len, buf[0], 2) ; //把消息体内容长度放入前两个字节
      Move(msg[1], buf[2], len);  //把消息体内容放入包中  从第三个字节开始存放
      if SockPool.Count < 1 then Exit;
      for i:=0 to  SockPool.Count -1 do
      try
        TCustomWinSocket(SockPool[i]).SendBuf(buf[0], len+2);
      except
        TCustomWinSocket(SockPool[i]).Close;
        SockPool.Remove(SockPool[i]);
       //自动回复
      end;
    end;
    len :=0;
  except
  end;  
end;
{var
  len:word;
  buf:array of char;
  msg:string;
begin
  try
    msg := Socket.ReceiveText;
    Memo3.Lines.Add(msg);
  except
    //异常处理
  end;
end;}

end.