Delphi: Вызов процедуры по её имени В ПОТОКЕ, rtti

Mixon · 24 Nov 2012

И сново этот чёртов rtti лагает...
Code:
type
  TuThread = class(TThread)
  procedure ExecMethod(MethodName:string; const Args: array of TValue);
  procedure test(obj:ISuperObject);
  procedure OnRUN;
  protected
    procedure Execute;override;
  public
    constructor Create(CreateSuspennded: Boolean; const potok_num: Integer);// reintroduce; overload;
  end;

implementation
uses Main;

var
  num: Integer;

constructor TuThread.Create(CreateSuspennded: Boolean; const potok_num: Integer);
begin
  inherited Create(CreateSuspennded);
  num := potok_num;
end;

procedure TuThread.ExecMethod(MethodName:string; const Args: array of TValue);
var
 R : TRttiContext;
 T : TRttiType;
 M : TRttiMethod;
begin
  T := R.GetType(TuThread);
  for M in t.GetMethods do
    if (M.Parent = t) and (M.Name = MethodName) then
      M.Invoke(Self,Args);
end;

procedure TuThread.test(obj:ISuperObject);
begin
  ShowMessage(obj.AsJSon);
end;

procedure TuThread.OnRUN;
begin
  ExecMethod('test',[TValue.From(SO('{abc:1}'))]);
end;
В итоге, при попытке запустить процедуру test получаем => EInvalidCast with message 'Invalid class typecast'

если заюзать так:
M.Invoke(Form1,Args);
или так
M.Invoke(TuThread,Args);
или любым другим подобным образом - получаем => EInvalidCast with message 'Invalid class typecast'

Если передать в поток - ссылку на сам поток (который создаётся в главной форме):
Code:
    potok:=TuThread.Create(False,i);
    potok.FreeOnTerminate:=True;
    potok.Priority:=TThreadPriority.tpHigher;
и использовать
M.Invoke(Potok,Args);
то в итоге - нет ошибок, но НИЧЕГОСЕНЬКИ не запускается. Абсолютно.

НО если создать НОВЫЙ экземпляр потока - то всё как-бы работает, но мне нужно запускать метод именно в ЭТОМ потоке, а не так:
M.Invoke(TuThread.Create(False,1),Args);

У кого какие мысли на этот счёт???

п.с. если юзать данную функцию НЕ в потоке а в форме (любой) то всё прекрасно фурычит с Self.
Click to expand...
Надо было ТУПО удалить potok.FreeOnTerminate:=True;
пипец...2е суток гемора...а Self просто успевал nil`ится до вызова...
Topic closed

Useful Searches

Delphi: Вызов процедуры по её имени В ПОТОКЕ, rtti

Mixon Elder - Старейшина