Динамическое создание формы при HTTP-запросе

← →
Pavel (2010-03-29 11:33) [0]

Необходимо при HTTP-запросе динамически создавать форму.
Делаю так: запрос обрабатываю через IdHTTPServer1.
В обработчике IdHTTPServer1CommandGet пишу следующее:

procedure TForm1.IdHTTPServer1CommandGet(AContext: TIdContext; ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo); begin Form2 := TForm2.Create(Application); Form2.Caption := "Form2"; Form2.Show; end;

В результате Form2 не отображается.

← →
Медвежонок Пятачок © (2010-03-29 11:37) [1]

И не должна отображаться. И хорошо что не отображается

← →
brother © (2010-03-29 11:40) [2]

> при HTTP-запросе динамически создавать форму

в коде запроса нету...

> В результате Form2 не отображается.

> Form2 := TForm2.Create(Application);

это что? не TForm?

← →
brother © (2010-03-29 11:51) [3]

зы: для начала - создай динамически форму без всяких запросов, а потом уж фантазируй дальше, имхо

← →
12 © (2010-03-29 11:58) [4]

причем тут http..

showmessage(""); - выскакивает?

Form2 := TForm2.Create(Application);
Form2.Caption := "Form2";
Form2.Show;

← →
Дмитрий Белькевич (2010-03-30 12:51) [5]

Есть подозрение, что проблема из-за отсутствия синхронизации потоков. IdHTTPServer1CommandGet вызывается не в основном потоке, скорее всего.

← →
[true]TRIx © (2010-03-30 16:15) [6]

Скачай исходник http://www.ritlabs.com/en/products/tinyweb/

имею ввиду TinyWeb

← →
Дмитрий Белькевич (2010-03-30 16:43) [8]

Вообще - зачем такое поведение могло понадобиться - пока не ясно.

> В результате Form2 не отображается.

Слава богу что не отображается. А если бы отобразилось, то было бы немало глюков.
Общаться с формой можно только из основного потока!

Динамическое создание формы при HTTP-запросе Найти похожие ветки