forum.boolean.name - Помогите...

forum.boolean.name (http://forum.boolean.name/index.php)

- MidletPascal (http://forum.boolean.name/forumdisplay.php?f=46)

- - Помогите... (http://forum.boolean.name/showthread.php?t=12493)

Помогите...

Пытался загрузить страницу 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.

Ответ: Помогите...

Это весь код?! Тогда неудивительно, ни начало... И вообще хуже копипаста только бездумный копипаст. Название темы опять же, рыба 25 не несёт в себе смысла, что это за "Помогите..."???

Ответ: Помогите...

смысли копипаст??? да не отрицаю взял отсюда оптимизировал но не до конца т.е. белый экран и делал для себя...
и ещё если ты не увидел program {programname}; то это и необязательно...
код написан мной но основа взята от той темы...Сорри за 3 сообщения...
Незаконченная мысль тоесть продолжение мысли в самой теме.

Ответ: Помогите...

Цитата:

Сообщение от im_zorg (Сообщение 146679)

Незаконченная мысль то есть продолжение мысли в самой теме.

Ага, остальную часть мысли все должны угадывать - "Что? Где? Когда?" прямо. Что находиться в этом чёрном ящике :-)

Странно мне всегда казалось что на паскале всё должно начинаться с "program".

Ответ: Помогите...

Цитата:

Сообщение от Arton (Сообщение 146683)

[offtop]
Странно мне всегда казалось что на паскале всё должно начинаться с "program".

Даже в обычном паскале "program" не обязательно

Ответ: Помогите...

Ну дак что мне кто-нибудь поможет???

Ответ: Помогите...

Хорош уже флуд разводить.
im_zorg, когда кто-то сможет/захочет помочь, тогда и помогут, не раньше.

По теме - могу посоветовать только использовать Lib_proweb для HTTP-запросов и вообще продебажить весь код, возможно, проблема и не в запросах вовсе.

Ответ: Помогите...

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"

Всё работы закончены.
Выкладываю мидлет поэкспериментируйте.

Ну как нормально реализовано??