поток в компоненте

[ZuBy]

Привет Всем!

В общем это и не проблема, просто не могу организовать правильно то, что хочу сделать.

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

...
private
  ...
  fThread: TZMSThread;
  ...

в такой трактовке я не могу получить доступ к private переменным в компоненте, т.к. все обработка выполняется в fThread.execute процедуре.

даже если делать через public св-ва компонента я также не могу получить к ним доступ, т.к. self = fthread

надеюсь понятно написано, есть какие нить решения?
или я что-то не правильно делаю?

[evg_m]

1. организация взаимных ссылок в объектах

type
Tclass1 =class;

Tclass2=class
private
  cls1: TClass1;
end;

Tclass1=class
private
  cls2: TClass2;
end;

2. организация работы с Event(работа с процедурными типами)

type
TEventList=procedure(oar: integer) of oject;

 Tclass1 =class
private
  procedure evntlist(par: integer);//cписок параметров должен соответствовать списку у TeventList
end;

Tclass2=class
 private
  FGetList: TEventList;
end;

var
cl2: Tclass2;
cl1: Tclass1;

cl2.Fgetlist:=cl1.evntlist;//установка связи

cls.Fgetlist(3); //использование связи
//вызов метода evntlist объекта cl1 (типа Tclass1) внутри объекта cl2

[ZuBy]

evg_m, что-то подобное я делал.
только нужного эффекта так и не добился, есть еще идеи?

2-ой способ стоит попробовать

[evg_m]

получить доступ к private переменным в компоненте

Private по определению доступны только в том модуле (unit) гда определен данный класс.

[BOBAH13]

даже если делать через public св-ва компонента я также не могу получить к ним доступ, т.к. self = fthread

А объявить в потомке TThread свойство класса компонента, к которому в дальнейшем (в Execute) потребуется доступ ?

Обычно подобные проблемы решаются именно так.

type
class TMyComponent;

class 
    TMyThread = TThread
    private
        _MyComponent: TMyComponent;
    protected
        procedure Execute;
    public
        constructor Create(MyComponent: TMyComponnet);
    end;

implementation

constructor TMyThread.Create(MyComponent: TMyComponent)
begin
   inherited TThread.Create;
   _MyComponent := MyComponent;
end;

procedure TMyThread.Execute
begin
   while (true) do
   begin
       // get access to _MyComponent
   end;
end;

за синтаксис не отвечаю давно уже на дельфи с головы не писал ))

[ZuBy]

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

ТЕМА ЗАКРЫТА!