| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Генерация POST сообщений [D7]
DSA © (2003-09-11 16:44:00)
Не могу получить запрос типа 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);
Saint_Byte (2003-09-18 18:50:00) [1]
Дык народ что там про ссылочку
DSA (2003-09-17 13:49:00) [2]
Спасибо, побегу проверять!
SDF (2003-09-15 06:34:00) [3]
Люди добрые, подмогните.
ДАй те ссылочку на доку по этим функциям. ЖЕлаемо по русски.
Заранее благодарный
SPeller (2003-09-14 18:38:00) [4]
> переходить на более низкий уровени оброботки запроса не
> хочется
Не намного ниже оно будет. Зато все нюансы общения с с сервером будут учтены.
Snake2000 (2003-09-14 17:38:00) [5]Вот это в моей проге работает СТОПУДОВО
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;
DSA (2003-09-14 11:34:00) [6]
Уточняю проблему : необходимо дать POST, а приведенный фрагмент почему-то генерирует запрос GET. Так-как на форме имееться сложная обработка "кук" то переходить на более низкий уровени оброботки запроса не хочется.
| |
