Delphi XE2 и UrlMkSetSessionOption - Общие вопросы Delphi

bakanaev · 07.09.2012, 06:20

Моя цель сменить User-Agent у TWebBrowser.
Делаю так

Код:

UserAgent:='NokiaN70-1/5.0 Series60/2.8 Profile/MIDP-2.0 Configuration/CLDC-1.1';
  UrlMkSetSessionOption(URLMON_OPTION_USERAGENT, PansiChar(UserAgent), Length(UserAgent), 0);

Но при отсылки запроса получается так

Код:

User-Agent: N

В чем может быть причина?

bakanaev · 07.09.2012, 15:31

что ни кто не знаю?

GunSmoker · 07.09.2012, 15:55

А тебе компилятор разве на это: PansiChar(UserAgent) ничего не говорит?

bakanaev · 07.09.2012, 16:24

Цитата:

Сообщение от GunSmoker

А тебе компилятор разве на это: PansiChar(UserAgent) ничего не говорит?

нет. Я пробовал и просто Char, результат идентичен

GunSmoker · 07.09.2012, 16:44

Попробуй тип UserAgent поменять на AnsiString.

07.09.2012, 06:20	#1
bakanaev Форумчанин Регистрация: 27.03.2012 Сообщений: 438	Delphi XE2 и UrlMkSetSessionOption Моя цель сменить User-Agent у TWebBrowser. Делаю так Код: `UserAgent:='NokiaN70-1/5.0 Series60/2.8 Profile/MIDP-2.0 Configuration/CLDC-1.1'; UrlMkSetSessionOption(URLMON_OPTION_USERAGENT, PansiChar(UserAgent), Length(UserAgent), 0);` Но при отсылки запроса получается так Код: `User-Agent: N` В чем может быть причина?

07.09.2012, 15:55	#3
GunSmoker Старожил Регистрация: 13.08.2009 Сообщений: 2,581	А тебе компилятор разве на это: PansiChar(UserAgent) ничего не говорит? Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.

07.09.2012, 16:44	#5
GunSmoker Старожил Регистрация: 13.08.2009 Сообщений: 2,581	Попробуй тип UserAgent поменять на AnsiString. Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
UrlMkSetSessionOption Delphi XE2	bakanaev	Общие вопросы Delphi	2	06.09.2012 10:46
Активация Delphi XE2	Zis67	Общие вопросы Delphi	1	09.05.2012 21:24
Delphi XE2	TorrentTor	Общие вопросы Delphi	4	05.12.2011 19:06
Embarcadero Delphi XE2 Partner DVD (Зборник компонентов для XE2)	volod3000	Софт	2	01.11.2011 02:26
Delphi XE2 Pulsar	Rik	Софт	6	15.09.2011 11:18

07.09.2012, 15:31	#2
bakanaev Форумчанин Регистрация: 27.03.2012 Сообщений: 438	что ни кто не знаю?