ดาวน์โหลด Aspect4Delphi - ดาวน์โหลดซอร์สโค้ด Aspect4Delphi

Aspect4Delphi

ซอร์สโค้ดเดลฟี

1.0.4

ดาวน์โหลด

แง่มุมสำหรับ Delphi

Apparter4Delphi ประกอบด้วยห้องสมุดที่ช่วยให้ใช้แนวคิดของการเขียนโปรแกรมเชิงภาพ (AOP) ใน Delphi

เกี่ยวกับโครงการ

AOP เป็นกระบวนทัศน์การเขียนโปรแกรมที่มีจุดมุ่งหมายเพื่อเพิ่มความเป็นโมดูลโดยอนุญาตให้แยกข้อกังวลข้ามการตัดข้าม มันทำเช่นนั้นโดยการเพิ่มพฤติกรรมเพิ่มเติมลงในรหัสที่มีอยู่โดยไม่ต้องปรับเปลี่ยนรหัสเอง แต่เราสามารถประกาศรหัสใหม่นี้และพฤติกรรมใหม่เหล่านี้แยกกัน

APPERTH4DELPHI ช่วยให้เรานำข้อกังวลข้ามการตัดเหล่านี้มาใช้

ประเภทของคำแนะนำ

ก่อนคำแนะนำ: คำแนะนำที่ดำเนินการก่อนจุดเข้าร่วม แต่ไม่มีความสามารถในการป้องกันการไหลของการดำเนินการต่อไปยังจุดเข้าร่วม (เว้นแต่จะมีข้อยกเว้น)
หลังจากคำแนะนำ: คำแนะนำที่จะดำเนินการหลังจากจุดเข้าร่วมเสร็จสมบูรณ์ตามปกติ: ตัวอย่างเช่นหากวิธีการส่งคืนโดยไม่ต้องโยนข้อยกเว้น
คำแนะนำข้อยกเว้น: คำแนะนำที่จะดำเนินการหากมีวิธีการออกโดยการโยนข้อยกเว้น

สร้างขึ้นด้วย

Delphi Community Edition - IDE ที่ใช้

เริ่มต้น

เพื่อรับสำเนาท้องถิ่นและเรียกใช้ทำตามขั้นตอนง่าย ๆ เหล่านี้

ข้อกำหนดเบื้องต้น

ในการใช้ไลบรารีนี้จำเป็นต้องมีเวอร์ชันที่อัปเดตของ Delphi IDE (XE หรือสูงกว่า)

การติดตั้ง

โคลน repo

 git clone https://github.com/ezequieljuliano/Aspect4Delphi.git

เพิ่ม "เส้นทางการค้นหา" ของ IDE หรือโครงการของคุณไดเรกทอรีต่อไปนี้:

 Aspect4Delphisrc

การใช้งาน

เพื่อจัดเตรียมกระบวนทัศน์การวางแนวในโครงการของคุณด้วย APPERS4DELPHI ที่คุณต้องการ:

ใช้แอตทริบิวต์ PointCut
ใช้คลาสที่แสดงถึงแง่มุมของคุณ
ลงทะเบียนแอตทริบิวต์ PointCut ของคุณและคลาสมุมมองในบริบท
ตั้งค่าเมธอดคลาสของคุณเป็นเสมือน
เขียนวิธีการของคุณด้วยแง่มุมที่เกี่ยวข้อง

ตัวอย่าง

เพื่อแสดงให้เห็นการใช้งานลองดูวิธีการจัดการบันทึกของแอปพลิเคชัน

ใช้แอตทริบิวต์ PointCut (ควรสืบทอดมาจาก Appistattribute):

 interface

uses

  Aspect.Core;

type

  LoggingAttribute = class(AspectAttribute)
  private
    { private declarations }
  protected
    { protected declarations }
  public
    { public declarations }
  end;

implementation

end.

ใช้คลาสที่แสดงถึงแง่มุมของคุณและมีวิธีการให้คำแนะนำ (คุณต้องใช้อินเตอร์เฟส IASPECT):

 interface

uses

  System.SysUtils,
  System.Rtti,
  Aspect,
  Aspect.Core,
  Logging.Attribute,
  App.Context;

type

  ELoggingAspectException = class(Exception)
  private
    { private declarations }
  protected
    { protected declarations }
  public
    { public declarations }
  end;

  TLoggingAspect = class(TAspectObject, IAspect)
  private
    { private declarations }
  protected
    procedure OnBefore(
      instance: TObject;
      method: TRttiMethod;
      const args: TArray<TValue>;
      out invoke: Boolean;
      out result: TValue
      ); override;

    procedure OnAfter(
      instance: TObject;
      method: TRttiMethod;
      const args: TArray<TValue>;
      var result: TValue
      ); override;

    procedure OnException(
      instance: TObject;
      method: TRttiMethod;
      const args: TArray<TValue>;
      out raiseException: Boolean;
      theException: Exception;
      out result: TValue
      ); override;
  public
    { public declarations }
  end;

implementation

{ TLoggingAspect }

procedure TLoggingAspect.OnAfter(instance: TObject; method: TRttiMethod;
  const args: TArray<TValue>; var result: TValue);
var
  attribute: TCustomAttribute;
begin
  inherited;
  for attribute in method.GetAttributes do
    if attribute is LoggingAttribute then
    begin
      LoggingFile.Add('After the execution of ' + 
		instance.QualifiedClassName + ' - ' + 
		method.Name
	  );
      Break;
    end;
end;

procedure TLoggingAspect.OnBefore(instance: TObject; method: TRttiMethod;
  const args: TArray<TValue>; out invoke: Boolean; out result: TValue);
var
  attribute: TCustomAttribute;
begin
  inherited;
  for attribute in method.GetAttributes do
    if attribute is LoggingAttribute then
    begin
      LoggingFile.Add('Before the execution of ' + 
		instance.QualifiedClassName + ' - ' + 
		method.Name
	  );
      Break;
    end;
end;

procedure TLoggingAspect.OnException(instance: TObject; method: TRttiMethod;
  const args: TArray<TValue>; out raiseException: Boolean;
  theException: Exception; out result: TValue);
var
  attribute: TCustomAttribute;
begin
  inherited;
  for attribute in method.GetAttributes do
    if attribute is LoggingAttribute then
    begin
      LoggingFile.Add('Exception in executing ' + 
		instance.QualifiedClassName + ' - ' + 
		method.Name + ' - ' + 
		theException.Message
	  );
      Break;
    end;
end;

end.

ลงทะเบียนแอตทริบิวต์ PointCut ของคุณและคลาสมุมมองในบริบท (ควรเก็บบริบทนี้ไว้ในอินสแตนซ์ Singleton):

 interface

uses

  Logging.Aspect;
  Aspect.Context;  
  
function AspectContext: IAspectContext;

implementation

var

  AspectContextInstance: IAspectContext = nil;
  
function AspectContext: IAspectContext;
begin
  if (AspectContextInstance = nil) then
  begin
    AspectContextInstance := TAspectContext.Create;
    AspectContextInstance.RegisterAspect(TLoggingAspect.Create);
  end;
  Result := AspectContextInstance;
end;

end.

ในคลาสกฎธุรกิจของคุณใช้แอตทริบิวต์เพื่อกำหนดคะแนนการรวมของคุณ คุณสามารถใช้ตัวสร้างและ destructor เพื่อเพิ่มชั้นเรียนของคุณที่ผู้ประกอบ

 interface

uses

  System.SysUtils,
  Logging.Attribute,
  App.Context;

type

  EWhatsAppMessageException = class(Exception)
  private
    { private declarations }
  protected
    { protected declarations }
  public
    { public declarations }
  end;

  TWhatsAppMessage = class
  private
    { private declarations }
  protected
    { protected declarations }
  public
    constructor Create;
    destructor Destroy; override;

    [Logging]
    procedure Send; virtual;
  end;

implementation

{ TWhatsAppMessage }

constructor TWhatsAppMessage.Create;
begin
  inherited Create;
  AspectContext.Weaver.Proxify(Self);
end;

destructor TWhatsAppMessage.Destroy;
begin
  AspectContext.Weaver.Unproxify(Self);
  inherited Destroy;
end;

procedure TWhatsAppMessage.Send;
begin
  //Execution of send.
end;

แผนงาน

ดูปัญหาเปิดสำหรับรายการคุณสมบัติที่เสนอ (และปัญหาที่รู้จัก)

การบริจาค

การมีส่วนร่วมคือสิ่งที่ทำให้ชุมชนโอเพ่นซอร์สเป็นสถานที่ที่น่าทึ่งในการเรียนรู้สร้างแรงบันดาลใจและสร้าง การมีส่วนร่วมใด ๆ ที่คุณทำ จะได้รับการชื่นชมอย่างมาก