Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Поток, доп. Unit и общие переменные. / 16 сообщений из 16, страница 1 из 1
30.01.2021, 00:40
    #40040029
st74
st74
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Поток, доп. 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.
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:58
    #40040030
rgreat
rgreat
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Поток, доп. Unit и общие переменные.
Какой трешак...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.01.2021, 01:04
    #40040031
st74
st74
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Поток, доп. Unit и общие переменные.
Забыл сказать почему такое решение.

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

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

Далее пишется визуальная часть для тестирования, которая запускает этот расчетный модуль и отображает результаты. Ну а потом вы, вместо формы подключаете поток
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.01.2021, 16:59
    #40040126
white_nigger
white_nigger
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Поток, доп. Unit и общие переменные.
+1 или можно передавать в конструктор потока колбэк метод, который будет обновлять отображение хода выполнения в ui потоке через Queue. А поток расчета пусть его дергает через заданный интервал прогресса
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.01.2021, 14:29
    #40040248
st74
st74
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Поток, доп. Unit и общие переменные.
[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, 16:35
    #40040261
alekcvp
alekcvp
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Поток, доп. Unit и общие переменные.
namespace в дельфи тупо для красоты, он ни на что не влияет.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.01.2021, 23:12
    #40040345
white_nigger
white_nigger
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Поток, доп. Unit и общие переменные.
Вообще не понял какое отношение имеет неймспейс к решаемой проблеме. И за каким хреном лепят костыли, вместо использования нормальных подходов, пару из которых привели?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.02.2021, 09:18
    #40040373
goldmi45
goldmi45
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Поток, доп. Unit и общие переменные.
st74

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

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


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


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

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

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

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

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

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

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

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

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

разобрался. да и народ понял - перед тем как вешать банер на стену(типа визуализация процесса) - ее нужно правильно сделать.
вобщем обошлось без костылей, но без палочки в руке - никак......
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Поток, доп. Unit и общие переменные. / 16 сообщений из 16, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 470ms
Закрыть
start [/forum/topic.php?fid=58&mobile=1&tid=2037630]:
 0ms
get settings:
 10ms
get forum list:
 21ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 145ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 68ms
get tp. blocked users:
 2ms
others: 201ms
total:  470ms
x
x
Закрыть


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