Форум: "Сети";
Текущий архив: 2003.11.13;
Скачать: [xml.tar.bz2];

Вниз

Генерация POST сообщений   Найти похожие ветки 

← →
DSA   (2003-09-11 16:44) [0]

Не могу получить запрос типа POST:
программа:
procedure TForm1.Button3Click(Sender: TObject);
var
Name,Flags,TargetFrameName,PostData:OleVariant;
begin
Name:=" http://www.???.ru/login.php?CCHK=1";
Flags:=0;
TargetFrameName:=NULL;
PostData:="?????";
WebBrowser1.Navigate2(Name,Flags,TargetFrameName,PostData,EmptyParam);

---

← →
DSA   (2003-09-14 11:34) [1]

Уточняю проблему : необходимо дать POST, а приведенный фрагмент почему-то генерирует запрос GET. Так-как на форме имееться сложная обработка "кук" то переходить на более низкий уровени оброботки запроса не хочется.

---

← →
Snake2000   (2003-09-14 17:38) [2]

Вот это в моей проге работает СТОПУДОВО


procedure Post_Request;
var
strData: string;
PostData: OleVariant;
Headers: OleVariant;
l: Integer;
begin

strData := "name=" + HTTPEncode(param_1) + "&" + "mesg=" + HttpEncode(param_2);
PostData := VarArrayCreate([0, Length(strData) - 1], varByte);
for l := 1 to Length(strData) do
PostData[l-1] := Ord(strData[l]);
Headers := "Content-Type: application/x-www-form-urlencoded" + #10#13;
WebBrowser1.Navigate(" http://site.ru/script.asp", EmptyParam, EmptyParam, PostData, Headers);
end;



---

← →
SPeller   (2003-09-14 18:38) [3]

> переходить на более низкий уровени оброботки запроса не
> хочется

Не намного ниже оно будет. Зато все нюансы общения с с сервером будут учтены.

---

← →
SDF   (2003-09-15 06:34) [4]

Люди добрые, подмогните.
ДАй те ссылочку на доку по этим функциям. ЖЕлаемо по русски.
Заранее благодарный

---

← →
DSA   (2003-09-17 13:49) [5]

Спасибо, побегу проверять!

---

← →
Saint_Byte   (2003-09-18 18:50) [6]

Дык народ что там про ссылочку

---

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

Форум: "Сети";
Текущий архив: 2003.11.13;
Скачать: [xml.tar.bz2];

Наверх

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