Delphirus - прграммирование на delphi
   Все о delphi Delphirus - прграммирование на delphi
blocks.gif
Навигация
 

Главная
Статьи
Базы данных
Графика
Защита
Интернет
Система
Тексты
Мультимедиа
Файлы
Формы и окна
Другое
Советы
Базы данных
Графика
Интернет
Мультимедиа
Система
Тексты
Файлы
Файлы
Исходники
Компоненты
Инфо
Поиск по сайту
Обратная связь
Самое популярное
Аккаунт
Карта сайта

 
 
 

Советы по delphi \ Интернет и сети \ Браузер \ Передача на сервер данных методом POST с помощью компоненты TWebBrowser

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

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Передача на сервер данных методом POST с помощью компоненты TWebBrowser

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

Зависимости: Variants, Forms, SHDocVw
Автор:       Евгений Пелега, drpass@mail.ru, Донецк
Copyright:   Евгений Пелега
Дата:        26 апреля 2002 г.
***************************************************** }

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;

Название: Передача на сервер данных методом POST с помощью компоненты TWebBrowser
Дата публикации: 2004-09-02 (3101 Прочтено)

 
 

 

Page generation 0.027 seconds