Можно справится одним IdHTTP, да.(Один из вопросов был, как сделать 100 idHTTP)
В каждом запросе данные разные, приглядись(не понятно почему, но в первом сообщении запросы одинаковые). Так что и твоя реализация на циклах отпадает.
Можно попробовать написать процедуру, которая заполняет все-это особым образом(если это возможно)
кто мешает после запроса изменить строчку в стринглисте на другую и все это делать в цикле?
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
p1:TStringList; i:integer;
begin
p1:=TStringList.Create;
p1.Add('b=1');
p1.Add('uid=54776');
p1.Add('session_key=4');
p1.Add('auth_key=4');
p1.Add('app_id=277504');
p1.Add('ndb=5');
p1.Add('c=all');
p1.Add('vid=179771652096');
try
for i:=0 to 99 do
begin
try
IdHTTP1.Post('http://link.ru/Post.php',p1);
p1[0]:='d='+StrToInt(i);
except
end;
end;
finally
p1.free;
end;
end;
мой код правильный тк он заведомо был чуть не так как надо написан, как человек научится мыслить и программировать если на каждом форуме ему будут писать полностью готовое идеальное решение!?
если надо именно 1-100 то 0 меняется на 1 а 99 на 100
Последний раз редактировалось Mebius; 26.08.2011 в 16:13.