IdHTTP1.Post куча запросов. как?

[lck]

Подскажите с Indy. Посмотрел нашел только потоки..
почему нельзя послать несколько запросов с IdHTTP1.Post одной кнопкой? Мне надо около 100 запросов.. если кидать на форму 100 компонентов IdHTTP1.Post этож... капец..
а мне надо ещё с разными параметрами...

по кнопке жмём

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');
IdHTTP1.Post('site',p1);
p1.Free;

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');
IdHTTP1.Post('http://site',p1);
p1.Free;

и ругается... Access Violишн по адресу 00000000
я так понимаю что всё изза IdHTTP1.Post
если уж нельзя так. подскажите что нить альтернативное плиз.
Спс!

[VeTaL_UA]

Цитата: Сообщение от lck Мне надо около 100 запросов

Так что тебе мешает запустить эти запросы в потоках?) и вообще у тебя код какой-то кривоватенький...

[lck]

1) а без потоков как быть (с потоками не разобрался пока ещё...)?
2) ну код работает нормально.. если только 2 штуки IdHTTP1.Post кинуть на форму ну и подправить нумерацию..

[Duha666]

Зачем кидать на форму? Можно прямо в программе создать нужно количество(динамическое создание, о как ).
На примере TButton это выглядит вот так:

var
  a: array[1..100] of TButton;
begin
  for i := 1 to 100 do
  begin
    a[i] = TButton.Create(nil);  // Теперь можно выполнять все действия, что и с обычной кнопкой
    a[i].caption := "Button " + inttostr(i); // Пример изменения текста на кнопках
  end;
end;

Почитать может хотя бы здесь: [Ссылки могут видеть только зарегистрированные пользователи. ]

[lck]

ООО как вариант это тема! всем спасиба!

[Dinmaite[Work]]

А что мешает http.post() кинуть в цикл и не морочить себе голову совсем?

[Duha666]

Цитата: Сообщение от Dinmaite[Work] А что мешает http.post() кинуть в цикл и не морочить себе голову совсем?

Копипаст, который в первом посте так и должен был себя вести. Никогда не работал с сетью в Delphi, но предположу, что нужно после каждой посылки очищать запрос, хотя...

[lck]

В цикле не работает! пишет Акцесс виолишн адрес 0000000, с потоками так и не разобрался..
1)создаю поток. там прописываю то что надо отправить
2) В программе вызываю поток.
3) мне надо изменить данные в отправке.. это ведь надо в потоке менять..
кароче сколько бьюсь не могу понять. как вот это в потоке поменять?

Это 1 pапрос b=1

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');
IdHTTP1.Post('site',p1);
p1.Free;

Это 2 Запрос. там тока b=2

p1:=TStringList.Create;
p1.Add('b=2');
p1.Add('uid=54776');
p1.Add('session_key=4');
p1.Add('auth_key=4');
p1.Add('app_id=277504');
p1.Add('ndb=6');
p1.Add('c=all');
p1.Add('vid=179771652096');
IdHTTP1.Post('http://site',p1);
p1.Free;

[Duha666]

На какой из команд происходит Access Violation при циклах, или как в самом начале ты написал? Попробуй отдебагать(F7/F8 и т.д.) программу и найти эту строчку. это хоть что-то даст.

[Mebius]

//тут заполняешь стринглист

for i:=0 to 99 do
s:=IdHTTP1.Post(url,Data);

фикс аксес войлейшн:

for i:=0 to 99 do
try
s:=IdHTTP1.Post(url,data);
except
end;

в обоих случаях s:= не обязательно.

Duha666, предложил решение индусов xD без обид)

Blad56(2), аналогично, если ему просто отправить 100 раз одно и тоже надо, достаточно цикла с антифризом.

у тс тоже код индусский какой то. все делается на много проще

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);
except
end;
end;
finally
p1.free;
end;
end;

мог чуть ошибиться тк писал прямо тут)

[Duha666]

Цитата: Сообщение от Mebius Duha666, предложил решение индусов xD без обид)

Можно справится одним IdHTTP, да.(Один из вопросов был, как сделать 100 idHTTP)
В каждом запросе данные разные, приглядись(не понятно почему, но в первом сообщении запросы одинаковые). Так что и твоя реализация на циклах отпадает.

Можно попробовать написать процедуру, которая заполняет все-это особым образом(если это возможно)

[VeTaL_UA]

А разве так:

var
s:TStringList;
i:integer;
begin
for i=1 to 100 do
 begin
 s.Create;
 s.Add('b='+inttostr(i));
 s.Add('uid=54776');
 s.Add('session_key=4');
 s.Add('auth_key=4');
 s.Add('app_id=277504');
 s.Add('ndb=5');
 s.Add('c=all');
 s.Add('vid=179771652096');
  try
  IdHTTP1.Post('site',s);
  finally
  s.Free;
  end;
 end;
end;

нельзя?

[Duha666]

p1 и s перепутал. Ничем не отличается от кода выше, но лишние 99 раз заполняешь p1

[VeTaL_UA]

Цитата: Сообщение от Duha666 p1 и s перепутал.

Исправлено.

Цитата: Сообщение от Duha666 Ничем не отличается от кода выше, но лишние 99 раз заполняешь p1

А как же?:

s.Add('b='+inttostr(i));

[Duha666]

Не заметил. Если b меняется таким образом, то это единственное нормальное решение.