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"
Всё работы закончены.
Выкладываю мидлет поэкспериментируйте.
Ну как нормально реализовано??