E-Port + TIdHTTP

[Satim]

Для проведения платежей в системе епорт надо отправлять запросы методом POST.
Проблема в том что при проведении платежа возникает 413
При том что запрос справочника и баланса счета отрабатываються нормально!!!

Запросы отправляю через TIdHTTP+TIdSSLIOHandlerSocketOpenSS L.

вот пример кода

try
    HTTPSend := TIdHTTP.Create(nil);
    MySSL    := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
    Data := TStringList.Create;
    MySSL.SSLOptions.RootCertFile := 'eport.cer';
    MySSL.OnGetPassword := MySSLGetPassword;
    MySSL.SSLOptions.Method := sslvSSLv23;
    HTTPSend.IOHandler := MySSL;
    HTTPSend.ProtocolVersion := pv1_1;
   Data.Add('OPERATION'+CRLF+'id=123'+CRLF+'checkid=123'+CRLF+'product=4420'+CRLF+'value=3.0000QTY'+CRLF+'account=9167779988');
    HTTPSend.Request.CustomHeaders.Add('Content-Type: plain/text; charset=Windows-1251');
    HTTPSend.Request.CustomHeaders.Add('Content-Length: '+IntToStr(Length(Data.Text)));
    HTTPSend.Request.CustomHeaders.Add('X-Eport-Auth: point=123456; card="209000-12345"; pin="qwert"');
    ResultMemo.Add(HTTPSend.Post('https://dealer-m1.fe.e-port.ru/cp/fe',Data));
  finally
    HTTPSend.Free;
    Data.Free;
  end;

[Квэнди]

The server is refusing to process a request because the request entity is larger than the server is willing or able to process. The server MAY close the connection to prevent the client from continuing the request.

If the condition is temporary, the server SHOULD include a Retry- After header field to indicate that it is temporary and after what time the client MAY try again.
http://www.w3.org/Protocols/rfc2616/...tml#sec10.4.14

[Satim]

Я знаю что это за ошибка.
Почему она возникает?
Тело запроса гарантированно не превышает 4 кб.
На снифере я этот запрос видел нормальный запрос POST.
Я тут посовещался с товарищами.
Подсказали что вроде бы индейц отправляет сперва заголовки а патом тело запроса. Следовательно на сервер приходят 2 пакета в 1 заголовки а во втром само тело запроса. Но полной уверенности нет.
Может я в коде где накосячил?

[Квэнди]

ну на вид все правильно, не имеет значения сколько пакетов придет на сервер HTTP протокол находится выше уровнем и колд-во пакетов здесь никак не влияет

[Satim]

А на сокетах как подобную функцию реализовать?
Посоветуйте направление куда рыть.
С сокетами до этого не работал(

[Квэнди]

Попробуйте ICS

[Satim]

А на низком уровне как запрос формировать.
Подскажите документашку какую нибуть.

[Квэнди]

можете из инди оспользоваться компонентом IdTcpClient и в соответствии с rfc (ссылки есть в прикрепленной теме раздела) составить ручками запрос и отправить просто TCP пакет

[Satim]

Сделал через IdTcpClient

 try
    Client      := TIdTCPClient.Create(nil);
    MySSL       := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
    PackStr     := TStringList.Create;
    MySSL.SSLOptions.RootCertFile := 'eport.cer';
    MySSL.SSLOptions.Method := sslvSSLv23;
    Client.IOHandler := MySSL;
    PackStr.Add('POST https://dealer-m1.fe.e-port.ru/cp/fe HTTP/1.0'+CRLF+
    'Content-Type: text/plain; charset=windows-1251'+CRLF+'Content-Length: 73'+CRLF+
    'X-Eport-Auth: point=123456; card="209000-12345"; pin="qwert"');
    Client.Host := 'https://dealer-m1.fe.e-port.ru/cp/fe';
    Client.Port := 443;
    Client.WriteHeader(PackStr);
    PackStr.Clear;
    PackStr.Add('OPERATION'+CRLF+'id=123'+CRLF+'checkid=123'+CRLF+
    'product=4420'+CRLF+'value=3.0000QTY'+CRLF+'account=9167778899');
    Client.WriteRFCStrings(PackStr);
    Client.Connect;
  finally
    Client.Free;
    MySSL.Free;
    PackStr.Free;
  end;

Видимо я чтото не так делаю вываливается "connection closed gracefully"
Не подскажите где ошибка?

[LordAlex]

Satim

Подскажите, удалось реализовать соединение с Е-Портом?
Если удалось, то как?
Мои полугодовые потуги закончились ничем. (delphi6+indy9 - TIdHTTP)
sign - не принимается
если использую тестовые данные и ключи (приведенные на их сайте) - сигнатура сходится, а вот на мои сообщения их сервак отвечает - что не верно.
обмен по "card/pin" проходит успешно.
Но они требуют соединения по аутентификации с "sign".