VPF::Как в TWebBrowser получить только Header ответа

haker-kirik

Дата 20.12.2006, 22:24 (ссылка)

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

Загрузка ...

Новичок

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

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

Мне необходимо, используя в Делфе компонент TWebBrowser, при вызове метода Navigate:

Код


WebBrowser1.Navigate('http://www.site.com/index.html', Flags, TargetFrameName, PostData, Headers);

получить значение Headers, т.е. заголовок ответа с сервера, после которого уже идёт сама веб страница. Пишу так :

Код


var Flags, TargetFrameName, PostData, Headers: OleVariant;

...

procedure TForm1.Button1Click(Sender: TObject);
begin
 Headers:=EmptyParam;
 Flags:=EmptyParam;
 TargetFrameName:=EmptyParam;
 PostData:=EmptyParam;
 WebBrowser1.Navigate('http://www.site.com/index.html', Flags, TargetFrameName, PostData, Headers);
end;

procedure TForm1.WebBrowser1ProgressChange(Sender: TObject; Progress, ProgressMax: Integer);
begin
 if not VarIsEmptyParam(Headers) then
  begin
   WebBrowser1.Stop;
   ...
   ...
   button1.Caption:='DONE!';
  end;
end;

И у меня постоянно Headers равен EmptyParam, т.е. код

Код


  begin
   WebBrowser1.Stop;
   ...
   ...
   button1.Caption:='DONE!';
  end;

не выполняеться вообще!

Подскажите, в чем проблема smile

Sergey912

Дата 7.1.2007, 09:54 (ссылка)

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

Загрузка ...

Бывалый

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

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

Видимо в том, что в Navigate нужно передавать заголовки на сервер, а не наоборот.

Цитата

[in] Pointer to a value that contains the HTTP headers to send to the server. These headers are added to the default Microsoft Internet Explorer headers. The headers can specify things such as the action required of the server, the type of data being passed to the server, or a status code. This parameter is ignored if URL is not an HTTPURL.

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