[LELIKS]

HI!
Смотрел на форуме, не нашел примера. Нужно чтоб цикл брался из Edit и выполнялся в один поток POST запросом.

[LELIKS]

Сложный вопрос или непонятно написал? Что нибудь хоть написали.

[Assistant]

не понятно, подробнее.

[LELIKS]

Вот пример:

Код:

type
  TForm1 = class(TForm)
  Edit1: TEdit
procedure Button1Click(Sender: TObject);
...
...
procedure TForm1.Button1Click(Sender: TObject);
var
 Data:TStringList;
 i:Byte;
begin
 Data:=TStringList.Create;
 for i := 1 to StrToInt (Edit1.Text) do begin
 S:=IdHTTP1.Post('http://kremlin.ru/, Data);
 Application.ProcessMessages();
 ...
end;

Админ: Учимся корректно оформлять код!

Нужен пример кода в один поток, принцип работы как в примере.

[einstein]

тут и так один поток

[LELIKS]

Здесь форма при цикле подвисает и из 500 циклов выполняется 200-300 где-то. С таким кодом ненормальная работа) Тему можно закрыть, пока совета дождешься самому погуглить лучше и т. п.. Форум на мыло, толку от него, в носу ковыряетесь)

[Assistant]

объяснять надо по русски и доходчиво, нихера толком не написали что хотите, и чего-то ждёте.

P.S.: а то что у вас 200-300 выполняется, а не 500, дак это скорее всего вам сайт не успевает отдавать инфу с такой скоростью, паузу между попытками ставьте или делайте многопоточность.

P.S.2: да и вообще, тут только многопоточность спасет.

[LELIKS]

Да уже должен вопрос понятен быть, снова козявки вытаскиваем, ни одной помощи, примера. Могли цитату вывести чтобы пояснил а не в игнор играть. С Вами здесь надо как на рыбалке: тихо - подрочи.
P.S. "сайт не успевает отдавать инфу с такой скоростью". Код бодяжный, слал запросы на денвер "счетчик", паузу ставил, также.
P.S.2 В многопоточности можно сделать чтобы в один поток было? Вот это и надо. Но не здесь!