ошибка при получении и обработки данных с Интернет страницы

[Arsenx777]

Увыжаемые, что за ошибка, уже не знаю что делать, все перепробовал, МОЖЕТ DELPHI ТУПИТ?

procedure TForm1.Button1Click(Sender: TObject);
var all_html,html,osn_html: string;
  i,j: integer;
begin
for i:=1 to 10 do
begin
  memo1.Lines.Clear;
  osn_html:='';
  all_html:='';
  html:='';
  all_html:=idhttp1.Get('SiilkaTest.ru/dd?id='+IntToStr(i));
  html:=copy(all_html, pos('<!--END OF HEADER-->',all_html)+20, pos('Для отправки',all_html) - pos('<!--END OF HEADER-->',all_html)-28);
  osn_html:=osn_html+html+'</body></head>';
  memo1.Text:=all_html;
  memo1.Lines.SaveToFile('Tasks\'+IntToStr(i)+'.html');
  end;
 end;
 
end.

Я даже код в нескольких вариантов делал но нефига не пашет,

Безымянный1.JPG
Безымянный.JPG

[alkador]

У меня при запуске программы вылазит

Ты внимательно свойства функций читал? передан неправильный аргумент ))

[Arsenx777]

А почему неправильный? все верно, если без цыкла делать то все норм, а мне в цыкле надо

[alkador]

Друг, тебя это не смущает??))

[Arsenx777]

Спасиб братиш, только этот сайт я в пример привел тоесть на бум написал)) , вот нормальная ссылка http://www.acmp.ru/?main=task&id_task=1

 
html:=idhttp1.get('http://www.acmp.ru/?main=task&id_task=1');
 memo1.Text:=html;

Дело в том что не получается сделать гет запрос по этой ссылке, выскакивает ошибка, как это исправить? может idhttp надо настроить? а то на другие ссылки все норм работает.

[alkador]

Ох, братьюня, твоя ошибка состоит в том, что '<!--END OF HEADER-->' в коде станицы встречается раньше чем 'Для отправки' и поэтому прога пытается скопировать кусок отрицательной длины.
Вот исправленный вариант, только там глюки с кодировкой, но ты дальше сам разберешся))
http://dl.dropbox.com/u/47506458/parser.rar

[Arsenx777]

Спасибо большое, но всеравно я не врублся почуму не удается нормальный гет запрос сделать на эту ссылку http://www.acmp.ru/?main=task&id_task=1

[W0LF]

IdHTTP1.HandleRedirect := True;

Пробовали?

[Arsenx777]

да, не пашет.