|
11.05.2010, 21:15
|
#1
|
Знающий
Регистрация: 25.10.2009
Сообщений: 338
Написано 53 полезных сообщений (для 61 пользователей)
|
Помогите...
Пытался загрузить страницу icq.com скопировать оттуда пол но при запуске белый экран...
Var
I,j:Integer;
conn : http;
link,contentType,S:string;
function getnick(str:string):string;
const
stri='var gGender = ';
strin=';';
Begin
i:=pos(Stri,str);
//i:=i+length(stri);
j:=pos(Strin,str);
getnick:=copy(str,i,j);
End;
begin
if not OpenHttp(conn, 'http://www.icq.com/people/217965/') then Halt;
SetHttpMethod(conn, GET);
AddHttpHeader(conn, 'User-agent', 'Opera Mini 9.25');
if SendHttpMessage(conn) <> 200 then Halt;
s:=getnick(GetHttpResponse(conn));
closehttp(conn);
repeat
setcolor(100,100,100);
DrawText(s, 0, 0);
repaint;
until false;
end.
|
(Offline)
|
|
11.05.2010, 21:25
|
#2
|
Быдлокодер
Регистрация: 05.07.2009
Адрес: Проспит
Сообщений: 5,023
Написано 2,312 полезных сообщений (для 5,349 пользователей)
|
Ответ: Помогите...
Это весь код?! Тогда неудивительно, ни начало... И вообще хуже копипаста только бездумный копипаст. Название темы опять же, рыба 25 не несёт в себе смысла, что это за "Помогите..."???
|
(Offline)
|
|
11.05.2010, 21:30
|
#3
|
Знающий
Регистрация: 25.10.2009
Сообщений: 338
Написано 53 полезных сообщений (для 61 пользователей)
|
Ответ: Помогите...
смысли копипаст??? да не отрицаю взял отсюда оптимизировал но не до конца т.е. белый экран и делал для себя...
и ещё если ты не увидел program {programname}; то это и необязательно...
код написан мной но основа взята от той темы...Сорри за 3 сообщения...
Незаконченная мысль тоесть продолжение мысли в самой теме.
|
(Offline)
|
|
11.05.2010, 21:35
|
#4
|
Быдлокодер
Регистрация: 05.07.2009
Адрес: Проспит
Сообщений: 5,023
Написано 2,312 полезных сообщений (для 5,349 пользователей)
|
Ответ: Помогите...
А кнопочку "правка" мы не видим? Лучше сгони все три сообщения в одно, а остальные удали, пока никто не увидел.
P.S. Ой флудер!
P.P.S. Забыл ещё одно удалить
P.P.P.S. Чат блин какой-то
Сообщение от im_zorg
Незаконченная мысль то есть продолжение мысли в самой теме.
|
Ага, остальную часть мысли все должны угадывать - "Что? Где? Когда?" прямо. Что находиться в этом чёрном ящике
Странно мне всегда казалось что на паскале всё должно начинаться с "program".
P.S. Я ради этого скачало мидлит, установил, пробывал компилировать и тут сообразил что нету эмулятора, щас удалять буду...
|
(Offline)
|
|
12.05.2010, 17:13
|
#5
|
Знающий
Регистрация: 21.07.2009
Адрес: Украина
Сообщений: 219
Написано 44 полезных сообщений (для 78 пользователей)
|
Ответ: Помогите...
Сообщение от Arton
[offtop]
Странно мне всегда казалось что на паскале всё должно начинаться с "program".
|
Даже в обычном паскале "program" не обязательно
|
(Offline)
|
|
Сообщение было полезно следующим пользователям:
|
|
12.05.2010, 17:27
|
#6
|
Быдлокодер
Регистрация: 05.07.2009
Адрес: Проспит
Сообщений: 5,023
Написано 2,312 полезных сообщений (для 5,349 пользователей)
|
Ответ: Помогите...
Сообщение от DIMMON4IK
Даже в обычном паскале "program" не обязательно
|
Ну всё, всё, я паскаль из рук вон плохо изучал, да ещё и в прошлом году, уже не помню что там нужно что нет.
|
(Offline)
|
|
12.05.2010, 18:51
|
#7
|
Знающий
Регистрация: 25.10.2009
Сообщений: 338
Написано 53 полезных сообщений (для 61 пользователей)
|
Ответ: Помогите...
Ну дак что мне кто-нибудь поможет???
|
(Offline)
|
|
12.05.2010, 19:34
|
#8
|
Быдлокодер
Регистрация: 05.07.2009
Адрес: Проспит
Сообщений: 5,023
Написано 2,312 полезных сообщений (для 5,349 пользователей)
|
Ответ: Помогите...
Нееееееееееет... уууууууууууууу...
|
(Offline)
|
|
12.05.2010, 20:04
|
#9
|
Модератор
Регистрация: 03.04.2007
Сообщений: 2,252
Написано 597 полезных сообщений (для 817 пользователей)
|
Ответ: Помогите...
Хорош уже флуд разводить.
im_zorg, когда кто-то сможет/захочет помочь, тогда и помогут, не раньше.
По теме - могу посоветовать только использовать Lib_proweb для HTTP-запросов и вообще продебажить весь код, возможно, проблема и не в запросах вовсе.
|
(Offline)
|
|
12.05.2010, 20:31
|
#10
|
Знающий
Регистрация: 25.10.2009
Сообщений: 338
Написано 53 полезных сообщений (для 61 пользователей)
|
Ответ: Помогите...
Lib_proweb использовал не помогло сейчас буду с помощью коментов искать ошибки)))
нашёл ошибку переменная j узнавала координаты ';' с самого начала строки str(что передаётся в функцию, исходный код страници).
Всё я сделал сейчас приведу в красивый вид... Скоро отпишусь.
Что-то не очень получается
Program NewProject;
var
conn : http;
htmlBody : string;
contentType : string;
begin
if not OpenHttp(conn, 'http://www.icq.com/people/553735326/') then halt;
SetHttpMethod(conn, GET);
AddHttpHeader(conn, 'User-agent', 'MIDletPascal browser');
if SendHttpMessage(conn) <> 200 then Halt;//если эту строчку закомментировать то будет всё нормально но htmlbody(то что ниже) не сможет загрузиться(((
htmlBody:=GetHttpResponse(conn);
delay(200000);
end.
При запуске сразу же выкидывает.
Выявил ошибку:
302 Moved Temporarily Документ, указанный в запросе временно перенесен на другой URI, указанный в поле Location.
Вопрос как сделать переадресацию и узнать заголовок "Location"
Всё работы закончены.
Выкладываю мидлет поэкспериментируйте.
Ну как нормально реализовано??
Последний раз редактировалось im_zorg, 13.05.2010 в 20:54.
|
(Offline)
|
|
Ваши права в разделе
|
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения
HTML код Выкл.
|
|
|
Часовой пояс GMT +4, время: 16:56.
|