VPF::Проблема с Client Socket, Server Socket - Форум программистов

Alex103

Дата 2.5.2005, 07:11 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 416
Регистрация: 5.1.2005
Где: Украина, г. Харьк ов

Репутация: нет
Всего: нет

Есть такая проблемма!! когда клиент что-то посылает то сервер должен это получить и выполнить определенные действия, в зависимости от того что пришло. Но при получении сервером обрабатываеться только тот запрос который стоит выше!! Я может плохо все рассказал, лучше я это покажу на примере.

Код


//Это для Клиента

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;

--------------------

Мой адресс не дом и не улица, мой адресс WWW

dvamaster

Дата 2.5.2005, 07:32 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 559
Регистрация: 30.6.2004
Где: Россия : Курган

Репутация: 2
Всего: 10

Это от того не работает, что ты два раза принимаешь сообщение.
А отсылается один раз.

Думаю так лучше.

Код


var
  s: String;
begin
  s := socket.ReceiveText;
  if s = ..
  if s = ..
end;

--------------------

Хорошую информацию трудно добыть. Сделать с ней что-нибудь - еще труднее. /L. Skywalker/

Что же я сделал не так? /Король Лир/

Я делаю это для твоего же блага! /Любой родитель и палач/

PKUNZIP.ZIP /неизвестный/

Alex

Дата 2.5.2005, 08:17 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 4
Всего: 162

Перенесено из раздела Дельфи

--------------------

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

Alex103

Дата 3.5.2005, 05:35 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 416
Регистрация: 5.1.2005
Где: Украина, г. Харьк ов

Репутация: нет
Всего: нет

Цитата(dvamaster @ 2.5.2005, 07:32)

Это от того не работает, что ты два раза принимаешь сообщение.
А отсылается один раз.

Думаю так лучше.

Код


var
  s: String;
begin
  s := socket.ReceiveText;
  if s = ..
  if s = ..
end;

Огромнейшее тебе спасибо!!! Ты мне очень помог!!! Вот тебе плюсик!!!! smile

--------------------

Мой адресс не дом и не улица, мой адресс WWW

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »