TWebBrowser. Доступ к заголовкам.

← →
GraySE (2008-07-22 13:43) [0]

Задача слудующая: мне нужно определить поля:
User-agent:
Accept-Language:
Которые браузер передаёт на сервер при каждом запросе. Как это сделать?
Мои догадки - что сделать это можно по средствам парсинга самих заголовков. Но доя этого, необходимо как то получить к ним доступ.
Возможно ли это?

← →
Vlad Oshin © (2008-07-25 10:11) [1]

а так не работает?

procedure TForm3.Button1Click(Sender: TObject);
var
URL: OleVariant;
Flags: OleVariant;
TargetFrameName: OleVariant;
PostData: OleVariant;
Headers: OleVariant;
begin
URL:="http://www.delphimaster.ru";
Flags:=2;
TargetFrameName:=Null;
PostData:=Null;
Headers:="Connection: keep-alive"#10"Content-Type: text/html"#10"Accept-Language: ru"#10"Accept: text/html, */*"#10"User-Agent: Mozilla/3.0"#10;
WebBrowser1.Navigate2(URL,Flags,TargetFrameName,PostData,Headers);
end;

procedure TForm3.WebBrowser1BeforeNavigate2(ASender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
begin
memo1.Lines.Add(Headers);
end;

TWebBrowser. Доступ к заголовкам. Найти похожие ветки