Socket Error #10057

[PaHaNjkee]

Вообщем сделал чат клиент-сервер. Создаю сервер, подключаю клиент с сервера посылаю команду, и ошибка

А если посылать с клиента на сервер то все нормально.
Поиском пользовался но толковое решение данной проблемы я так и не нашёл
Т.к. в проекте используется AlphaSkins, выкладываю исходный код.

Client

var
  Form1: TForm1;
  Login: String = '';

implementation

{$R *.dfm}

procedure TForm1.sButton1Click(Sender: TObject);
begin
if Trim(sEdit2.Text) <> '' then begin
ClientSocket1.Host := '127.0.0.1';
ClientSocket1.Port := 1120;
ClientSocket1.Open;
Login := sEdit2.Text;
end else ShowMessage('Необходимо ввести логин!');
end;

procedure TForm1.sButton2Click(Sender: TObject);
begin
if Trim(sEdit1.Text) <> '' then begin
ClientSocket1.Socket.SendText(Login + ': '+sEdit1.Text);
sMemo1.Lines.Add(Login + ': '+sEdit1.Text);
end;
end;

procedure TForm1.ClientSocket1Connect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
sButton1.Enabled := False;
sButton3.Enabled := True;
sGroupBox2.Enabled := True;
end;

procedure TForm1.ClientSocket1Disconnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
sButton1.Enabled := True;
sButton3.Enabled := False;
sGroupBox2.Enabled := False;
end;

procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
  var text: string;
begin
text := Socket.ReceiveText;
sMemo1.Lines.Add(text);
end;

procedure TForm1.ClientSocket1Error(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
    if ErrorCode = 10061 then
    begin
      ClientSocket1.Close;
      showmessage('ERROR #61: Сервер в данное время недоступен!');
      ErrorCode := 0;
    end;
    if ErrorCode = 10049 then
    begin
      ClientSocket1.Close;
      showmessage('ERROR #49: Данного сервера не существует!');
      ErrorCode := 0;
    end;
    if ErrorCode = 10053 then
    begin
      ClientSocket1.Close;
      showmessage('ERROR #53: Сервер неожиданно отключился!');
      ErrorCode := 0;
    end;
    if ErrorCode = 10060 then
    begin
      ClientSocket1.Close;
      showmessage('ERROR #60: Попытка подключения не удалась, т.к. сервер вовремя не ответил!');
      ErrorCode := 0;
    end;
end;

procedure TForm1.sButton3Click(Sender: TObject);
begin
ClientSocket1.Close;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
ClientSocket1.Close;
end;

end.

Server

var
  Form1: TForm1;
  Login: String = '';

implementation

{$R *.dfm}

procedure TForm1.sButton1Click(Sender: TObject);
begin
if Trim(sEdit2.Text) <> '' then begin
ServerSocket1.Port := 1120;
ServerSocket1.Open;
Login := sEdit2.Text;
sButton1.Enabled := False;
sButton3.Enabled := True;
sGroupBox3.Enabled := True;
end else ShowMessage('Необходимо ввести логин!');
end;

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
  var text: string;
begin
text := Socket.ReceiveText;
sMemo1.Lines.Add(text);
end;

procedure TForm1.sButton2Click(Sender: TObject);
begin
if Trim(sEdit3.Text) <> '' then begin
ServerSocket1.Socket.SendText(Login+': '+sEdit3.Text);
sMemo1.Lines.Add(Login+': '+sEdit3.Text);
end;
end;

procedure TForm1.sButton3Click(Sender: TObject);
begin
ServerSocket1.Close;
sButton1.Enabled := True;
sButton3.Enabled := False;
sGroupBox3.Enabled := False;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
ServerSocket1.Close;
end;

end.

[Larboss]

http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx

[PaHaNjkee]

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

http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx

Это все я видел, но что я не правильно сделал?!

Вот исходник к примеру

[Stilet]

PaHaNjkee

Я немножко не могу понять, а как ты с сервера собираешься посылать текст, не указав серверу на какой хост посылать? Т.е. ServerSocket1.Socket.SendText ты написал, но куда он будет посылать где определено?
И зачем ксати посылать с сервера сообщения по нажатию кнопки?

[PaHaNjkee]

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

Я немножко не могу понять, а как ты с сервера собираешься посылать текст, не указав серверу на какой хост посылать? Т.е. ServerSocket1.Socket.SendText ты написал, но куда он будет посылать где определено?
И зачем ксати посылать с сервера сообщения по нажатию кнопки?

Т.е. нужно

var b: byte;
ServerSocket1.Socket.Connections[b].SendText(...);

?

А как еще можно, если не по нажатию по кнопке?

[PaHaNjkee]

ServerSocket1.Socket.Connections[0].SendText(...);

Помогло, спасибо, тему можно закрывать.

[Stilet]

Т.е. нужно

Ну да
Опять таки клиент должен быть подключен.

А как еще можно, если не по нажатию по кнопке?

Ну как вот я понимаю: Сервер призван отвечать на запросы клиента. Так? Значит посылать он что-то должен в событиях обработки запроса от клиента, а не отдельно. Я не спорю, что есть задачи, когда сервер должен как-то уведомить клиентов, но в в данном случае как-то не вижу смысла.

[PaHaNjkee]

У меня еще один вопрос Есть сервер, к нему подключаются 2 клиента (А и В), первый клиент(A) отправляет команду серверу. Можно сделать так что-бы сервер отвечал не только клиенту(А), но и клиенту (В).

[Stilet]

Т.е. широковещательная рассылка? Ну у тебя же есть массив ServerSocket1.Socket.Connections[]. По нему в цикле и пробегай посылая строку.