Может ли TIdHTTPServer и TIdHTTP в одном и том же исполняемом соединении?

Question

У меня есть программа, которая использует TIdHTTPServer. Теперь я хочу написать несколько автоматических тестов, используя TIdHTTP, который говорит с TIdHTTPServer. Код теста находится в самой программе.

Когда TIdHTTP пытается подключить «Ошибка сокета # 10061 Connection отказано». исключение. Я предполагаю, что это тот факт, что TIdHTTPServer уже использует порт.

Возможно ли, что TIdHTTPServer и TIdHTTP, которые находятся в одном и том же исполняемом файле, разговаривают друг с другом вообще? Если да, то как?

Answer 1

Да, они могут работать в одном исполняемом файле и подключаться друг к другу. Просто укажите (один из) прослушивания IP TIdHTTPServer (-и) в URL, который вы передаете в TIdHTTP, например:

with IdHTTPServer1.Binding.Add do 
begin 
    IP := '127.0.0.1'; 
    Port := 80; 
end; 
IdHTTPServer1.Active := True; 
... 
IdHTTP1.Get('http://127.0.0.1/');