unit UnitBirsey;

interface

uses
  System.Classes,
  Vcl.Dialogs;

type
  TBirSey = class(TPersistent)
  public
    procedure Yap;
  end;

implementation

procedure TBirSey.Yap;
begin
  ShowMessage('Bir şey yaptım');
end;

initialization
  RegisterClass(TBirSey);

finalization
  UnRegisterClass(TBirSey);
end.

uses RTTI;
var
  RC: TRttiContext;
  InsType: TRttiInstanceType;
  Obj : TObject;
begin
  InsType := (RC.FindType('UnitBirsey.TBirSey') as TRttiInstanceType);
  Obj := InsType.MetaClassType.Create;
  try
    InsType.GetMethod('Yap').Invoke(Obj, []);
  finally
    Obj.Free;
  end;
end;

(17-02-2020, Saat: 09:26)SimaWB Adlı Kullanıcıdan Alıntı: Bu bölümü hortlattığın için çok teşekkürler @ismailkocacan

P.tesi sabahı, işe başlamadan güzel bir antrenman yapmış oldum senin vesilenle:

uses RTTI;
var
  RC: TRttiContext;
  InsType: TRttiInstanceType;
  Obj : TObject;
begin
  InsType := (RC.FindType('UnitBirsey.TBirSey') as TRttiInstanceType);
  Obj := InsType.MetaClassType.Create;
  try
    InsType.GetMethod('Yap').Invoke(Obj, []);
  finally
    Obj.Free;
  end;
end;

(17-02-2020, Saat: 09:26)SimaWB Adlı Kullanıcıdan Alıntı: Bu bölümü hortlattığın için çok teşekkürler @ismailkocacan

P.tesi sabahı, işe başlamadan güzel bir antrenman yapmış oldum senin vesilenle:

Kod:

uses RTTI;

var
  RC: TRttiContext;
  InsType: TRttiInstanceType;
  Obj : TObject;
begin
  InsType := (RC.FindType('UnitBirsey.TBirSey') as TRttiInstanceType);
  Obj := InsType.MetaClassType.Create;
  try
    InsType.GetMethod('Yap').Invoke(Obj, []);
  finally
    Obj.Free;
  end;
end;

(17-02-2020, Saat: 22:42)narkotik Adlı Kullanıcıdan Alıntı:

(17-02-2020, Saat: 09:26)SimaWB Adlı Kullanıcıdan Alıntı: Bu bölümü hortlattığın için çok teşekkürler @ismailkocacan

P.tesi sabahı, işe başlamadan güzel bir antrenman yapmış oldum senin vesilenle:

Kod:

uses RTTI;

var
  RC: TRttiContext;
  InsType: TRttiInstanceType;
  Obj : TObject;
begin
  InsType := (RC.FindType('UnitBirsey.TBirSey') as TRttiInstanceType);
  Obj := InsType.MetaClassType.Create;
  try
    InsType.GetMethod('Yap').Invoke(Obj, []);
  finally
    Obj.Free;
  end;
end;

Kodları anlamakla beraber nerelerde kullanıldığını merak ediyorum. Bugüne kadar hiç görmedim. Nasıl problemlerde değerlendirilebilir

Alıntı:http://host:port/datasnap/rest/[ClassName]/[MethodName]/[ParamValue]

(10-09-2020, Saat: 23:32)uparlayan Adlı Kullanıcıdan Alıntı: Front Control Pattern'de de bu yöntem kullanılabilir.

(11-09-2020, Saat: 21:50)uparlayan Adlı Kullanıcıdan Alıntı: Hatta o bilgi yığını kullanılarak otomatik menü de oluşturulabilir

• Front Controller (Ön Denetleyici)
  Uygulamaya gelen her türlü istek için merkezi, tek işleyicidir. Bu nesne tüm uygulama boyunca sadece 1 kere tanımlanır. Bu nesne bir singleton nesne şeklinde tasarlanabilir. Temel görevi yukarıda saydıklarıma ek olarak parametreleri Dispatcher'e iletmektir.
  
  
  
• Dispatcher (Dağıtıcı)
  Front Controller'den gelen talebi ilgili View'e yönlendirir. Dağıtıcılığı da bu davranışından kaynaklıdır. Yani Front Controller'den gelen talepleri emir gibi kabul edip ilgili View'i çağırır veya yükler. Dispatcher serbst bir sınıf olabileceği gibi, duruma göre Front Controller'in altındaki bir nested class olarak da tanımlanabilir. Facade veya Fabric tipi tasarım desenleri de kullanılıyorsa Dependency'leri en aza indirgemek adına ayrı (serbest) bir sınıf şeklinde tanımlanması daha doğru olabilir.
  
  Dynamic Method Invoke tekniği ise bu nesnenin içinde kullanılır. 
  
  
• View (Görünüm)
  Görünümler, isteklerin yapıldığı, gerçekleştiği, fiilen elle tutulur gözle görülür hale getirildiği nesnelerdir. Bunu basit anlamda Diyalog pencereleri, formlar veya actionlar gibi düşünebilirsiniz. Çünkü sonuçta tüm bunlar kullanıcının etkileşim içine girdiği farklı tipteki nesnelerdir.