VPF::Post-запрос и все-все-все - Форум программистов

RockClimber

Дата 25.1.2009, 22:11 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 848
Регистрация: 5.5.2006
Где: планета 013 в тен туре

Репутация: нет
Всего: 15

Я сетями и интернетом никогда не интересовался (в плане программирования). А тут приспичило...
Надо сделать программку: компонент TWebBrowser на форме должен отправить post-запрос и отобразить страницу, которая придет в ответ. Я не прошу код писать (но если в три строчки можно уложиться - то почему бы и нет). Просто пните в нужном направлении - где что почитать на эту тему и какие еще компонеты могут понадобиться.
Заранее спасибо.

--------------------

Хорошо кинутый дятел далеко летит, крепко встревает, долго торчит.

Virtuals

Дата 26.1.2009, 06:46 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 476
Регистрация: 27.11.2006

Репутация: 2
Всего: 11

RockClimber,
у меня там примеры лежат smile

\Delphi6\Demos\CoolStuf

//

Код


procedure TForm1.Start1Click(Sender: TObject);
var
  Flags: OLEVariant;

begin
  Flags := 0;
  WebBrowser1.Navigate(WideString(Edit1.Text), Flags, Flags, Flags, Flags);
end;

procedure TForm1.Stop1Click(Sender: TObject);
begin
  WebBrowser1.Stop;
end;

ЗЫ
ну почему никто никогда не пользуется демками, предустановленными вместе с дельфи smile

папки в каталоге дельфи
Demos
Help

Это сообщение отредактировал(а) Virtuals - 26.1.2009, 06:54

RockClimber

Дата 26.1.2009, 09:41 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 848
Регистрация: 5.5.2006
Где: планета 013 в тен туре

Репутация: нет
Всего: 15

Цитата(Virtuals @ 26.1.2009, 06:46

)

ну почему никто никогда не пользуется демками, предустановленными вместе с дельфи
папки в каталоге дельфи

Хотя бы потому, что я слабо представляю себе, что такое post-запрос. Подошел ко мне знакомый админ и попросил примерно то, что я в первом посте написал. Он ни в зуб ногой в программировании, я - в сетях. Ну посмотрел бы я примеры, но вот что в строчке

Код


WebBrowser1.Navigate(WideString(Edit1.Text), Flags, Flags, Flags, Flags);

WideString(Edit1.Text) - это и есть место, куда этот самый запрос писать, ни за что бы не догадался. Но за ответ спасибо.

Добавлено через 1 минуту и 22 секунды
Хотя нет, если бы в комментах было написано, что WideString(Edit1.Text) - это post-запрос, то догадался бы...

--------------------

Хорошо кинутый дятел далеко летит, крепко встревает, долго торчит.

Virtuals

Дата 27.1.2009, 09:12 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 476
Регистрация: 27.11.2006

Репутация: 2
Всего: 11

Цитата(RockClimber @ 26.1.2009, 09:41

)

WideString(Edit1.Text) - это и есть место, куда этот самый запрос писать, ни за что бы не догадался. Но за ответ спасибо.Добавлено через 1 минуту и 22 секундыХотя нет, если бы в комментах было написано, что WideString(Edit1.Text) - это post-запрос, то догадался бы...

неверно!. туда пишут адрес, а пост...
думаю и заголовок тебе тоже может понадобится в будущем (ну там куки или еще чего)...Headers!!!

Цитата

Navigates to a resource identified by a path name or URL.

procedure Navigate(const URL: WideString); overload;
procedure Navigate(const URL: WideString; var Flags: OleVariant); overload;
procedure Navigate(const URL: WideString; var Flags: OleVariant; var TargetFrameName: OleVariant); overload;
procedure Navigate(const URL: WideString; var Flags: OleVariant; var TargetFrameName: OleVariant; var PostData: OleVariant); overload;

procedure Navigate(const URL: WideString; var Flags: OleVariant; var TargetFrameName: OleVariant; var PostData: OleVariant; var Headers: OleVariant); overload;

Description

Use Navigate to locate and download a specific resource. Navigate can send an HTTP message to a specified URL and display the results or simply display the results of a specified file.

URL specifies the UNC path name of a file or the Uniform Resource Locator of an Internet resource that the Web browser should display.

Flags is a set of values that specify whether to add the resource to the history list, whether to read from or write to the cache, and whether to display the resource in a new window. It can be a sum of zero or more of the following:

Constant    Value    Meaning

navOpenInNewWindow    1    Open the resource or file in a new window.
navNoHistory    2    Do not add the resource or file to the history list. The new page replaces the current page in the list.
navNoReadFromCache    4    Do not read from the disk cache for this navigation.
navNoWriteToCache    8    Do not write the results of this navigation to the disk cache.
navAllowAutosearch    16    If the navigation fails, the Web browser attempts to navigate common root domains (.com, .edu, and so on). If this still fails, the URL is passed to a search engine.

TargetFrameName is the name of the frame in which the resource will be displayed, or NULL if the resource should not be displayed in a named frame.

PostData contains the data sent to the server when using Navigate to generate an HTTP POST message. If PostData is NULL, Navigate generates an HTTP GET message. PostData is ignored if URL does not specify an HTTP URL.

Headers contains any headers sent to the servers when the URL represents an HTTP URL. HTTP headers specify such things as the intended action required of the server, the type of data, and so on. (See TWebRequest object, whose properties represent many of the more common headers).

Note:    To navigate to a location that can’t be expressed as an URL (for example, to an item identifier list), use the Navigate2 method instead.

ЗЫ иногда ctrl+F1 по процедуре, незаменимая вещь
PSPS а вот поиск точно никто не отменял

http://www.delphisources.ru/pages/faq/base..._post_data.html

Это сообщение отредактировал(а) Virtuals - 27.1.2009, 09:26

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »