Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2013.07.21;
Скачать: CL | DM;

Вниз

Какой браузер по умолчанию, User-Agent.   Найти похожие ветки 

 
Tcount ©   (2012-11-24 22:07) [0]

Вечер добрый. Подскажите, пожалуйста, как можно определить, какой установлен браузер в системе по умолчанию? Вроде как через реестр можно, ток не знаю как.
А если уж точнее, то мне нужно узнать User-Agent браузера или его версию.


 
Tcount ©   (2012-11-24 22:31) [1]

Попробовал через TIdHTTP:
STR:=TidHTTP1.Get("http://onlinebots.net/useragent.php");
---------
Но! когда перехожу по этому адресу непосредственно через браузер, выдает:
Mozilla/5.0 (Windows NT 6.1; rv:17.0) Gecko/17.0 Firefox/17.0
А через через Delphi:
Mozilla/3.0 (compatible; Indy Library)
-----------
Почему так?


 
Tcount ©   (2012-11-24 23:37) [2]

Тупанул я...Сам же отправляю запрос со своим агентом и его же и получаю)
Неужели можно вытащить это все дело через TWebBrowser?


 
Tcount ©   (2012-11-24 23:38) [3]

В смысле, неужели только через TWebBrowser?


 
Styx   (2012-11-25 00:16) [4]

Через TWebBrowser тоже нельзя. :)


 
Tcount ©   (2012-11-25 00:22) [5]


> Через TWebBrowser тоже нельзя. :)

Ну я скрыл WebBrowser, потом написал так (WB - это WebBrowser):
---------------------------
procedure TForm1.Button1Click(Sender: TObject);
var
Doc: IHTMLDocument2;
S:string;
begin
WB.Navigate("http://onlinebots.net/useragent.php");
while WB.ReadyState<READYSTATE_COMPLETE do
begin
Application.ProcessMessages;
end;
Doc:=WB.Document as IHTMLDocument2;
s:=doc.body.innerHTML;
Memo1.Text:=s;
end;
----------------------


 
QAZ9   (2012-11-25 14:03) [6]


> Ну я скрыл WebBrowser, потом написал так (WB - это WebBrowser):

facepalm


 
DVM ©   (2012-11-25 15:06) [7]


> Tcount ©   (24.11.12 22:07) 

зачем тебе все эти пляски? Объясни.


 
Styx   (2012-11-25 21:55) [8]


> Tcount ©   (25.11.12 00:22) [5]
> Ну я скрыл WebBrowser, потом написал так

Это будет UserAgent Internet Explorer-а, а не браузера по умолчанию. Но, главное -

> DVM ©   (25.11.12 15:06) [7]
> зачем тебе все эти пляски? Объясни.


 
Palladin ©   (2012-11-27 00:33) [9]


> DVM ©   (25.11.12 15:06) [7]

Это будет новый браузер, с своим блэкджеком и шлюхами.



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

Текущий архив: 2013.07.21;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.006 c
15-1361990175
ХХХХХ
2013-02-27 22:36
2013.07.21
Как сделать паузу?


2-1353673766
AntonMos
2012-11-23 16:29
2013.07.21
daysbetween


15-1360285956
Кто б сомневался
2013-02-08 05:12
2013.07.21
Медленная отрисовка 2D GDI Windows 7 (в 4.5 раза медленнее XP)


15-1362120707
Дмитрий С2
2013-03-01 10:51
2013.07.21
Восстановление Raid0


3-1286827107
well
2010-10-11 23:58
2013.07.21
Как удалить(заменить) сообщение об удалении записи?