| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

TCPClient и TCPServer [D7, XP]

Страницы:   < 1 2 >

Igor_M ©   (2010-08-31 16:45:00) 

Добрый день, нужно написать сокет-клиента для обмена данными с сервером. Написал стандартный код:

procedure TMainForm.Button2Click(Sender: TObject);
begin
 TcpClient.Active := True;
 s_to := Trim(MemoTo.Text);
 TcpClient.Connect;
 TcpClient.Sendln(Chr(0)+ Chr(Length(s_to)) + s_to);
//  while TcpClient.WaitForData(15000) do  
 MemoFrom.Text := TcpClient.Receiveln('');
end;


От меня сообщение успешно уходит и читается той стороной. Но приложение зависает на последней строчке.

Подскажите для приёма сообщений нужно использовать компонент TCPServer?

Спасибо.

---

Сергей М.   (2010-08-31 17:02:00) [21]

> приложение зависает на последней строчке.


А что, по-твоему, оно должно делать, если не "зависать" ?

---

Dennis I. Komarov   (2010-08-31 16:55:00) [22]

> нужно написать сокет-клиента для обмена данными с сервером.

И что за сервер? Какой режим? И т.д....

---

Dennis I. Komarov   (2010-08-31 16:52:00) [23]

> Написал стандартный код:

А что в нем такого стандартного?

---

Dennis I. Komarov   (2010-08-31 16:51:00) [24]

> Подскажите для приёма сообщений нужно использовать компонент
> TCPServer?

Не нужно...

---

Страницы:   < 1 2 >

Наверх