Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Многопоточность в Indy

Pavel © (2010-01-29 10:34:00)
Использую компонент IdHTTPServer1.
С толкнулся с проблемой, что при обработке нескольких потоков выходные данные потока не соответствуют входным.
Вот пример кода:

procedure TForm1.IdHTTPServer1CommandGet(AContext: TIdContext; ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo); begin us := ARequestInfo.RawHTTPCommand; p := Pos('img', us); if p > 0 then begin Memo1.Lines.Add(us); p1 := Pos('_', us); Delete(us, 1, p1); p1 := Pos('_', us); z := Copy(us, 1, p1 - 1); Delete(us, 1, p1); p1 := Pos('_', us); x := Copy(us, 1, p1 - 1); Delete(us, 1, p1); p1 := Pos('.', us); y := Copy(us, 1, p1 - 1); Delete(us, 1, p1); Memo2.Lines.Add(us); end; end;

В результате работы процедуры данные, в Memo1 и Memo2 разные.

Anatoly Podgoretsky (2010-01-29 15:01:00) [1]
> Pavel (29.01.2010 11:08:02) [2]

Зачем тогда два мемо

Pavel (2010-01-29 12:29:00) [2]
Спасибо! Разобрался.

Медвежонок Пятачок (2010-01-29 11:33:00) [3]
даже не четыре, а пять раз с учетом:

us := ARequestInfo.RawHTTPCommand; //раз

Delete(us, 1, p1); //два
...
Delete(us, 1, p1); //три
...
Delete(us, 1, p1); //четыре
...
Delete(us, 1, p1); //пять
...

Медвежонок Пятачок (2010-01-29 11:31:00) [4]
причем в связи с тем, что переменная глобальная, то ее меняет обработка каждого нового гет запроса.
то есть каждый запрос меняет значение us четыре раза.

Медвежонок Пятачок (2010-01-29 11:29:00) [5]
значение переменной us у тебя меняется твоим же кодом
четыре раза
Delete(us, 1, p1);

в рамках обработки одного и того же запроса

Pavel (2010-01-29 11:23:00) [6]
Сори, но проблема не много другая. Как Сделать, чтобы занчение переменной us не изменялось в пределах выплнения одного запроса.
Т. е. нужно следующее, поступает HTTP-запрос, получаем значение переменной us, затем выполняем с полученным знкачением некий набор действий, и результат действий должен соответствовать именно тому значению переменнй us, которое прочитали в данном запросе.

Медвежонок Пятачок (2010-01-29 11:17:00) [7]
Memo1.Lines.Add( us);
...
Delete( us, 1, p1);
Memo2.Lines.Add( us);

а с чего они вообще должны быть одинаковыми при таком раскладе?

Медвежонок Пятачок (2010-01-29 11:14:00) [8]
чтобы дынные в Memo1 и Memo2, были одинаковыми?

memo1.lines.text := memo2.lines.text

Pavel (2010-01-29 11:08:00) [9]
А как правильно сделать, чтобы дынные в Memo1 и Memo2, были одинаковыми?

Медвежонок Пятачок (2010-01-29 10:59:00) [10]
нельзя работать с вцл из вторичных потоков.
ты работаешь с вцл (мемо) из вторичного потока (TForm1.IdHTTPServer1CommandGet выполняется в контексте вторичного потока)

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »