Генерация 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]

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

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

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

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

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