Доброго всем времени суток!

Стоит задача отправить POST запрос по SSL при помощи WinInet. Т.е. нужно cэмитировать форму.

<form name=form1 method=post action='https://….’ >

Если использовать обычную форму, приходит нормальный ответ от сервера. При помощи WinInet, в ответе — контент сайта. Похоже, сервер не понимает, что это POST запрос, а обрабатывает его просто как запрос на открытие страницы. В чем может быть дело?


AcceptTypes : array [0..1] of pchar = ('*/*',nil);
Headers := 'Content-Type: application/x-www-form-urlencoded';

FSession:=InternetOpen(pchar(Agent),INTERNET_OPEN_TYPE_PRECONFIG ,nil,nil,0);

FConnect:=InternetConnect(FSession,pchar(Server), INTERNET_DEFAULT_HTTPS_PORT ,nil,nil,INTERNET_SERVICE_HTTP,0,0);

hRequest:=HttpOpenRequest(FConnect,'POST', Pchar(Url), 'HTTP/1.0' ,nil,@AcceptTypes,
INTERNET_FLAG_RELOAD or INTERNET_FLAG_SECURE or INTERNET_FLAG_IGNORE_CERT_CN_INVALID or INTERNET_FLAG_IGNORE_CERT_DATE_INVALID,0);

Buffer:=HttpEncode(Request);

HttpSendRequest(hRequest,Headers, length(Headers),pchar(Buffer),StrLen(pchar(Buffer)));

HttpQueryInfo(hRequest,HTTP_QUERY_STATUS_CODE or HTTP_QUERY_FLAG_NUMBER,@Status,Size,Res);

InternetQueryDataAvailable(hRequest,Size,0,0)

SetLength(Buffer,Size);
InternetReadFile(hRequest,pchar(Buffer),Size,Size)