Клиент-Сервер

[snakesoft]

Здравствуйте,уважаемые программисты.Пишу программу клиент-сервер.Надо чтобы программы общались между собой и чтобы сервер сверяла если пришло сообщение от клиента,тогда выполнить действие.Я пробовал с tcpclient и tcpserver.Че-то не получается.
Помогите,плиз.Вот код:
-----------------------------------------------------------------------
КЛИЕНТ

procedure TForm1.Button1Click(Sender: TObject);
begin
tcpclient1.RemoteHost:=edit1.Text;
tcpclient1.Active:=True;
end;
procedure TForm1.TcpClient1Error(Sender: TObject; SocketError: Integer);
begin
showmessage('warning');
halt;
end;
procedure TForm1.TcpClient1Connect(Sender: TObject);
begin
tcpclient1.Open;
tcpclient1.Connect;
tcpclient1.Sendln('reboot');
if tcpclient1.Connected then
begin
showmessage('123');

localPort у меня 1212
-----------------------------------------------------------------------
СЕРВЕР
----------------------------------------------------------------------
tcpserver1.Active:=True;
tcpserver1.Open;
tcpserver1.Receiveln;
if tcpserver1.Receiveln='reboot' then
begin
halt;
end;
-----------------------------------------------------------------------
С уважением,SNAKE

[СТРАННИК]

Посмотри, очень хороший пример работы Клиент-Сервер, правда используются TClientSocket и TServerSocket

[snakesoft]

Спасибо за пример,но на делфи 6 с помощью serversocket и clientsocket я тоже умею,мне вот интересно на делфи? с tcpclient1 и tcpserver1 эту фичу реализовать.Может кто-то знает?

[Квэнди]

Сервер:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPServer;

type
  TForm1 = class(TForm)
    IdTCPServer1: TIdTCPServer;
    Memo1: TMemo;
    Button1: TButton;
    procedure IdTCPServer1Execute(AThread: TIdPeerThread);
    procedure IdTCPServer1Connect(AThread: TIdPeerThread);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.IdTCPServer1Connect(AThread: TIdPeerThread);
begin
memo1.Lines.Add('Connect');
end;

procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
begin
memo1.Lines.Add(athread.Connection.ReadLn());
athread.Stop; //Как вариант ответа. Реализуемо разными способами.
end;

end.

  object IdTCPServer1: TIdTCPServer
    Active = True
    Bindings = <
      item
        IP = '127.0.0.1'
        Port = 1234
      end>
    CommandHandlers = <>
    DefaultPort = 0
    Greeting.NumericCode = 0
    MaxConnectionReply.NumericCode = 0
    OnConnect = IdTCPServer1Connect
    OnExecute = IdTCPServer1Execute
    ReplyExceptionCode = 0
    ReplyTexts = <>
    ReplyUnknownCommand.NumericCode = 0
    Left = 32
    Top = 40
  end

Клиент:

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, StdCtrls;

type
  TForm2 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    IdTCPClient1: TIdTCPClient;
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button2Click(Sender: TObject);
begin
IdTCPClient1.Connect();
IdTCPClient1.SendCmd(edit1.Text);
IdTCPClient1.Disconnect;
end;

end.

  object IdTCPClient1: TIdTCPClient
    MaxLineAction = maException
    Host = '127.0.0.1'
    Port = 1234
    Left = 104
    Top = 112
  end

BDS2005
Indy 9.0.5

[malor]

Где можно почитать что хорошее по работе с TidTCPClient? Вообще рассказ про этот компонент. В подробностях. А также и про TIdHTTP, TIdSSLIOHandlerSocket, TIdAntiFreeze.

Глубины Indy не предлагать...

[Alar]

http://www.Indyproject.org/ - официальный сайт разработчиков.

[Квэнди]

Чем вас не устраивает данная книга ?

[X=Vitamin=X]

Сообщение от Квэнди

Чем вас не устраивает данная книга ?

Чем не устраивает...
Книга довольно неплохая НО:
Вопервых к indy там относятся только примеры, которые я бы сказал недорработанные и сырые.
Вовторых книга называется "Глубины инди" НО по сути там рассказивается о сетях и разных интересных возможностях типа прослушки трафика и т.д.

З.Ы. поправте меня если я неправ

[malor]

Витаминыч, ты прав!