DUzun's Web
Programare, proiecte personale, divertisment

unit Unit1;

​

interface

​

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, DB, DBClient, MConnect, SConnect, ScktComp;

​

type

  TForm1 = class(TForm)

    Memo1: TMemo;

    Button1: TButton;

    ServerSocket1: TServerSocket;

    ClientSocket1: TClientSocket;

    Edit1: TEdit;

    Edit2: TEdit;

    procedure FormCreate(Sender: TObject);

    procedure FormClose(Sender: TObject; var Action: TCloseAction);

    procedure ServerSocket1ClientRead(Sender: TObject;

      Socket: TCustomWinSocket);

    procedure Button1Click(Sender: TObject);

    procedure Edit2Exit(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

​

var

  Form1: TForm1;

​

implementation

​

{$R *.dfm}

​

procedure TForm1.FormCreate(Sender: TObject);

begin

   ServerSocket1.Port := 23;

   ServerSocket1.Active := True;

​

  ClientSocket1.Port :=  23;

  //local TCP/IP address of the server

  ClientSocket1.Host :=  Edit2.Text;

  ClientSocket1.Active :=  true;

end;

​

​

​

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

   ServerSocket1.Active := false;

   ClientSocket1.Active := false;

end;

​

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;

  Socket: TCustomWinSocket);

  var

    i:integer;

    sRec : string;

begin

  for i := 0 to ServerSocket1.Socket.ActiveConnections-1 do

  begin

    with ServerSocket1.Socket.Connections[i] do

    begin

      sRec := ReceiveText;

      if sRec <> '' then

      begin

        Memo1.Lines.Add(RemoteAddress + ' sends :') ;

        Memo1.Lines.Add(sRec);

      end;

    end;

  end;

end;

​

procedure TForm1.Button1Click(Sender: TObject);

begin

  if ClientSocket1.Active then

      ClientSocket1.Socket.SendText(Edit1.Text);

  Edit1.Text := '';

end;

​

procedure TForm1.Edit2Exit(Sender: TObject);

begin

   ClientSocket1.Active := false;

   ClientSocket1.Host :=  Edit2.Text;

   ClientSocket1.Active := true;

end;

​

end.

​

​