отправка запросов

[niva622]

Всех Приветствую, помогите с проблемой, есть IdHTtP1, при нажатии по кнопке будет выполняться строка типа:
idhtp1.Get('http://ya.ru') ;
idhtp1.Get('http://ya.ru') ;
idhtp1.Get('http://ya.ru') ;
.... итд
Как сделать так что бы программа отправляла запросы в несколько потоков, TThread не предлагать, либо если нет выхода и нужно юзать TThread то помогите с кодом плиз...

[Человек_Борща]

Ну не хотите Tthread, гуглите CreateThread.

[Kix.IV]

Ты хочешь флудер сделать?
Вот пример:

procedure Send;
begin
Form1.IdHTTP1.Get('http://ya.ru');
end;

procedure TForm1.Button1Click(Sender: TObject);
var
d:array [1..100] of DWORD;
i:integer;
begin
for i:=1 to 100 do
 createThread(nil,0,@Send,nil,0,d[i]);
end;

[Terikon]

http://www.delphibasics.ru/BeginThread.php

[niva622]

нет не флудер, хочу бота написать для одной браузерной игры, при нажатии по кнопке идет около 25 ти GET запросов, на форме таких кнопок штук 30, и нужно в один момент нажать на несколько кнопок и что бы все кнопки делали запросы....

[niva622]

Столкнулся еще с одной проблемой, обработчик исключений, вот я привел пример для определенного запроса, подскажите пожалуйста как записать так что бы при каждой отправке запроса проверялось на ошибку.. (т.е есть много кнопок на форме и все отправляют какие то запросы, нужно записать куда то один раз что бы ошибок не было) надеюсь я не кого не запутал... сразу извинюсь за слегка простые вопросы... Спасибо
try
idhttp1.get('http://ya.ru');
except
on E: Exception do
SHOWMESSAGE('You error ' +E.Message);
end;

[Kix.IV]

Если я тебя правильно понял, то так:

procedure Send;
begin
try
idhttp1.get('http://ya.ru');
except
on E: Exception do
SHOWMESSAGE('You error ' +E.Message);
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
d:array [1..100] of DWORD;
i:integer;
begin
for i:=1 to 100 do
 createThread(nil,0,@Send,nil,0,d[i]);
end;

И если я тебя правильно понял, то тебе надо лучше учить программирование.(А конкретно решать задачки)

[niva622]

спасибо, Можно по подробнее с чего начать решать задачки, где поискать их лучше..

[niva622]

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

[Kix.IV]

Старые задачки для паскаля, почти не требующие программирования. Их основная цель научить "алгоритмическому мышлению".