Знаю что тема заезженная но решить проблему не могу своими силами.
Пишу клиент-серверное приложение которое будет общаться по локальной сети. Для примера хочу открыть порт 48888
Код:
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 - оба способа показывают что порт закрыт. Фаервол отключал и добавлял порт и программу в исключение.
В чем может быть проблема?
Спасибо.