INDY 10 (idCmdTCPServer & idCmdTCPClient) & Delphi 2009

[S_Yevgeniy]

Доброе время суток.
Прошу помощи. Может есть у кого пример работы с idCmdTCPServer ну и клиентом соответственно. Хотелось бы научиться этим пользоваться.
Заранее спасибо всем откликнувшимся.

[TwiX]

Вот пример работы с idTCPserver и клиентом соответсвенно:

//*********************Sever
unit Main;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdCustomTCPServer, IdTCPServer,
  IdCmdTCPServer, StdCtrls, IdContext, IdUri, IdCommandHandlers;
 
type
  TfrmMain = class(TForm)
    OtaibiList: TListBox;
    OtaibiServer: TIdCmdTCPServer;
    procedure FormCreate(Sender: TObject);
    procedure OtaibiServerConnect(AContext: TIdContext);
    procedure OtaibiServerDisconnect(AContext: TIdContext);
    procedure OtaibiServerCommandHandlers1Command(ASender: TIdCommand);
    procedure OtaibiServerExecute(AContext: TIdContext);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  frmMain: TfrmMain;
 
implementation
 
{$R *.dfm}
 
procedure TfrmMain.FormCreate(Sender: TObject);
begin
  OtaibiServer.Active := True;
end;
 
procedure TfrmMain.OtaibiServerCommandHandlers1Command(ASender: TIdCommand);
begin
   OtaibiList.Items.Add('Execute command from: ' +
     ASender.Context.Connection.Socket.Binding.PeerIP);
   ASender.SendReply;
   ASender.Context.Connection.IOHandler.WriteLn('This is a dynamic response ' +
                 'from the Otaibi Server. It can be customized to add much ' +
                 'more functionality.');
end;
 
procedure TfrmMain.OtaibiServerConnect(AContext: TIdContext);
begin
  OtaibiList.Items.Add('Connected from: ' +
    AContext.Connection.Socket.Binding.PeerIP);
end;
 
procedure TfrmMain.OtaibiServerDisconnect(AContext: TIdContext);
begin
  OtaibiList.Items.Add('Disconnected from: ' +
    AContext.Connection.Socket.Binding.PeerIP);
end;
 
procedure TfrmMain.OtaibiServerExecute(AContext: TIdContext);
var
  strCommand: string;
begin
  strCommand := AContext.Connection.IOHandler.ReadLn;
  if SameText (strCommand, 'text') then
     AContext.Connection.IOHandler.WriteLn('200 OK');
end;
 
end.
 
//*********************Client
unit MainClient;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient;
 
type
  TfrmMain = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    OtaibiClient: TIdTCPClient;
    eHost: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  frmMain: TfrmMain;
 
implementation
 
{$R *.dfm}
 
procedure TfrmMain.Button1Click(Sender: TObject);
begin
  If eHost.Text = '' then OtaibiCLient.Host := 'localhost'
  else OtaibiClient.Host := eHost.Text;
 
  OtaibiClient.Connect;
 
  ShowMessage (OtaibiClient.IOHandler.ReadLn);
end;
 
procedure TfrmMain.Button2Click(Sender: TObject);
begin
  OtaibiClient.Disconnect;
end;
 
procedure TfrmMain.Button3Click(Sender: TObject);
begin
  OtaibiClient.SendCmd('test') ;
  ShowMessage (OtaibiClient.LastCmdResult.Code + ' : ' +
               OtaibiClient.LastCmdResult.Text.Text);
end;
 
procedure TfrmMain.Button4Click(Sender: TObject);
begin
  OtaibiClient.SendCmd('execute') ;
  ShowMessage (OtaibiClient.LastCmdResult.Code + ' : ' +
               OtaibiClient.LastCmdResult.Text.Text);
  ShowMessage (OtaibiClient.IOHandler.ReadLn);
end;
 
end.

[S_Yevgeniy]

Вот я попытался сделать проекты по вашему примеру. Но что-то не так. подкорректируйте пожалуйста.

Файл

[TwiX]

Хм... Опять возвращаюсь к тому, что надо использовать инди =)
Вот пример чата

[S_Yevgeniy]

Сообщение от TwiX

Хм... Опять возвращаюсь к тому, что надо использовать инди =)

Что я не так сделал то?

Вот пример чата

У меня есть такой пример только он не компилируется в Delphi 2009.

[TwiX]

Сообщение от S_Yevgeniy

Что я не так сделал то?

Всё правильно, просто я сам не работал с otaiby... Indy легче для понимания и меньше багов.

Сообщение от S_Yevgeniy

Что я не так сделал то?
У меня есть такой пример только он не компилируется в Delphi 2009.

От туда Вам нужен только принцип отправки

[S_Yevgeniy]

Вы простите я не до конца понимаю так как только начал изучать данную область программирования в делфи как и вообще программирование. Но разве INDY 10 и (idCmdTCPServer & idCmdTCPClient) это не одно и тоже. Мне как раз и нужно INDY 10 ну мне посоветовали.

[TwiX]

Я не знаю, что такое otaibeTCPServer =)
А TCP клиент писал только на autoIt xD
Но я всё-таки добил инди (у меня тож не компилился тот чат (2009 делфа)) =) Вот:

[S_Yevgeniy]

Большое Вам спасибо!!! Огромное!!!

[Квэнди]

Для начала вам лучше всего ознакомиться с примерами
http://indyproject.org/Sockets/Demos/index.EN.aspx
http://www.atozed.com/Indy/Demos/10/index.ru.aspx