|
24.11.2008, 07:39
|
#1
|
Разработчик
Регистрация: 24.11.2008
Адрес: UA
Сообщений: 504
Написано 110 полезных сообщений (для 225 пользователей)
|
Работа с http... помогите!
У меня MIDletPascal2 с русским хэлпом и там есть пункт HTTP:связь в нем следующее:
MIDletPascal предоставляет базовые вазможности для работы с HTTP. Соединения HTTP идентифицируются переменными соответствующего типа, 'http'. У HTTP следующий жизненный цикл:
· открытие подключения к удалённому web-серверу
· установка метода запроса http
· добавление полей-заголовков запроса (необязательно)
· добавление данных в тело запроса (только в случае, если запрос имеет тип POST)
· отправка запроса и ожидание ответа от сервера
· получение желаемых полей-заголовков из ответа
· получение данных ответа
· закрытие соединения
Следующий пример демонстрирует возможности соединения по HTTP:
var conn: http;
htmlBody: string;
contentType: string;
begin
if not openHttp(conn, 'http://www.google.com') then halt;
setHttpMethod(conn, GET);
addHttpHeader(conn, 'User-agent', 'MIDletPascal browser');
if sendHttpMessage(conn) <> 200 then halt;
htmlBody := getHttpResponse(conn);
contentType := getHttpHeader(conn, 'Content-type');
closeHttp(conn);
end.
Пытаюсь обменяться данными с сайтом - ноль результата . В чем дело? Расстолкуйте плз!
|
(Offline)
|
|
25.11.2008, 11:11
|
#2
|
AnyKey`щик
Регистрация: 25.09.2007
Сообщений: 8
Написано одно полезное сообщение (для 2 участников)
|
Re: Работа с http... помогите!
а кто модифицировать пример будет?
надо хотябы так:
var conn: http; htmlBody: string; contentType: string; begin if not openHttp(conn, 'http://www.google.com') then halt; setHttpMethod(conn, GET); addHttpHeader(conn, 'User-agent', 'MIDletPascal browser'); if sendHttpMessage(conn) <> 200 then halt; htmlBody := getHttpResponse(conn); contentType := getHttpHeader(conn, 'Content-type'); // drawtext(htmlBody,0,0); repaint; // closeHttp(conn); end.
|
(Offline)
|
|
Сообщение было полезно следующим пользователям:
|
|
26.11.2008, 01:46
|
#3
|
Оператор ЭВМ
Регистрация: 11.11.2007
Сообщений: 26
Написано 6 полезных сообщений (для 10 пользователей)
|
Ответ: Работа с http... помогите!
Вот рабочий код:
var conn: http; htmlBody: string; contentType: string; i: integer; begin if not openHttp(conn, 'http://www.s-c.ru') then halt; setHttpMethod(conn, GET); addHttpHeader(conn, 'User-agent', 'MIDletPascal browser'); i:=sendHttpMessage(conn); i:=formaddstring('code: '+i+chr(10)); htmlBody := getHttpResponse(conn); contentType := getHttpHeader(conn, 'Content-type'); i:=formaddstring(htmlBody); showform; closeHttp(conn); delay(20000); end.
ЗЫ: При подключении к http://www.boolean.name выдает ошибку 302. Аналогично http://www.google.com , а http://www.google.ru нормально (т.е. код 200).
|
(Offline)
|
|
Эти 4 пользователя(ей) сказали Спасибо vitalik1 за это полезное сообщение:
|
|
26.11.2008, 08:50
|
#4
|
Мастер
Регистрация: 06.09.2007
Адрес: Донецк, ДНР
Сообщений: 1,023
Написано 298 полезных сообщений (для 713 пользователей)
|
Ответ: Работа с http... помогите!
Нужно прописывать полный путь включая название индексной странички. Тогда будет работать. Т.е. скажем, вместо http://www.boolean.name пишем http://www.boolean.name/index.php ну или другое название. Смотря по сайту.
|
(Offline)
|
|
Эти 3 пользователя(ей) сказали Спасибо odd за это полезное сообщение:
|
|
26.11.2008, 17:25
|
#5
|
Элита
Регистрация: 14.06.2008
Адрес: Украина, Киев
Сообщений: 2,273
Написано 754 полезных сообщений (для 1,833 пользователей)
|
Ответ: Работа с http... помогите!
302 - это не ошибка. Это переадресация, вроде.
|
(Offline)
|
|
27.11.2008, 05:42
|
#6
|
Разработчик
Регистрация: 24.11.2008
Адрес: UA
Сообщений: 504
Написано 110 полезных сообщений (для 225 пользователей)
|
Работа с http... помогите!
Сообщение от vitalik1
Вот рабочий код:
i:=formaddstring(htmlBody); showform;
|
О! пасиб, эт то че надо... по другому не выходит... Ток вот как картинку загрузить с инета и возможно ли такое? (ну допустим ту же PNG)
|
(Offline)
|
|
27.11.2008, 17:53
|
#7
|
Модератор
Регистрация: 03.04.2007
Сообщений: 2,252
Написано 597 полезных сообщений (для 817 пользователей)
|
Ответ: Работа с http... помогите!
Есть такая либа, не помню где, должна быть в списке библиотек.
|
(Offline)
|
|
30.11.2008, 19:16
|
#8
|
Разработчик
Регистрация: 16.08.2008
Адрес: Нижегородская провинция
Сообщений: 389
Написано 48 полезных сообщений (для 93 пользователей)
|
Ответ: Работа с http... помогите!
Как правильно перекодировать win 1251 чтобы приходимая информация с сайта отображала русские буквы(желательно пример).
|
(Offline)
|
|
01.01.2009, 22:14
|
#9
|
Знающий
Регистрация: 29.07.2008
Адрес: Россия,Саратов
Сообщений: 206
Написано 22 полезных сообщений (для 33 пользователей)
|
Ответ: Работа с http... помогите!
парни. А как вивести странишу, т.е штоб вместо кода, выводилась полностью раочая страница
|
(Offline)
|
|
02.01.2009, 16:15
|
#10
|
Оптимист
Регистрация: 07.01.2006
Сообщений: 961
Написано 105 полезных сообщений (для 259 пользователей)
|
Ответ: Работа с http... помогите!
Сообщение от GRAY_WOLF
Как правильно перекодировать win 1251 чтобы приходимая информация с сайта отображала русские буквы(желательно пример).
|
Пользуйтесь, пожалуйста поиском.
http://forum.boolean.name/showthread.php?t=4176
|
(Offline)
|
|
02.01.2009, 16:17
|
#11
|
Оптимист
Регистрация: 07.01.2006
Сообщений: 961
Написано 105 полезных сообщений (для 259 пользователей)
|
Ответ: Работа с http... помогите!
Сообщение от TEMNED
парни. А как вивести странишу, т.е штоб вместо кода, выводилась полностью раочая страница
|
Спроси на opera.com или mozilla.com. Ну на крайний случай microsoft.com
|
(Offline)
|
|
Эти 4 пользователя(ей) сказали Спасибо Piligrim за это полезное сообщение:
|
|
24.02.2009, 09:12
|
#12
|
AnyKey`щик
Регистрация: 24.02.2009
Сообщений: 1
Написано 0 полезных сообщений (для 0 пользователей)
|
Ответ: Работа с http... помогите!
Подскажите пожалуйста, что за ошибка - "Отсутствуют обязательные атрибуты" ?
Она возникает когда вот эту программу устанавливаю на телефоне:
program Form;
var conn: http;
htmlBody: string;
contentType: string;
begin
if not openHttp(conn, 'http://www.google.com') then halt;
setHttpMethod(conn, GET);
addHttpHeader(conn, 'User-agent', 'MIDletPascal browser');
if sendHttpMessage(conn) <> 200 then halt;
htmlBody := getHttpResponse(conn);
contentType := getHttpHeader(conn, 'Content-type');
closeHttp(conn);
end.
|
(Offline)
|
|
02.03.2009, 11:57
|
#13
|
AnyKey`щик
Регистрация: 09.01.2009
Сообщений: 8
Написано одно полезное сообщение
|
Ответ: Работа с http... помогите!
Сообщение от TEMNED
парни. А как вивести странишу, т.е штоб вместо кода, выводилась полностью раочая страница
|
не ну это конешно возможно,есть же браузеры для мобил,таже опера мини к примеру.но тут надо яву учить
|
(Offline)
|
|
02.03.2009, 18:36
|
#14
|
Модератор
Регистрация: 03.04.2007
Сообщений: 2,252
Написано 597 полезных сообщений (для 817 пользователей)
|
Ответ: Работа с http... помогите!
Сообщение от liery
не ну это конешно возможно,есть же браузеры для мобил,таже опера мини к примеру.но тут надо яву учить
|
На сколько мне известно, опера мини сама код html не разбирает - она посылает запрос прокси-серверу, он скачивает страницу, разбирает её и передает опере уже обработанные и сжатые бинарные данные.
|
(Offline)
|
|
06.03.2009, 14:43
|
#15
|
Оператор ЭВМ
Регистрация: 30.01.2009
Сообщений: 41
Написано одно полезное сообщение (для 5 участников)
|
Ответ: Работа с http... помогите!
Согласен тама даже в хелпе указано! Могила долего смотреть влом помоему в obml приходят паги а модовские oms пытался нотпадом ковырять,хтмл кода не видать такшто согласен на 100% с постом выше
__________________
MPCoder
V_V
|
(Offline)
|
|
Ваши права в разделе
|
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения
HTML код Выкл.
|
|
|
Часовой пояс GMT +4, время: 01:34.
|