|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
29.01.2009, 13:33 | #1 |
Форумчанин
Регистрация: 29.01.2009
Сообщений: 411
|
Отправка POST запроса
Здравствуйте.
Есть форма: <FORM NAME="entryform" METHOD="post" ACTION="/db/login.php"> <INPUT TYPE="text" NAME="username" SIZE=20 VALUE=""> <INPUT TYPE="password" NAME="password" SIZE=20> <INPUT TYPE="submit" VALUE="Войти"> <INPUT TYPE="button" VALUE="Отменить" onClick="javascript: history.go(-1)"> </FORM> Пишу программку которая автоматически авторизуется на сайте. Использую WebBrowser function Str2Variant(S:string):OleVariant; var Data:Pointer; begin Result:=VarArrayCreate([0,Length(S)],varByte); Data:=VarArrayLock(Result); try Move(S[1],Data^,Length(S)); finally VarArrayUnlock(Result); end; Result[Length(S)]:=0; end; procedure TForm1.Button1Click(Sender: TObject); var URL,Flags,TargetFrameName,PostData, Headers:OleVariant; begin PostData:=Str2Variant('username=nam e&password=pass'); URL:='http://www.site.ru/db/login.php'; Flags:=EmptyParam; TargetFrameName:=EmptyParam; Headers:='Content-Type: application/x-www-form-urlencoded'#10#13; WebBrowser1.Navigate(URL, Flags, TargetFrameName, PostData, Headers); end; Но авторизация не проходит. Подскажите пожалуйста где моя ошибка. Спасибо. Последний раз редактировалось S@fer; 29.01.2009 в 13:39. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Отправка файла POST-запросом на PHP-скрипт... | ActiveX | Работа с сетью в Delphi | 7 | 20.07.2009 16:54 |
WebBrowser POST | micq | Компоненты Delphi | 5 | 19.09.2008 21:37 |
Отправк Post запроса на wap сайт | Prototype | Работа с сетью в Delphi | 6 | 23.06.2008 13:45 |
POST | Stanislav | Работа с сетью в Delphi | 3 | 03.03.2008 18:05 |
HTTPS и POST | Alex_C | Работа с сетью в Delphi | 4 | 25.10.2007 21:04 |