Передача на сервер данных методом POST с помощью компоненты TWebBrowserDelphi , Интернет и Сети , БраузерПередача на сервер данных методом 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 раздела Интернет и Сети Браузер может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |