|
Вопрос # 4 128/ вопрос открыт / |
|
Здравствуйте!
Как перетряхнуть это в человеческий-дельфиний язык?
Маза такая, надо на сервак отправить пост запрос:
browserData=(код ниже...)
Как составить так чтобы дельфи не ругался что это за хрень, я ему пытаюсь скармить. Короче эт инфо о железе...
За ответы Спасибо!!!
Приложение: Переключить в обычный режим- screen--`availHeight`:`743`,`availWidth`:`1024`,`colorDepth`:`32`,`height`:`768`,`pixelDepth`:`32`,`width`:`1024`
- navigator--`appCodeName`:`Mozilla`,`appMinorVersion`:``,`appName`:`Opera`,`appVersion`:`9.80
(Windows NT 5.1; U;
ru)`,`browserLanguage`:`ru`,`cookieEnabled`:`true`,`language`:`ru`,`onLine`:`true`,`platform`:`Win32`,`userAgent`:`Opera/9.80
(Windows NT 5.1; U; ru) Presto/2.5.22 Version/10.51`,`userLanguage`:`ru`
- flash--`version`:`10.0.45`
-
-
 |
Вопрос задал: Ximer (статус: Посетитель)
Вопрос отправлен: 7 мая 2010, 06:38
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: min@y™
const
Request = 'screen--`availHeight`:`743`,`availWidth`:`1024`,`colorDepth`:`32`,' +
'`height`:`768`,`pixelDepth`:`32`,`width`:`1024`' +
'navigator--`appCodeName`:`Mozilla`,`appMinorVersion`:``,`appName`:' +
'`Opera`,`appVersion`:`9.80 (Windows NT 5.1; U; ru)`,' +
'`browserLanguage`:`ru`,`cookieEnabled`:`true`,`language`:`ru`,' +
'`onLine`:`true`,`platform`:`Win32`,`userAgent`:`Opera/9.80 ' +
'(Windows NT 5.1; U; ru) Presto/2.5.22 Version/10.51`,`userLanguage`:`ru`' +
'flash--`version`:`10.0.45`';
begin
Data:= TStringList.Create();
try
Data.Add('browserData=' + Request); //Здесь это должно передаться, но я не знаю как надо оформить...
Form1.IdHTTP1.Post('http://', Data);
finally
Data.Free();
end;
end;
 |
Ответ отправил: min@y™ (статус: Доктор наук)
Время отправки: 8 мая 2010, 11:15
Оценка за ответ: 5
Комментарий к оценке: Спасибо!
|
Мини-форум вопроса
Всего сообщений: 4; последнее сообщение — 7 мая 2010, 17:02; участников в обсуждении: 2.
|
|
min@y™ (статус: Доктор наук), 7 мая 2010, 08:18 [#1]:
Цитата (Ximer):
Как составить так чтобы дельфи не ругался что это за хрень
Ошибка в 13-й строке.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Ximer (статус: Посетитель), 7 мая 2010, 08:28 [#2]:
Опять ты шутишь? =)
browserData
screen--`availHeight`:`743`,`availWidth`:`1024`,`colorDepth`:`32`,`height`:`768`,`pixelDepth`:`32`,`width`:`1024`
navigator--`appCodeName`:`Mozilla`,`appMinorVersion`:``,`appName`:`Opera`,`appVersion`:`9.80 (Windows NT 5.1; U;
ru)`,`browserLanguage`:`ru`,`cookieEnabled`:`true`,`language`:`ru`,`onLine`:`true`,`platform`:`Win32`,`userAgent`:`Opera/9.80
(Windows NT 5.1; U; ru) Presto/2.5.22 Version/10.51`,`userLanguage`:`ru`
flash--`version`:`10.0.45`
Это надо отправить на сервак , вопрос в том как это составить для удачного отправления.
Это для отправки на сервак постом...
|
|
|
min@y™ (статус: Доктор наук), 7 мая 2010, 09:44 [#3]:
Цитата (Ximer):
Опять ты шутишь? =)
Не шучу ни разу. "Ошибка в 13-й строке" - стандартный ответ на вопрос, в котором от автора требовалось информация об ошибке и/или кусок кода, но эта информация предоставлена не была.
Короче: ЧТО ЗА ОШИБКА-ТО?! Переменная brewserData какой тип имеет?!
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Ximer (статус: Посетитель), 7 мая 2010, 17:02 [#4]:
Да ошибки нету! Я просто не знаю как передать эти данные...
Это всё отправляется пост запросом:
Data:=TStringList.Create;
Data.Add('browserData='); //Здесь это должно передаться, но я не знаю как надо оформить...
Form1.IdHTTP1.Post('http://', Data);
Data.Free;
Насколько пятно это разрешение экрана, инфо о железе и месте его расположения, и версия flash
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
