[Delphi] Модификация IdHTTP

Мне нужно повторить действия программа, которая делает запрос вида:

POST http://www.host.com/character_sync HTTP/1.1

написав программу с использованием IdHTTP (indy), оказалось что клиент отправляет запросы вида:

POST http://www.host.com:80/character_sync HTTP/1.0

Проблему с версией протокола я устранил

Code:

idHTTP.pas

427//  if not (hoKeepOrigProtocol in FOptions) then
428    FProtocolVersion := pv1_1;

но с портом никак не получается.
Есть идеи?

 

Если его не выставить, то выдает ошибку и требует ввести значение.
Если ввести 0, то порт автоматом изменится на 80.

Пытался отловить этот момент - не смог.

Очень похоже, что то что мне нужно изменить находится начиная с 774 строчки idHTTP.pas

Code:

  if FURI.Port <> IntToStr(IdPORT_HTTP) then
    ARequest.Host := FURI.Host + ':' + FURI.Port
  else
    ARequest.Host := FURI.Host;

Но изменение этого кода ни к чему хорошему не привело.

 

DaemoniZ
ты вообще уверен что он не по 80-му идет?
Мб стоит посмотреть в netstat?

 

По 80 на самом деле)

 

=)