Форум: "Сети";
Текущий архив: 2007.04.29;
Скачать: [xml.tar.bz2];
Вниз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 вся ветка
Форум: "Сети";
Текущий архив: 2007.04.29;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.046 c