многопоточность. вызов дополнительной формы.

[ispro]

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

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

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

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

также, так как форма еще не создана, я не могу передать данные в тот же компонент Img класса timage. создаю компонент динамически, все равно не передает данные-ошибка.

f:=tformclass(findClass('TForm4'));
  b:=f.create(application);
  b.Caption:=login;
 
  img:=TImage.Create(Application);
  with img do
  begin
  Top:=16;
  Left:=16;
  Height:=74;
  Width:=212;
  end;
  b.InsertControl(img);
 
  b.img.Picture.LoadFromFile(name_pic);
  b.ActiveControl:=edites;
  b.Show;

а если заранее задать img и открыть уже в дополнительной форме:

img.Picture.LoadFromFile(name_pic);

то как уже сказал отображается картинка только последнего потока.

подскажите, пожалуйста, как реализовать удачный обмен информации между дополнительной формой и всеми потоками программы.

примного благодарен!

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

в потоков задать свойства через property и передать в них все необходимое ДО запуска потоков.

[ispro]

Сообщение от Человек_Борща

в потоков задать свойства через property и передать в них все необходимое ДО запуска потоков.

не могли бы вы более подробно описать данный способ или привести небольшой пример?
в доп. форму необхдимо передать следующие данные: name_u, name_pic, от формы потоку необходимо получить result.

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

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

примного благодарен!

[ispro]

проблема решена, тему, впринципе, можно закрывать, лишь хотел задать один вопрос.

cs.Enter;
try
f:=tformclass(findClass('TForm4'));
b:=f.create(Application);
b.Caption:=name_pic;
b.ShowModal;
i_fresh:=b.Caption;
finally
b.Free;
end;
cs.Leave;

как видно из кода, обмен потока с дополнительной формой получился лишь с помощью caption дополнительной формы, так как при создании формы поток не видит ни компонента timage, ни edit.

заморачиваться особо не стал с поиском или динамическим созданием компонента на дополнительной форме, поэтому решил оставить так, НО, возможно, у вас будут какие-либо рациональные предложения по обмену данными с дополнительной формой из потока, не совсем "увеличивающие" код.

буду премного благодарен.

[evg_m]

var
 b: Tform;

так ведь объявлено? тогда можно так

f:=tformclass(findClass('TForm4'));
b:=f.create(Application);
(b as TForm4).Edit1.text:=.........
(b as Tform4).Image1.LoadFrom(....);

или же так

var
 b: Tform4;

f:=tformclass(findClass('TForm4'));
b:=f.create(Application) as Tform4;

и далее просто

b.Edit1text:=.........
b.Image1.LoadFrom(....);

а еще можно для каждого потока создавать свою форму (внутри syncronize) и хранить ее как private данные.
тоже что и у тебя но переменная b объявляется в закрытой (private) облcnb данных класса потока.
но показывать и общаться с ней все равно надо через synchronize.

[ispro]

сделал через синхронизацию следующим образом:

procedure TNewThread.Enc;
begin
try
f:=tformclass(findClass('TForm4'));
b:=f.create(Application) as TForm4;
b.img.Picture.LoadFromFile(name_pic);
b.ShowModal;
i_fresh:=b.edt1.Text;
finally
b.Free;
end;
end;

возникла следующая проблема-при открытии формы в ней отображается нужная картинка и сразу же заменяется следующей(в случае только с первой самой картнкой из всех), но данные передаются нужному потоку.

предполагаю, что до открытия формы(showmodal), программа успевает подставлять имя из другого потока, в случае с критической секцией такого нет, так как пока критичесая секция занята, другой поток не может туда "зайти".

можно ли как решить эту проблему при синхронизации?

[evg_m]

что есть переменная b? (где определена)?
в приведенном примере можно ее вполне сделать локальной переменной функции.
Локальность даст возможность каждому потоку работать толлько со своей формой.
вероятно просто несколько форм (из разных потоков) показываютя одновременно на одном и том же месте.
попробуй для разных потоков задать разные положенbя форм.
form.left:=
form.top:=

[ispro]

переменная b:

...
 TNewThread = class(TThread)
  private
    ...
    f:TFormClass;
    b:TForm4;
  protected
    procedure Execute; override;
...

пробовал задавать локально, но тогда данные полученые от формы передаются некорректно(одни и теже данные в нескольких потоках).

да, действительно, вы правы открывалось несколько окон, но также и повторялись картинки в дополнительной форме.

открытие нескольких окон поборол "извращенским" способом:

cs.Enter;
Synchronize(Encap);
cs.Leave;

а одни те же картинки иногда показывались потому что имя картинки, в период тестирования программы, задавал следующим образом:

name_pic:=IntToStr(acc)+'.jpg';

где acc-локальная перименная:

cs.Enter;
Inc(Acc);
if acc>ttt then work:=False;
cs.Leave;

исправил код на следующий:

cs.Enter;
Inc(Acc);
if acc>ttt then work:=False else curacc:=acc;
cs.Leave;
.....
name_pic:=IntToStr(curacc)+'.jpg';

и в период тестирования, программа заработала должным образом

[evg_m]

есть мнение что возможно пересмотреть алгоритм работы в целом.

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

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

в потоков задать свойства через property и передать в них все необходимое ДО запуска потоков.

MyTread:=TMythread.Create(resume); // создать поток в остановленном состоянии. 
f.showModal; // вызвать форму настройки 
теперь она может быть одна для всех (не создавать каждый раз заново)
но можно и создавать (но тогда и не забыть удалить)
mythread.myparam:=f.datathread; // перенести полученные данные в поток.
mythread.resume; // запустить поток.

Избавимся от всей головной боли. (критичической секции)
и многих-многоих форм

пробовал задавать локально, но тогда данные полученые от формы передаются некорректно(одни и теже данные в нескольких потоках).

Такого быть не должно. Вероятно где-то работаем не с тем, что предполагаем. скорее всего есть какие-то глобальные переменные (наверно оставшиеся от предыдущих попыток).

[ispro]

Сообщение от evg_m

есть мнение что возможно пересмотреть алгоритм работы в целом.

MyTread:=TMythread.Create(resume); // создать поток в остановленном состоянии. 
f.showModal; // вызвать форму настройки 
теперь она может быть одна для всех (не создавать каждый раз заново)
но можно и создавать (но тогда и не забыть удалить)
mythread.myparam:=f.datathread; // перенести полученные данные в поток.
mythread.resume; // запустить поток.

Избавимся от всей головной боли. (критичической секции)
и многих-многоих форм

возник вопрос, я смогу внести данные только перед запуском потока или в любой момент смогу вызвать форму? моя программа работает, работает пока не встертит нужное и выведит в дополнительной форме.