» Главная
eXcode.ru » Статьи » Delphi/Pascal » Сеть
» Новости
» Опросы
» Файлы
» Журнал



Пользователей: 0
Гостей: 15





Передача на сервер данных методом POST с помощью компонента TWebBrowser




Источник: klsoft.com.ru

Для тестирования этого примера просто создайте новую форму и киньте на нее TWebBrowser.
Функция имеет два параметра - в первом просто передаются данные для отправки, а во втором - URL.
Для версий Delphi3 и Delphi4, где WebBrowser изначально отсутствует на Палитре, его нужно проинсталлировать через меню Components->Import ActiveX Control

<table class=code cellpadding=5 align=center width=98% border=1 bordercolor=#3B3B3B><tr><td>
procedure TForm1.PostWithWebBrowser(PostString:string; URL:OleVariant);
var
Data: Pointer;
PostData: OleVariant;
Flags, TargetFrame, Headers: OleVariant;
begin
PostData := VarArrayCreate([0, Length(PostString) - 1], varByte);
Data := VarArrayLock(PostData);
try
Move(PostString[1], Data^, Length(PostString));
finally
VarArrayUnlock(PostData);
end;
Flags := EmptyParam;
TargetFrameName := EmptyParam;
Headers := EmptyParam;
WebBrowser1.Navigate2(URL, Flags, TargetFrame, PostData, Headers);
end;
</td></tr></table>
К началу статьи





Добавил: LedWormДата публикации: 2005-07-28 21:06:32
Рейтинг статьи:1.00 [Голосов 2]Кол-во просмотров: 14092

Комментарии читателей

Всего комментариев: 0
Ваше имя: *
Текст записи: *
Имя:

Пароль:



Регистрация

Что для вас важнее в ПО
Его размер
7% (9)
Его цена
7% (8)
Его простота и доступность
17% (20)
Его функциональность
64% (77)
Наличие дополнительных фич
0% (0)
Наличие русского языка
5% (6)
Графицеский интерфейс
1% (1)
Изготовитель
0% (0)

Проголосовало: 121
Жена пpогpаммеpа говоpит мужу:
- Доpогой, я хочу pебенка!
- Ложись, ща пpоинсталлиpуем!
Рейтинг: 8.5/10 (6)
Посмотреть все анекдоты