unit Unit1;

interface

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

type
    TServerThread = class(TServerClientThread)
    txt: string;
    procedure ClientExecute; override;
    procedure Update;
end;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Cli: TClientSocket;
    Serv: TServerSocket;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    cmd: TMemo;
    Button5: TButton;
    Button6: TButton;
    SelFile: TOpenDialog;
    Button7: TButton;
    Button8: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure ServClientConnect(Sender: TObject; Socket: TCustomWinSocket);
    procedure Button3Click(Sender: TObject);
    procedure ServClientDisconnect(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure ServGetThread(Sender: TObject;
      ClientSocket: TServerClientWinSocket;
      var SocketThread: TServerClientThread);
    procedure ServClientError(Sender: TObject; Socket: TCustomWinSocket;
      ErrorEvent: TErrorEvent; var ErrorCode: Integer);
    procedure ServClientRead(Sender: TObject; Socket: TCustomWinSocket);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure CliDisconnect(Sender: TObject; Socket: TCustomWinSocket);
    procedure CliError(Sender: TObject; Socket: TCustomWinSocket;
      ErrorEvent: TErrorEvent; var ErrorCode: Integer);
    procedure CliRead(Sender: TObject; Socket: TCustomWinSocket);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  F,FN: TFileStream;

implementation

{$R *.dfm}

procedure TServerThread.ClientExecute;
begin
  while not Terminated do
  begin

    txt:=ClientSocket.ReceiveText;

    if txt='TEXT' then
    begin
      Synchronize(Update);
      ClientSocket.SendText('Ïðèâåò');
      //ClientSocket.Close;
      //Terminate;
    end;
  end;
end;

procedure TServerThread.Update;
begin
  Form1.cmd.Lines.Add(txt);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Serv.Port:=6600;
  Serv.ServerType:=stThreadBlocking;
  Serv.Active:=true;
  cmd.Lines.Add('Server started');
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  Serv.Active:=false;
  cmd.Lines.Add('Îñòàíîâëåí');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Cli.Host:='localhost';
  Cli.Port:=6600;
  Cli.ClientType:=ctBlocking;
  Cli.Active:=true;
  cmd.Lines.Add('Cli Connecting...');
end;

procedure TForm1.ServClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  cmd.Lines.Add('Connect');
  //FN:= TFileStream.Create('c:\temp\new.txt',fmCreate);
  //FN.Position:=0;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  Cli.Active:=false; ;//(Cli.Socket.Handle);
  cmd.Lines.Add('Disconnecting...');
end;

procedure TForm1.ServClientDisconnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  //FN.Free;

  cmd.Lines.Add('Disconnect');
end;

procedure TForm1.ServGetThread(Sender: TObject;
  ClientSocket: TServerClientWinSocket;
  var SocketThread: TServerClientThread);
begin
  cmd.Lines.Add('GetThread');
      SocketThread:=TServerThread.Create(true, ClientSocket);
      SocketThread.Priority:=tpNormal;
      SocketThread.FreeOnTerminate:=true;
      SocketThread.Resume;
end;

procedure TForm1.ServClientError(Sender: TObject; Socket: TCustomWinSocket;
  ErrorEvent: TErrorEvent; var ErrorCode: Integer);
begin
  cmd.Lines.Add('Error '+ inttostr(ErrorCode));
  ErrorCode:=0;
end;

procedure TForm1.ServClientRead(Sender: TObject; Socket: TCustomWinSocket);
var Buf: array [0..8192] of Char;
    IncLen,BufLen: integer;
begin
  cmd.Lines.Add('!!!!!!!!!!ÏÐÈÍßÒÎ!!!!!!!!!!!');
  IncLen:=Socket.ReceiveLength;
  while IncLen>0 do
  begin
    BufLen:=Socket.ReceiveBuf(Buf,SizeOf(Buf));
    if BufLen<=0 then break else FN.WriteBuffer(Buf,BufLen);
  end;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
  if Cli.Active then Cli.Socket.SendText('TEXT');
end;

procedure TForm1.Button6Click(Sender: TObject);
var len: integer;
begin
  SelFile.Execute;
  if FileExists(SelFile.filename) then
  begin
    F:=TFileStream.Create(SelFile.filename,fmOpenRead);
    try
        Cli.Socket.SendStream(F);
    except;
        F.Free;
    end;
  end;
end;

procedure TForm1.Button7Click(Sender: TObject);
var a,b,c: Char;
begin
  a:='a';
  b:='b';
  c:='c';
  showmessage(inttostr(ord(c) XOR ord(a)));

end;

procedure TForm1.Button8Click(Sender: TObject);
var i: integer;
label Skip;
begin
  for i:=1 to 65535 do
  begin
    try
      Serv.Port:=i;
      Serv.ServerType:=stNonblocking;
      Serv.Active:=true;
      Serv.Active:=false;
    except
      Serv.Active:=false;
      cmd.Lines.Add('&#207;&#238;&#240;&#242; '+inttostr(i)+' &#231;&#224;&#237;&#255;&#242;');
    end;
  end;
end;

procedure TForm1.CliDisconnect(Sender: TObject; Socket: TCustomWinSocket);
begin
  cmd.Lines.Add('Disconnect');
end;

procedure TForm1.CliError(Sender: TObject; Socket: TCustomWinSocket;
  ErrorEvent: TErrorEvent; var ErrorCode: Integer);
begin
  cmd.Lines.Add('Error');
  ErrorCode:=0
end;

procedure TForm1.CliRead(Sender: TObject; Socket: TCustomWinSocket);
begin
  cmd.Lines.Add(Socket.ReceiveText);
end;

end.