Вопрос с циклом

[Ученик.6Б]

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

Замечание: в расширеном режиме ответа есть кнопочка вложения. Для 3,5кВ в будущем лучше пользоваться ей.

Вопрос: Что ввести в качестве запроса?

Честно, без разницы, главное чтоб нормально работало, я буду всеравно все исправлять и еще дописывать, много еще работы (для меня).
Это будет образец и урок для меня.

[Sibedir]

Да не без разницы наверное. Ошибка при выполнении первого же запроса. Что вы вводите в первом Edit'е.

[Ученик.6Б]

Я понял.
Да блин как плохо, прога не малую делаю, этот исходник (кусок) сделал как тест по этой теме. Выложить запрос не могу, так как есть секрет то что я делаю. Если неполучиться с другим запросом (попробуйте), то поправьте хоть что неправильно.
Неудачка-то.

[Sibedir]

Сделайте вот так

  Memo1.Lines.Clear;
  S := '';
  for i := 1 to StrToInt (Edit1.Text) do begin
    S:=IdHTTP1.Post('http://microsoft.com/index.php?id=1'+NEdit.Text, Data);
    if Pos('Atrue', S) = 0 then
      Memo1.Lines.Add ('Запрос - ' + IntToStr(i) + ' (' + TimeToStr(Now) + ')')
    else
      Break;
  end;

  if Pos('Atrue', S) = 0 then Memo1.Lines.Add ('Ошибка')
  else Memo1.Lines.Add ('Отправлено (' + TimeToStr(Now) + ')');

  ShowMessage ('Ку-Ку');

и скажите, показывает ли ваша программа "Ку-Ку".

[Ученик.6Б]

Показывает в новом окошке ... и происходит один запрос, где более ввожу в едит1.

[Sibedir]

и происходит один запрос

А в мемо что-то пишет или нет?

[Ученик.6Б]

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

А в мемо что-то пишет или нет?

Нет. Вообще спервоначально пусто, пробовал это в исходнике который дал. Только с нормальным запросом.
Хочется чтоб каждый запрос описывался в проге, пусть хоть в текстовом каком нибудь окне или подругому, главное чтоб не надеждой, и в конце чтоб окончание сообщением или текстом как было заканчивалось.

[Sibedir]

Если

  ShowMessage ('Ку-Ку');

стоит сразу после

if Pos('Atrue', S) = 0 then Memo1.Lines.Add ('Ошибка')
  else Memo1.Lines.Add ('Отправлено (' + TimeToStr(Now) + ')');

и при этом отрабатывет, то и

if Pos('Atrue', S) = 0 then Memo1.Lines.Add ('Ошибка')
  else Memo1.Lines.Add ('Отправлено (' + TimeToStr(Now) + ')');

должно было отработать.
Скиньте кусок кода непосредственно из вашего исходника. Секретную информацию в строковых константах исправте на '**************'

[Ученик.6Б]

Код выкладывать, это всю программу нужно выложить (много), это одно меню из программы будет которое мы разбираем.
Давайте так, сделайте пожалуйста исходник, запрос чтоб без ошибки был на сервер свой (например на сниффер) запрос сделайте (http://127.0.0.1/******). Как денвер или другой наверно есть у вас.
Нормально будет, выложите исходник, а я разберусь и исправлю у себя.
Главное чтоб отписывало происходящее. Пусть текстом (даже хоть не одной строкой) в окошке.

[Sibedir]

Просто выложи здесть куски кода относящиеся к этой проблеме.

Проблема не в команде

   S:=IdHTTP1.Post('http://microsoft.com/index.php?id=1'+NEdit.Text, Data);

или какой-то еще. Проблема может быть в том, что до нее дело не доходит. Или послее ее работы идет не правильно вывод результатов. Пробоволи прогнать пошагово?