Извините, ничего не найдено.

im_zorg · 11.05.2010, 21:15

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

Arton · 11.05.2010, 21:25

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

im_zorg · 11.05.2010, 21:30

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

Arton · 11.05.2010, 21:35

Сообщение от im_zorg

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

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

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

DIMMON4IK · 12.05.2010, 17:13

Сообщение от Arton

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

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

Arton · 12.05.2010, 17:27

im_zorg · 12.05.2010, 18:51

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

Arton · 12.05.2010, 19:34

ViNT · 12.05.2010, 20:04

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

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

im_zorg · 12.05.2010, 20:31

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"

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

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