Имитация локальной сети на одном ПК

← →
Константинов © (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.

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

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