TWebBrowser. Доступ к заголовкам.
GraySE © (2008-07-22 13:43:00)
Задача слудующая: мне нужно определить поля:
User-agent:
Accept-Language:
Которые браузер передаёт на сервер при каждом запросе. Как
это сделать?
Мои догадки - что сделать это можно по средствам парсинга
самих заголовков. Но доя этого, необходимо как то получить к ним
доступ.
Возможно ли это?
Vlad Oshin (2008-07-25 10:11:00) [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;
Наверх 
ЧАТ |
Орешник |
|
