Скачать: CL | DM;

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]

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

---

← →
Gero ©   (2006-10-31 16:30) [2]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.033 c