|
Загрузка с http
|
|
|
01.01.2009 в 18:34
Сообщение #1
|
|
12121
Программист
Проверенные
Сообщений: 357
Offline
|
Как загрузить страничку с сайта. По справке разобраться не выходит. Если можно маленький работающий пример.
|
|
|
|
|
01.01.2009 в 21:15
Сообщение #2
|
|
admin
Admin
Администраторы
Сообщений: 244
Offline
|
Program net;
var conn: http;
htmlBody: string;
contentType: string;
i: integer;
begin
if not openHttp(conn, 'http://www.mobilepascal.ucoz.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.
Попробуй
|
|
|
|
|
01.01.2009 в 21:25
Сообщение #3
|
13Get
Новичок
Пользователи
Сообщений: 19
Offline
|
12121, а you попробуй пример ннаа мобиле
|
|
|
|
|
02.01.2009 в 21:30
Сообщение #4
|
|
12121
Программист
Проверенные
Сообщений: 357
Offline
|
Спасибо вечером попробую Добавлено (02.01.2009, 21:30)
---------------------------------------------
Все прекрасно загрузилось. Еще раз спасибо.
|
|
|
|
|
09.01.2009 в 11:01
Сообщение #5
|
|
programmer
Умный
Проверенные
Сообщений: 599
Offline
|
Quote (ADMIN) Program net; var conn: http; htmlBody: string; contentType: string; i: integer; begin if not openHttp(conn, 'http://www.mobilepascal.ucoz.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.
Это конешно хорошо,осталось только хтмл парсер на мидлет паскале написать... 
Ну или хотя бы wml парсер ...
На эмуляторе работает,на мобиле нет 
Пишет недопустимое приложение...
Сообщение отредактировал programmer - Пятница, 09.01.2009, 12:59
|
|
|
|
|
09.01.2009 в 18:27
Сообщение #6
|
|
admin
Admin
Администраторы
Сообщений: 244
Offline
|
А какая у тя мобила? 12121 говорит, що все хорошо
|
|
|
|
|
10.01.2009 в 13:51
Сообщение #7
|
|
programmer
Умный
Проверенные
Сообщений: 599
Offline
|
У меня нокиа,странно другие проги которые с интернетом соединяются - работают
опера мини к примеру а эта нет Попробую через lib_web
|
|
|
|
|
10.02.2009 в 12:45
Сообщение #8
|
|
programmer
Умный
Проверенные
Сообщений: 599
Offline
|
А можно так картинку загрузить и показать?
|
|
|
|
|
24.02.2009 в 09:17
Сообщение #9
|
|
moonman
Удаленные
|
Люди подскажите что делать, не могу попороть ошибку - Отсутствует обязательный атрибут.
Ошибка возникает когда устанавливаешь аплет на телефоне (эн73), вот сам текст (из букваря):
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.
|
|
|
|
|
24.02.2009 в 12:15
Сообщение #10
|
|
12121
Программист
Проверенные
Сообщений: 357
Offline
|
Зачем тебе голову морочить ? Пример из второго сообщения отлично устанавливается и работает .
|
|
|
|
