Есть такая проблемма!! когда клиент что-то посылает то сервер должен это получить и выполнить определенные действия, в зависимости от того что пришло. Но при получении сервером обрабатываеться только тот запрос который стоит выше!! Я может плохо все рассказал, лучше я это покажу на примере.
| Код |
//Это для Клиента
procedure TForm1.Button1Click(Sender: TObject);
begin
ClientSocket1.Socket.SendText('message');
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
ClientSocket1.Socket.SendText('message2');
end;
//Это для сервера
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
begin
if socket.ReceiveText = 'message2' then showmessage('Все работает2'); //Но почему-то это работает а другое сообщение нет в че дело я не пойму может вы подскажите
if socket.ReceiveText ='message' then showmessage('Все работает');
end;
|
|
