Проблема с открытием IdTCPServer!!

[ComAlex]

У меня проблема с открытием IdTCPServer!!
Для торгового аппарата "NOVA" (он выдает напитки)
пишу программу - сервер, который "cлушает" клиента (торговый аппарат) по определенному порту:

При открытии сервера:

IdTCPServer.Active:=False;
IdTCPServer.Bindings.Clear;
bind:=TIdSocketHandle.Create(IdTCPS erver.Bindings);
bind.IP:='172.22.22.20';
bind.Port:=5071;
IdTCPServer.Active:=True;

- выдается ошибка "Could not bind socket. Adress ans port already in use"

Поскажите, что я делаю не так!

Есть готовая программу на Visial C (с исходниками, полностью на API),
которая успешно работает на этом же компе и с теми же параметрами подлючения (IP,порт).

C++ я не знаю, поэтому прошу помощи, господа программисты!
Пишу программу на Delphi XE 10.1 (Berlin)

[p51x]

Откройте translate.google.com и забейте туда текст ошибки.

[ComAlex]

Я понимаю, что "Could not bind socket. Adress ans port already in use", что означает. (и искал, но там общие слова).
Но почему же программа на С++ работает?

[p51x]

1. Вы эту программу С++ перед запуском своей закрывали?

[ComAlex]

Да, конечно

[Sciv]

Сообщение от ComAlex

Да, конечно

В таком случае нужно запустить листенер портов и убедиться, что на этом порту не висят открытые соединения.

Вполне возможно, что описанная Вами программа закрылась, но оставила открытым соединение на порту.

[ComAlex]

Спасибо, попробую

[ComAlex]

НЕТ, не помогло
программа С++ корректно закрывает порт после себя

[Aliens_wolfs]

Проверьте эту строку bind.IP:='172.22.22.20'; правильный ли адрес клиента.
Затем попробуйте задать порт на котром будим слушать IdTCPServer.DefaultPort := 5071;
Это ваши первые грабли в этом компоненте, будут и другие в приеме и передаче, лучше использовать это http://www.programmersforum.ru/showp...06&postcount=4

[ComAlex]

Спасибо, Aliens-wolfs. Проблема была в DefaultPort. Всё заработало