Delphi كشف الوجه

unit MainForm;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls,
  FMX.Objects, OpenCV.Core, OpenCV.ImgProc, OpenCV.HighGUI, FMX.Layouts;

type
  TForm1 = class(TForm)
    CameraView: TImage;
    btnDetectFaces: TButton;
    procedure btnDetectFacesClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
    Capture: pCvCapture;
    procedure ProcessFrame;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.fmx}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Capture := cvCreateCameraCapture(CV_CAP_ANY);
  if Capture <> nil then
    TThread.CreateAnonymousThread(ProcessFrame).Start;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  cvReleaseCapture(@Capture);
end;

procedure TForm1.ProcessFrame;
var
  Frame: pIplImage;
begin
  while True do
  begin
    Frame := cvQueryFrame(Capture);
    if Frame <> nil then
    begin
      try
        // Perform face detection on the frame here
        // You would need to implement this part using OpenCV functions

        // Display the frame in the FMX application
        TThread.Synchronize(nil,
          procedure
          begin
            OpenCV.HighGUI.CvToBitmap(Frame, CameraView.Bitmap);
          end
        );
      finally
        cvReleaseImage(@Frame);
      end;
    end;
  end;
end;

procedure TForm1.btnDetectFacesClick(Sender: TObject);
begin
  // You would perform face detection logic here
  // and update the display accordingly
end;

end.

يقوم هذا المثال بإعداد نموذج Delphi FMX بسيط باستخدام زر (btnDetectFaces) لتشغيل اكتشاف الوجه ومكون TImage (CameraView) لعرض تغذية الكاميرا. يلتقط إجراء ProcessFrame الإطارات من الكاميرا بشكل مستمر، ويعالجها لاكتشاف الوجه، ويعرض النتيجة في مكون TImage.

يرجى ملاحظة أن جزء اكتشاف الوجه مفقود وتحتاج إلى تنفيذه باستخدام خوارزميات اكتشاف الوجه في OpenCV، مثل Haar cascades أو الأساليب القائمة على التعلم العميق. إن تفاصيل خوارزميات اكتشاف الوجه وتنفيذها تقع خارج نطاق هذا المثال ولكنها موثقة جيدًا في وثائق OpenCV والبرامج التعليمية المتنوعة المتاحة عبر الإنترنت.

إذا أعجبك المقال وتحتاج إلى مثل هذه الخدمة، فلا تتردد في      اتصل بنا