Здраствуйте.Почитал несколько статей по delphi и решали написать чат клиент<>сервер.
Ошибка возникла когда я попытался отправить сообщение серверу.
Сервер ничего не выдает когда в клиенте я нажимаю на кнопку отправить.Но соединение он логирует.
Вот исходные коды.Может кто подскажет.
Сервер
PHP код:
procedure TForm1.FormCreate(Sender: TObject);
begin
ServerSocket1.Port := 777;
ServerSocket1.Active := True;
end;
procedure TForm1.ServerSocket1Accept(Sender: TObject; Socket: TCustomWinSocket);
var
S: String;
begin
{Добавляем к строке сообщения клиента идентификатор его сокета}
S := 'К нам добавился UID ' + InTtoStr(Socket.SocketHandle);
ListBox1.Items.Add(S); {Добавляем сообщение в список}
end;
procedure TForm1.ServerSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
var
a: String;
begin
a := 'Клиент ' + InTtoStr(Socket.SocketHandle) + 'написал >' + Socket.ReceiveText;
ListBox1.Items.Add(a);
end;
end.
Клиент
PHP код:
procedure TForm1.ConnectClick(Sender: TObject);
begin
ClientSocket1.Address := Host.Text;
ClientSocket1.Port := StrToInt(Port.Text);
ClientSocket1.Active := True;
end;
procedure TForm1.SendClick(Sender: TObject);
begin
ClientSocket1.Socket.SendText(Text.Text);
end;