Приложение типа Клиент-Сервер

unit Main;

interface

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

type
  TfrmMain = class(TForm)
    Server: TServerSocket;
    procedure ServerClientRead(Sender: TObject; Socket: TCustomWinSocket);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmMain: TfrmMain;
  registry: TRegistry;
  i: string;

implementation

{$R *.dfm}

procedure TfrmMain.FormCreate(Sender: TObject);
begin
Server.Open; //Запускаем сервер
end;

procedure TfrmMain.ServerClientRead(Sender: TObject; Socket: TCustomWinSocket);
begin
i := socket.ReceiveText;

// if i='<имя команды>' then
// <Действие команды>;
end;

end.

unit Main;

interface

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

type
  TfrmMain = class(TForm)
    Client: TClientSocket;
    edIP: TEdit;
    Label1: TLabel;
    btConnect: TBitBtn;
    Label2: TLabel;
    edCommand: TEdit;
    btCommand: TBitBtn;
    btDisconnect: TBitBtn;
    btExit: TBitBtn;
    stBar: TStatusBar;
    procedure ClientRead(Sender: TObject; Socket: TCustomWinSocket);
    procedure btCommandClick(Sender: TObject);
    procedure btDisconnectClick(Sender: TObject);
    procedure btConnectClick(Sender: TObject);
    procedure btExitClick(Sender: TObject);
    procedure ClientConnecting(Sender: TObject; Socket: TCustomWinSocket);
    procedure ClientDisconnect(Sender: TObject; Socket: TCustomWinSocket);
    procedure ClientError(Sender: TObject; Socket: TCustomWinSocket;
      ErrorEvent: TErrorEvent; var ErrorCode: Integer);
    procedure ClientConnect(Sender: TObject; Socket: TCustomWinSocket);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmMain: TfrmMain;
  i: string;

implementation

{$R *.dfm}

procedure TfrmMain.ClientConnect(Sender: TObject; Socket: TCustomWinSocket);
begin
stBar.SimpleText := 'Подключение произошло успешно'
end;

procedure TfrmMain.ClientError(Sender: TObject; Socket: TCustomWinSocket;
  ErrorEvent: TErrorEvent; var ErrorCode: Integer);
begin
stBar.SimpleText := 'Произошла ошибка'
end;

procedure TfrmMain.ClientDisconnect(Sender: TObject; Socket: TCustomWinSocket);
begin
stBar.SimpleText := 'Клиент отключен'
end;

procedure TfrmMain.ClientConnecting(Sender: TObject; Socket: TCustomWinSocket);
begin
stBar.SimpleText := 'Идет подключение...'
end;

procedure TfrmMain.btExitClick(Sender: TObject);
begin
frmMain.Close
end;

procedure TfrmMain.btConnectClick(Sender: TObject);
begin
Client.Address:=(edIP.text); //Передаем клиенту IP адрес
Client.Open //Активация клиента
end;

procedure TfrmMain.btDisconnectClick(Sender: TObject);
begin
Client.Close
end;

procedure TfrmMain.btCommandClick(Sender: TObject);
begin
Client.Socket.SendText(edCommand.text);
stBar.SimpleText:='Данные отправлены';
end;

procedure TfrmMain.ClientRead(Sender: TObject; Socket: TCustomWinSocket);
begin
i:=Socket.ReceiveText;
stBar.SimpleText:=i;
end;

end.