ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Поток, доп. Unit и общие переменные.
16 сообщений из 16, страница 1 из 1
Поток, доп. Unit и общие переменные.
    #40040029
st74
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
st74
Гость
Еще раз всем спасибо за помощь! Ато склероз совсем замучал. ))))

теперь вопрос.

есть поток

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
unit MyTr;

interface

uses
  System.Classes,System.SysUtils, unit1;

type
  TMyTr = class(TThread)

  public
   NTrFun : uint32;
   procedure Sinc;
   procedure SincMain;
   procedure sincNTFun(e : byte);

  protected
    procedure Execute; override;
  end;

implementation
uses fun;

{ TMyTr }

procedure TMyTr.sincNTFun(e : byte);
begin
  //
  NTrFun := e;
end;

procedure TMyTr.Sinc;
 begin
       Form1.Memo1.Lines.Add('Updated in thread via an anonymous method');
       Form1.Memo1.Lines.Add(inttostr(NTrFun));

 end;

procedure TMyTr.SincMain;
begin
 Synchronize(Sinc);
end;

procedure TMyTr.Execute;
begin
//  NameThreadForDebugging('MyTr');
  NTrFun := 10;
  SincMain;
  outin(5);
  sincNTFun(5);
  SincMain;
  { Place thread code here }
end;

end.



есть дополнительный Unit

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
unit Fun;

interface
uses System.SysUtils;//, FMX.Forms;
//  Unit1;// not work

function outin(inb : Uint32): string;

 implementation
uses unit1, mytr;

 function outin(inb : Uint32): string;
 var
 e : uint32;
 begin
//  form1.nf := 1;
   result := inttostr(inb);
   form1.nf := 2;
   form1.Memo2.Lines.Add('pfun ' + inttostr(form1.nf));

// код который необходимо выполнить вызывая пееременную и процедуру из потока
// NTrFun := 55;
// SincMain;

 end;
end.



Собственно вопрос. Каким образом из доп модуля можно изенить переменую и вызвать процедуру обьявленную в потоке.
это NTrFun := 55; SincMain;
Если все написать в одном листинге - живет без проблем. как только поделил на модули - не видит не переменной ни функции.С формой как видите работает(Form1). с потоком не видит ни переменную ни функцию......

Помню както делал, но склероз мешает вспомнить.... (
...
Рейтинг: 0 / 0
30.01.2021, 00:40
| Ответить | Цитировать | Написать  
Поток, доп. Unit и общие переменные.
    #40040030
rgreat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
rgreat
Участник
Какой трешак...
...
Рейтинг: 0 / 0
30.01.2021, 00:58
| Ответить | Цитировать | Написать  
Поток, доп. Unit и общие переменные.
    #40040031
st74
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
st74
Гость
Забыл сказать почему такое решение.

в доп модуле - длительный расчет (от 12 до 24 часов). поэтому надо контролировать на какой стадии находится.
потоков несколько.
доп модуль пишет другой человек и он очень далеко. поэтому было принято решение - он отлаживает расчеты у себя на основе формы(TForm), а я уже потом должен прикрутить модуль к потоку.
...
Рейтинг: 0 / 0
30.01.2021, 01:04
| Ответить | Цитировать | Написать  
Поток, доп. Unit и общие переменные.
    #40040098
Фотография _Vasilisk_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_Vasilisk_
Участник
st74
было принято решение - он отлаживает расчеты у себя на основе формы(TForm), а я уже потом должен прикрутить модуль к потоку.
Это глупейшее решение.

Он должен написать расчетный модуль (класс), который с формой никак не взаимодействует. Максимум - этот класс может иметь события OnProgress, OnExecute...

Далее пишется визуальная часть для тестирования, которая запускает этот расчетный модуль и отображает результаты. Ну а потом вы, вместо формы подключаете поток
...
Рейтинг: 0 / 0
30.01.2021, 14:10
| Ответить | Цитировать | Написать  
Поток, доп. Unit и общие переменные.
    #40040126
white_nigger
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
white_nigger
Участник
+1 или можно передавать в конструктор потока колбэк метод, который будет обновлять отображение хода выполнения в ui потоке через Queue. А поток расчета пусть его дергает через заданный интервал прогресса
...
Рейтинг: 0 / 0
30.01.2021, 16:59
| Ответить | Цитировать | Написать  
Поток, доп. Unit и общие переменные.
    #40040248
st74
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
st74
Гость
[quot _Vasilisk_#22271666]
st74
Это глупейшее решение.


А кто спорит.

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

пока для показа на костылях через Pointer решил.

вобщем нашел у себя "исходник" - старый еще на D7 писаный. даже черновиком не назовеш. Решение с модулями и главной формой было через TUnit1NameSpace.

на D7 собалось и зажило. на RAD 10.4 облом. покурил RTFM. коечего прояснилось.

собственно теперь вопросы.
как я понял намеспасе формируется на уровне обьявления юнита и мастер формы.(MyCompany).

unit MyCompany.MyWidgets.MyUnit;

если обьявить так
Program MyCompany.Programs.MyProgram;
Library MyCompany.Libs.MyLibrary;
Package MyCompany.Packages.MyPackage;
unit MyCompany.unitN;

то все они принадлежат namespace MyCompany?

Вобщем ща попробую реалиовать.

если у когото опыт есть - БУДУ ОЧЕНЬ БЛАГОДАРЕН.
...
Рейтинг: 0 / 0
31.01.2021, 14:29
| Ответить | Цитировать | Написать  
Поток, доп. Unit и общие переменные.
    #40040261
alekcvp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alekcvp
Участник
namespace в дельфи тупо для красоты, он ни на что не влияет.
...
Рейтинг: 0 / 0
31.01.2021, 16:35
| Ответить | Цитировать | Написать  
Поток, доп. Unit и общие переменные.
    #40040345
white_nigger
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
white_nigger
Участник
Вообще не понял какое отношение имеет неймспейс к решаемой проблеме. И за каким хреном лепят костыли, вместо использования нормальных подходов, пару из которых привели?
...
Рейтинг: 0 / 0
31.01.2021, 23:12
| Ответить | Цитировать | Написать  
Поток, доп. Unit и общие переменные.
    #40040373
goldmi45
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
goldmi45
Участник
st74

С формой как видите работает(Form1). с потоком не видит ни переменную ни функцию......

Форму видит, потому что она подключена в uses. Как только уберёте из Uses Unit1 или переименуете это модуль или форму - тоже не увидит переменную Form1
...
Рейтинг: 0 / 0
01.02.2021, 09:18
| Ответить | Цитировать | Написать  
Поток, доп. Unit и общие переменные.
    #40040512
st74
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
st74
Гость
white_nigger
Вообще не понял какое отношение имеет неймспейс к решаемой проблеме. И за каким хреном лепят костыли, вместо использования нормальных подходов, пару из которых привели?


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


Поковырял namespase.... таже х... что и просто через TForm1. тока выбор что откуда и куда удобнее. С потоком не катит. при любом вызове переменной\функции\ процедуры из потокоа - вываливает в экцепшен. хотя компилятор не возражает.

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

если етсь опыт Буду ОЧЕНЬ благодарен. а за пример - еще больше.
...
Рейтинг: 0 / 0
01.02.2021, 14:57
| Ответить | Цитировать | Написать  
Поток, доп. Unit и общие переменные.
    #40040523
Фотография _Vasilisk_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_Vasilisk_
Участник
st74
если етсь опыт Буду ОЧЕНЬ благодарен
Зачем, если вы игнорируете все советы?
...
Рейтинг: 0 / 0
01.02.2021, 15:14
| Ответить | Цитировать | Написать  
Поток, доп. Unit и общие переменные.
    #40040594
white_nigger
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
white_nigger
Участник
_Vasilisk_
Зачем, если вы игнорируете все советы?
Есть подозрение, что ТС просто не понял, что ему посоветовали или не знает как это реализовать. хм... но тогда б чтоль поинтересовался для приличия...
...
Рейтинг: 0 / 0
01.02.2021, 17:11
| Ответить | Цитировать | Написать  
Поток, доп. Unit и общие переменные.
    #40040777
cptngrb
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
cptngrb
Участник
почитай хотя бы это https://github.com/loginov-dmitry/multithread/blob/master/multithread_in_delphi_for_beginners.md
...
Рейтинг: 0 / 0
02.02.2021, 08:47
| Ответить | Цитировать | Написать  
Поток, доп. Unit и общие переменные.
    #40040851
Фотография Док
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Док
Участник
ну что вы все набросились на человека? видно же, что он не в теме и не пытается разобраться. имхо, правильно ему ссылку выше дали от DmSer (хоршая статья, жаль, что не написана лет 15 назад)
...
Рейтинг: 0 / 0
02.02.2021, 13:10
| Ответить | Цитировать | Написать  
Поток, доп. Unit и общие переменные.
    #40040897
Фотография _Vasilisk_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_Vasilisk_
Участник
Док
ну что вы все набросились на человека? видно же, что он не в теме
Для этого и нужен форум, чтобы пнуть в правильном направлении
Док
и не пытается разобраться
А вот это уже печально
...
Рейтинг: 0 / 0
02.02.2021, 14:46
| Ответить | Цитировать | Написать  
Поток, доп. Unit и общие переменные.
    #40045599
st74
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
st74
Гость
Спасибо Всем!

разобрался (ну как сам думаю).

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

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

просто не хотелось километровых листингов.

пока ругались с начальством( вместе с руководителем проекта ) чтоб не получилось:

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

разобрался. да и народ понял - перед тем как вешать банер на стену(типа визуализация процесса) - ее нужно правильно сделать.
вобщем обошлось без костылей, но без палочки в руке - никак......
...
Рейтинг: 0 / 0
15.02.2021, 20:29
| Ответить | Цитировать | Написать  
16 сообщений из 16, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Поток, доп. Unit и общие переменные.
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&msg=40040031&tid=2037630]:
 0ms
get settings:
 11ms
get forum list:
 22ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 192ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 74ms
get tp. blocked users:
 2ms
others: 240ms
total:  563ms
созд. / загр.: 563ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]