Недавно добавленные исходники

•  3D Designer  81

•  Sik Screen Capture  65

•  Patch Maker  62

•  Айболит (remote control)  72

•  ListBox Drag & Drop  62

•  Доска для игры Реверси  896

•  Графические эффекты  70

•  Рисование по маске  50

•  Перетаскивание изображений  57

•  Canvas Drawing  53

•  Рисование Луны  134

•  Поворот изображения  42

•  Рисование стержней  38

•  Paint on Shape  33

•  Генератор кроссвордов  49

•  Головоломка Paletto  50

•  Теорема Монжа об окружностях  98

•  Пазл Numbrix  46

•  Заборы и коммивояжеры  67

•  Игра HIP  51

•  Игра Go (Го)  45

•  Симулятор лифта  45

•  Программа укладки плитки  47

•  Генератор лабиринта  90

•  Проверка числового ввода  38

•  HEX View  93

•  Физический маятник  96

•  Задача коммивояжера  122

•  Автомобильная пробка  46

•  Квадратные сетки из слов  40

 
скрыть


Delphi FAQ - Часто задаваемые вопросы

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



Передача на сервер данных методом 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;




Похожие по теме исходники

Передача видео по сети

Передача удаленного экрана по сети

Stud WebServer (web-сервер)

Proxy 1.0 (прокси-сервер)

 

Экспорт баз данных в Excel

База данных "Книжный магазин"

База данных Видеофильмов

База данных "Школа"

 

База данных без BDE

База данных студентов

Фильтрование данных

Pevrica (сжатие данных)

 

Сортировка методом Хоара

SiteReg LJPoster

NoNaMe Post Editor




Copyright © 2004-2021 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте   Facebook   Ссылка на Twitter