Мне необходимо, используя в Делфе компонент 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;
|
не выполняеться вообще!
Подскажите, в чем проблема   
|