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



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





Передача на сервер данных методом 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]Кол-во просмотров: 14175

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

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

Пароль:



Регистрация

Как вы относитесь к AJAX?
Считаю это ЗЛОМ
11% (12)
Бесполезная технология
2% (2)
Мне параллельно
9% (10)
Неплохая технология
20% (23)
Рулез, как я без нее жил!
7% (8)
Я разработчик AJAX-приложений
5% (6)
А что? Хороший футбольный клуб!
12% (14)
Я в танке!!!
34% (38)

Проголосовало: 113
Заядлый компьютерщик заходит в банк снять денег. Кассирша ему:
- Сколько?
- Мне плиз 1024 рубля!
Рейтинг: 7.9/10 (8)
Посмотреть все анекдоты