Скачать: CL | DM;

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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.048 c