VPF::Передача данных в ClientSocket, ServerSocket

Guedda

Дата 17.1.2006, 20:30 (ссылка)

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

Загрузка ...

Подрывник

Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

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

Есть форма. На форме находится TServerSocket, TClientSocket, Button1(кнопка отправки сообщения), Memo1(само сообщение).
В общем код, а потом вопрос:

Код


procedure TForm1.Button1Click(Sender : Tobject);
begin
  ClientSocket1.Active := true;
  ClientSocket1.Host := '127.0.0.1';
  ClientSocket1.Socket.SendText(Memo1.Text);
  ClientSocket1.Active := false;
end;

procedure TForm1.FormCreate(Sender : Tobject);
begin
  ServerSocket1.Active := true;
end;

procedure TForm1.FormDestroy(Sender : Tobject);
begin
  ServerSocket1.Active := false;
end;

procedure TForm1.ServerSocket1ClientRead(Sender : Tobject; Socket : TCustomWinSocket);
begin
  ShowMessage(Socket.ReceiveText);
end;

Вот собственно вопрос:
Нажимаю на кнопку, ничего не происходит. Нажимаю второй раз, сообщение показывается.
Подскажите, в чем может быть проблема?
Я хочу, чтобы сразу при нажатии на кнопку показывалось сообщение.

Я только начал использовать Sockets и работать с инетом.

Заранее благодарен.

Это сообщение отредактировал(а) Guedda - 17.1.2006, 20:31

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

Ll 2

Snowy

Дата 17.1.2006, 23:44 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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

1. Если тебе нужно разовое подключение, то переведи сокет в блокирующий режим.
ClientType := ctBlocking;
Иначе ты отключаешься раньше, чем происходит коннект.
2.

Цитата(Guedda @ 17.1.2006, 20:30

)

ClientSocket1.Active := true;
ClientSocket1.Host := '127.0.0.1';

Сначала прописывай параметры, а потом подключайся.

Guedda

Дата 18.1.2006, 09:28 (ссылка)

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

Загрузка ...

Подрывник

Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

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

Спасибо. Все помогло.

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

Ll 2

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