Простая задача по использованию TCP/IP

[Zroman]

Спасибо за пример. А как написать простейший сервер?
Я пробую кидать на форму компоненту IdTCPServer, присваиваю ему DefaultPort:=1800 и в примере клиента указываю этот же порт. Запускаю сервер, запускаю клиент. Пробую установить клиентом соединение, а оно Refused. Чего не хватает моему простейшему серверу?

[LAngel]

Наверное поставить "Active := True"?
Не, если так - то впринципе достаточно.

Самый простой сервер, это конечно, не на инди, (уж много они там понаворочали), а на обычных сокетак.
Вот пример: http://netroad.ru/~vadim1313/sock_serv.rar

[Zroman]

Я ставлю True в свойстве Active в Инспекторе Объекта на стадии разработки. Это принципиально?

[LAngel]

Если DefaultPort:=1800 ставить тоже в стадии разработки - то нет.

[Хыиуду]

Спасибо, LAngel, за исходники!
Это не у меня была ошибка, это система безопасности работала хорошо. И на всякие левые строки, пришедшие от непонятной программы, не отвечала.

[Zroman]

Самый простой сервер, это конечно, не на инди, (уж много они там понаворочали), а на обычных сокетак.
Вот пример: http://netroad.ru/~vadim1313/sock_serv.rar

У меня Делфи 7 и компонент, нужніх для работы этого примера там нет.

[LAngel]

А вот и есть только он не установлен.
см. тему "Сокеты в Delphi7" на этом же форуме
P.S. Пример я писал на том же Delphi 7

[Zroman]

Спасибо. Я уже нашёл примері клиента и сервера на Инди.

[Zroman]

Ещё раз спасибо за помощь.
Кстаи, примеры Инди можно скачать отсюда http://www.nevrona.com/indy