Не могу переслать текст...

[prod87]

Не могу переслать текст с клиента на сервер... Вот исходный код. Что я нитак делаю?

Клиент:

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    GroupBox1: TGroupBox;
    Memo1: TMemo;
    Memo2: TMemo;
    Button1: TButton;
    N3: TMenuItem;
    N2: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    N25: TMenuItem;
    N28: TMenuItem;
    N29: TMenuItem;
    N30: TMenuItem;
    ClientSocket1: TClientSocket;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure N27Click(Sender: TObject);
    procedure N26Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses Unit1, Unit5, Unit6, Unit7;

{$R *.dfm}

procedure TForm2.Button2Click(Sender: TObject);
begin
form1.close;
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
ClientSocket1.Socket.SendText(memo2.Text);
memo1.text:=(memo1.text+#13+#10+'Я: '+memo2.text);
memo2.clear;
end;

procedure TForm2.N3Click(Sender: TObject);
begin
form1.Close;
end;

procedure TForm2.N2Click(Sender: TObject);
begin
form2.close;
form1.Show;
end;

procedure TForm2.N24Click(Sender: TObject);
begin
form5.show;
end;

procedure TForm2.N27Click(Sender: TObject);
begin
form6.show;
end;

procedure TForm2.N26Click(Sender: TObject);
begin
form7.show;
end;

end.

Сервер:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    ServerSocket1: TServerSocket;
    procedure ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
memo1.text:=Socket.ReceiveText //????? ?? ???????
end;

end.

[Пепел Феникса]

а сокеты открыты хоть?
соединились ли они?

[Stilet]

Что я нитак делаю?

Если порты совпадают на клиенте и сервере и если сокеты открыты, то ошибку в студию.

[prod87]

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

Если порты совпадают на клиенте и сервере и если сокеты открыты, то ошибку в студию.

Порты совпадают... Что значит сокеты открыты? Я плохо разбираюсь

[Stilet]

ну

  ServerSocket1.Active:=true

и клиент тоже.