Введите условия поиска Отправить форму поиска
	Web www.delphisources.ru

Автор: Евгений Пелега
WEB-сайт: http://delphibase.endimus.com

{ **** 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;