Delphi World - Передача на сервер данных методом POST с помощью компоненты TWebBrowser
Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Передача на сервер данных методом POST с помощью компоненты TWebBrowser

Автор: Евгений Пелега
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;
Проект Delphi World © Выпуск 2002 - 2017
Автор проекта: Эксклюзивные курсы программирования