Знаю что тема заезженная но решить проблему не могу своими силами.
Пишу клиент-серверное приложение которое будет общаться по локальной сети. Для примера хочу открыть порт 48888
Код:
1 2 3 4 5 6 7 8 9 10 11 | if ServerSocket1 . Active = True then
begin
Caption := 'Open Is Port'
end
else
try
ServerSocket1 . Port := 48888 ;
ServerSocket1 . Open;
except
Caption := 'Error Open Port'
end ;
|
Если запустить клиент на том же компьютере то все работает а по сети не хочет.
Пробовал в командной строке прописать netstat или telnet - оба способа показывают что порт закрыт. Фаервол отключал и добавлял порт и программу в исключение.
В чем может быть проблема?
Спасибо.