POST запрос при помощи WinInet

← →
vcdima (2006-10-31 14:18) [0]

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

Стоит задача отправить 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)

← →
YuRock © (2006-10-31 15:49) [1]

Это что - статья? :)

> Если использовать обычную форму, приходит нормальный ответ
> от сервера.

Нормальный — это какой?

POST запрос при помощи WinInet Найти похожие ветки