Скачать: CL | DM;

Имитация локальной сети на одном ПК   Найти похожие ветки 

← →
Константинов ©   (2005-01-10 18:12) [0]

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

ClientSocket1.Host := Form2.Edit1.Text;
ClientSocket1.Port := Form2.SpinEdit2.Value;
ClientSocket1.Active := true;
ClientSocket1.Socket.SendText(Edit2.Text);
ClientSocket1.Active := false;

и для приема:

ServerSocket1.Port := Form2.SpinEdit1.Value;
ServerSocket1.Active := true;
...
procedure TForm4.ServerSocket1ClientRead...
S := Socket.ReceiveText;
end;

на клиенте и на сервере.
Если номера портов и имя ПК для ServerSocket и ClientSocket совпадают, то приложение принимает свои собственные сообщения,
попытка сменить порт у одного из этих компонентов приводит к исключению.
Как мне имитировать одновременную работу клиентской и серверной части ( на этапе разработки ) на одной локальной машине ( не имеющей доступа к сети ).

Заранее спасибо.

---

← →
Константинов ©   (2005-01-10 18:23) [1]

Сорри! Попробую почитать нижестоящую ветку.

---

← →
novice_man ©   (2005-01-10 18:23) [2]

Если номера портов и имя ПК для ServerSocket и ClientSocket совпадают, то приложение принимает свои собственные сообщения,
попытка сменить порт у одного из этих компонентов приводит к исключению.

Чем приложение принимает сообщения?

---

← →
Константинов ©   (2005-01-11 00:16) [3]

Все! Разобрался! :)
Но только действительно сокеты не получится использовать.
Мне нужен диалог сервера с множеством клиентов.
Буду читать по Indy.

---

← →
Eraser ©   (2005-01-11 00:45) [4]

Советую тебе прогу VMWare, с помощю которой ты можешь создать виртуальные компы и связывать их в сеть.
Советую.

---

← →
Константинов ©   (2005-01-11 18:55) [5]

to Eraser ©   (11.01.05 00:45) [4]
спасибо!
Попробую :))

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: -0.937 c