<![CDATA[delphi4arab منتديات دلفي للعرب - دلفي والتعامل مع المكونات و الاضافات]]> https://delphi4arab.net/forum/ Thu, 12 Nov 2026 16:14:49 +0000 MyBB <![CDATA[الجديد في إصدارات دلفي What`s New in Delphi]]> https://delphi4arab.net/forum/showthread.php?tid=4939 Fri, 22 Feb 2013 10:49:12 +0100 kachwahed]]> https://delphi4arab.net/forum/showthread.php?tid=4939 السلام عليكم

هنا مختصر الجديد في إصدارات دلفي منقول للفائدة:
PHP كود :
Delphi XE3

    New Metropolis UI Applications for Delphi VCL and FireMonkey 
    FireMonkey Enhancements for XE3
    LiveBindings Enhancements for XE3
    Entitlement List and Provisioning page for Sandboxing Mac OS X Applications

Delphi XE2

    Cross platform support for Mac OSX (32-bit) and iOS;
    Support for Win64;
    Modified RTL to support cross platform;
    Packed Now Forces Byte Alignment of Records (Pre XE2 it did not necessarily do this)

    Eight new DEFINEs have been added:

    ALIGN_STACK
    CPUX86
    CPUX64
    MACOS (Mac operating system)
    MACOS32
    PC_MAPPED_EXCEPTIONS
    PIC
    WIN64
    Full unit scope names are now required in your uses clause.
    The build-in types differ depending on the target platform (32/64-bit)
        Extended Data Type Is 10 bytes on Win32, but 8 (!) bytes on Win64

Delphi XE

    The $STRINGCHECKS compiler directive is ignored in XE;
    New 16-byte value for the {$ALIGN} directive: The acceptable values for the {$ALIGN} directive now include 1, 2, 4, 8, and 16.
    new $CODEALIGN directive, this sets the starting address for a procedure or function.
    The {$STRONGLINKTYPES ON} directive

Delphi 2010

    Enhanced Delphi RTTI (Run Time Type Information).
    The as operator can be used to cast an interface reference back to the object from which it was extracted.
    The is operator can be used to verify whether an interface reference was extracted from a certain class.
    Normal unsafe casting can be performed on an interface: TObject(SomeInterface).
    new delayed directive indicates that an external library such as a DLL is not to be loaded at the declaration time but is to wait until the first call to the library.

Delphi 2009

    Generic type string now maps to UnicodeString
    Generics;
    Smart pointers;
    Anonymous methods
    support for pointermath and a new compiler directive: $POINTERMATH
    Four new compiler warnings:
        W1057 Implicit string cast from '%s' to '%s',
        W1058 Implicit string cast with potential data loss from '%s' to '%s',
        W1059 Explicit string cast from '%s' to '%s',
        W1060 Explicit string cast with potential data loss from '%s' to '%s'.
    The Exit function can take a parameter specifying a result.
    resourcestrings as Widestrings

Delphi 2007

    No language changes that I know of.
    Note that Delphi 2007 is a non-breaking release, DCUs from D2006 will work unchanged in D2007

Delphi 2006

    Enhanced records;
    operator overloading;
    class helpers
    FastMM is the default memory manager

Delphi 2005

    multi-unit namespaces,
    for ... in ... do loops,
    inline keyword

Delphi 7

    three additional compiler warnings:
        Unsafe_Type,
        Unsafe_Code, and
        Unsafe_Cast. These warnings are disabled by default, but can be enabled
    new compiler directive {$WARN UNSAFE_CODE ON}

Delphi 6

    New compiler directives:
        {$IFDEF MSWINDOWS}
        {$IFDEF LINUX}
    Support for {$IF}{$ELSE} compiler directives
    Variant is no longer based on COM but changed to be CLX compatible, COM based variant renamed to OLEVariant
    Typed constants cannot be assigned to (Override with {$J+})
    Enumerated types can be assigned an explicit value (cf C++);
    Interface properties
    Support for calling varargs external functions

Delphi 5

    No new language features, but:
        Support added for Frames

Delphi 4

    Dynamic arrays
    LongWord and Int64; Cardinal is an UINT32 (before it was unsigned 31-bit value)
    Real takes 8 bytes and is the same as double (previously it was 6 bytes);
        Override with the new {$REALCOMPATIBILITY ON} compiler directive;
        REAL48 replaces the old 6-byte real;
    Support for resourcestrings

Delphi 3

    Wordbool, longbool and bytebool store false as -1 instead of 1 (Boolean is unchanged)
    Components must be installed using packages

Delphi 2

    Support for 32-bit;
    Ansistring replaces shortstring as the default string type
    Widestring
    4 byte data is 4 byte aligned new packed keyword overrides this behavior;
    TDateTime starts at 1899/12/30 under D1 it started at 0000/00/00
    new finalization keyword
    register and stdcall calling conventions added.
    interface keyword and COM support 
تفاصيل أكثر:

What`s New in Delphi and C++Builder XE3
What's New in Delphi and C++Builder XE2
What's New in Delphi and C++Builder XE
What's New in Delphi and C++Builder 2010
What's New in Delphi and C++Builder 2009
What's New in RAD Studio (Delphi for Win32 2007)
What's New in RAD Studio (C++Builder 2007)
What’s New in Delphi 2006
What’s New in Delphi 2005
What’s New in Delphi 7
What’s New in Delphi 6
What’s New in Delphi 5
What's New in Delphi 3

بالتوفيق.]]> السلام عليكم

هنا مختصر الجديد في إصدارات دلفي منقول للفائدة:
PHP كود :
Delphi XE3

    New Metropolis UI Applications for Delphi VCL and FireMonkey 
    FireMonkey Enhancements for XE3
    LiveBindings Enhancements for XE3
    Entitlement List and Provisioning page for Sandboxing Mac OS X Applications

Delphi XE2

    Cross platform support for Mac OSX (32-bit) and iOS;
    Support for Win64;
    Modified RTL to support cross platform;
    Packed Now Forces Byte Alignment of Records (Pre XE2 it did not necessarily do this)

    Eight new DEFINEs have been added:

    ALIGN_STACK
    CPUX86
    CPUX64
    MACOS (Mac operating system)
    MACOS32
    PC_MAPPED_EXCEPTIONS
    PIC
    WIN64
    Full unit scope names are now required in your uses clause.
    The build-in types differ depending on the target platform (32/64-bit)
        Extended Data Type Is 10 bytes on Win32, but 8 (!) bytes on Win64

Delphi XE

    The $STRINGCHECKS compiler directive is ignored in XE;
    New 16-byte value for the {$ALIGN} directive: The acceptable values for the {$ALIGN} directive now include 1, 2, 4, 8, and 16.
    new $CODEALIGN directive, this sets the starting address for a procedure or function.
    The {$STRONGLINKTYPES ON} directive

Delphi 2010

    Enhanced Delphi RTTI (Run Time Type Information).
    The as operator can be used to cast an interface reference back to the object from which it was extracted.
    The is operator can be used to verify whether an interface reference was extracted from a certain class.
    Normal unsafe casting can be performed on an interface: TObject(SomeInterface).
    new delayed directive indicates that an external library such as a DLL is not to be loaded at the declaration time but is to wait until the first call to the library.

Delphi 2009

    Generic type string now maps to UnicodeString
    Generics;
    Smart pointers;
    Anonymous methods
    support for pointermath and a new compiler directive: $POINTERMATH
    Four new compiler warnings:
        W1057 Implicit string cast from '%s' to '%s',
        W1058 Implicit string cast with potential data loss from '%s' to '%s',
        W1059 Explicit string cast from '%s' to '%s',
        W1060 Explicit string cast with potential data loss from '%s' to '%s'.
    The Exit function can take a parameter specifying a result.
    resourcestrings as Widestrings

Delphi 2007

    No language changes that I know of.
    Note that Delphi 2007 is a non-breaking release, DCUs from D2006 will work unchanged in D2007

Delphi 2006

    Enhanced records;
    operator overloading;
    class helpers
    FastMM is the default memory manager

Delphi 2005

    multi-unit namespaces,
    for ... in ... do loops,
    inline keyword

Delphi 7

    three additional compiler warnings:
        Unsafe_Type,
        Unsafe_Code, and
        Unsafe_Cast. These warnings are disabled by default, but can be enabled
    new compiler directive {$WARN UNSAFE_CODE ON}

Delphi 6

    New compiler directives:
        {$IFDEF MSWINDOWS}
        {$IFDEF LINUX}
    Support for {$IF}{$ELSE} compiler directives
    Variant is no longer based on COM but changed to be CLX compatible, COM based variant renamed to OLEVariant
    Typed constants cannot be assigned to (Override with {$J+})
    Enumerated types can be assigned an explicit value (cf C++);
    Interface properties
    Support for calling varargs external functions

Delphi 5

    No new language features, but:
        Support added for Frames

Delphi 4

    Dynamic arrays
    LongWord and Int64; Cardinal is an UINT32 (before it was unsigned 31-bit value)
    Real takes 8 bytes and is the same as double (previously it was 6 bytes);
        Override with the new {$REALCOMPATIBILITY ON} compiler directive;
        REAL48 replaces the old 6-byte real;
    Support for resourcestrings

Delphi 3

    Wordbool, longbool and bytebool store false as -1 instead of 1 (Boolean is unchanged)
    Components must be installed using packages

Delphi 2

    Support for 32-bit;
    Ansistring replaces shortstring as the default string type
    Widestring
    4 byte data is 4 byte aligned new packed keyword overrides this behavior;
    TDateTime starts at 1899/12/30 under D1 it started at 0000/00/00
    new finalization keyword
    register and stdcall calling conventions added.
    interface keyword and COM support 
تفاصيل أكثر:

What`s New in Delphi and C++Builder XE3
What's New in Delphi and C++Builder XE2
What's New in Delphi and C++Builder XE
What's New in Delphi and C++Builder 2010
What's New in Delphi and C++Builder 2009
What's New in RAD Studio (Delphi for Win32 2007)
What's New in RAD Studio (C++Builder 2007)
What’s New in Delphi 2006
What’s New in Delphi 2005
What’s New in Delphi 7
What’s New in Delphi 6
What’s New in Delphi 5
What's New in Delphi 3

بالتوفيق.]]> <![CDATA[أنماط المجموعات Collections]]> https://delphi4arab.net/forum/showthread.php?tid=3970 Thu, 08 Mar 2012 01:21:48 +0100 kachwahed]]> https://delphi4arab.net/forum/showthread.php?tid=3970 السلام عليكم ورحمة الله

قد نحتاج في حالات كثيرة زمن التشغيل إلى استخدام سلسلة من الكائنات ديناميكا
الجداول الثابتة Static Array أو الديناميكية قد تفي بالغرض في حالات ضيقة
لكن لاستخدامات أوسع: الحذف، الترتيب، المقارنة، البحث، الدمج... ينبغي برمجة ذلك يدويا

لنفكر لتوجه غرضي، البديل استخدام TList المعرف في المكتبة Classes.pas
يمثل سلسلة من الكائنات TObject فهو بذلك نمط مرن
وبالتالي باستخدام القولبة يمكنك توظيفه لأي كائن آخر
لتستفيد من الخصائص التقليدية للسلاسل المتصلة Exchange, Expand, Extract, First, IndexOf, Insert, Last, Move ,Remove, Pack, Sort, Capacity, Count, Items وغيرها...
طبعا دون إعادة كتابة الخوارزميات الجاهزة يكفي إعادة توريثها
مثال TIntegerList مصغرة:
PHP كود :
type
  TIntegerList = class(TList)
  private
    function Get(Index: Integer): Integer;
...
function TIntegerList.Get(Index: Integer): Integer;
begin 
   Result := Integer(inherited Items[Index]); 
end; 
تتمة الكود في المرفق IntList.rar

عند استخدامه مع أصناف أخرى يستحسن عدم توريثه مباشرة
وإلا قد تجبر مستخدمه على القولبة عند كل استخدام
PHP كود :
type
  TMyList = class
  private
    FMyList: TList;//<-- Best practice
    function GetItems(Index: Integer): TMyList;
    procedure SetItems(Index: Integer; const Value: TMyList);
  public
    function Add(Item: TMyList): Integer;
    property Items[Index: Integer]: TMyList read GetItems write SetItems; default;
  end; 
TList خفيف ويصلح مع الأنماط الصغيرة

عند التعامل مع صنفيات أكثر أهمية (مثل المكونات)
أو تحتاج إلى استخدامات متقدمة
يمكنك الاستفادة من خدمات المكتبة Contnrs.pas المرفقة مع دلفي (إصدار >= 5 على الأقل)
كود :
TObjectList TClassList TComponentList

باختصار:
TCollection وTCollectionItem تصميم رائع يختصر الكثير من العمل
يسمح هذان الصنفان بتجسيد العلاقة واحد إلى متعدد بين أصناف دلفي
كيف ذلك؟
لنشاهد المثال الآتي: نرغب بإنشاء صنفين "عامل" TEmployee و"مجموعة عمال" TEmployees
عامل واحد يمثل هنا غرض من TCollectionItem
في حين تمثل مجموعة العمال بالصنف TCollection
PHP كود :
type
  TEmployee = class(TCollectionItem)
  private
    FFirstName: string;
    FAge: SmallInt;
    procedure SetFirstName(const Value: string);
    procedure SetAge(const Value: SmallInt);
  public
    property FirstName: string read FFirstName write SetFirstName;
    property Age: SmallInt read FAge write SetAge;
  end;

  TEmployees = class(TCollection)
  private
    function GetItem(Index: Integer): TEmployee;
  public
    function Add: TEmployee;
    property Items[Index: Integer]: TEmployee read GetItem; default;
  end; 
انسى أمر الـ Implementation، لنشاهد الاستخدام
الآن، لن نستخدم الصنف TEmployee (إلا مرة واحدة عند الإنشاء) لن نتعامل مع "عامل" واحد
بل سنقوم بإنشاء كائن من مجموعة العمال TEmployees ونخبره بالصنف الذي سنستخدمه كعنصر Item
كود :
[color=black][COLOR="Red"]TEmployees[/color].Create([color=Blue]TEmployee[/color])[/COLOR]
كل ما نحن بحاجة إليه موجود في الصنف TEmployees، للإضافة Add وDelete للحذف وغيرهما...
مثال:
PHP كود :
var
  Team: TEmployees;
  Officer: TEmployee;
begin

  Team := TEmployees.Create(TEmployee);
  Officer := Team.Add;
  Officer.FirstName := 'Mohamed';
  Officer.Age := 35;

  Writeln('Officer:');
  with Team[0] do
    Writeln('Name: ', FirstName, #13#10'Age: ', Age);
  Team.Free; 
وما الذي سنستفيد من كل ذلك؟
الصنف TCollection مشتق من الصنف TPersistent وبذلك تستفيد من كل ما يوفره من Assign، التدفقات Streaming، وOwnership إذا أضفنا TOwnedCollection...
وسنختزل الكثير من الوقت مقارنة بما لو كتبنا ذلك من الصفر...
صممت هذه الأنماط لأجل برمجة المكونات وهي مناسبة جدا لها:
[صورة: attachment.php?attachmentid=3343&stc=1&d=1331163295]
معظم مكونات دلفي تستخدم هذه الأنماط TActionListItem، TListColumn، TColumn...

أنماط أخرى أسهل من هذه؟
TObjectList أسهل من حيث التعامل
تنطلق من TList ولا تختلف عنها كثيرا
لتضيف ميزة رائعة وهي تدمير تلقائي للأغراض المضافة (مع ضبط OwnsObjects = True وهي كذلك افتراضيا)، مثال: لنفترض الصنف TPerson له خاصية FullName ترفق له عند الإنشاء، نكتب:
PHP كود :
type
  TPersonList = class(TObjectList)
  private
    function GetItem(Index: Integer): TPerson;
    procedure SetItem(Index: Integer; const Value: TPerson);
  public
    property Items[Index : Integer]: TPerson read GetItem write SetItem; default;
  end;
...
  with TPersonList.Create do begin//By default OwnsObjects = True
    Add(TPerson.Create('Ahmed'));
    Add(TPerson.Create('Said'));
    for I := 0 to Count - 1 do
      Writeln('Member: ', Items[I].FullName);
//    Clear; //Free;  <- XE!
  end; 
بعض إصدارات دلفي تحوي أخطاء بخصوص تسيير الذاكرة يستحسن التحقق منها ReportMemoryLeaksOnShutdown أو مكتبات خارجية أو غير ذلك...

بقيت TClassList التي تمثل TList لتسيير صنف من الأصناف TClass = class of TObject
أما TComponentList فتشتق من TObjectList لتضيف إمكانية التحديث التلقائي عند حذف العناصر وتحرير الذاكرة عند التدمير...
كود الأمثلة السابقة في المرفق CollectionsExample.rar

هذا مثال أأكد من خلاله أنه إذا عرفنا فقط كيف نستخدم ما بأيدينا من مكتبات دون اللجوء إلى المكونات الإضافية أو البحث في النت، لاختصرنا الكثير من الوقت والجهد مع تحقيق نتائج أفضل. أليس كذلك Smile

بالتوفيق.

.rar   IntList.rar (الحجم : 536 بايت / التحميلات : 82)

.jpg   TCollectionDesign.JPG (الحجم : 100.32 ك ب / التحميلات : 204)

.rar   CollectionsExample.rar (الحجم : 2.02 ك ب / التحميلات : 93) ]]> السلام عليكم ورحمة الله

قد نحتاج في حالات كثيرة زمن التشغيل إلى استخدام سلسلة من الكائنات ديناميكا
الجداول الثابتة Static Array أو الديناميكية قد تفي بالغرض في حالات ضيقة
لكن لاستخدامات أوسع: الحذف، الترتيب، المقارنة، البحث، الدمج... ينبغي برمجة ذلك يدويا

لنفكر لتوجه غرضي، البديل استخدام TList المعرف في المكتبة Classes.pas
يمثل سلسلة من الكائنات TObject فهو بذلك نمط مرن
وبالتالي باستخدام القولبة يمكنك توظيفه لأي كائن آخر
لتستفيد من الخصائص التقليدية للسلاسل المتصلة Exchange, Expand, Extract, First, IndexOf, Insert, Last, Move ,Remove, Pack, Sort, Capacity, Count, Items وغيرها...
طبعا دون إعادة كتابة الخوارزميات الجاهزة يكفي إعادة توريثها
مثال TIntegerList مصغرة:
PHP كود :
type
  TIntegerList = class(TList)
  private
    function Get(Index: Integer): Integer;
...
function TIntegerList.Get(Index: Integer): Integer;
begin 
   Result := Integer(inherited Items[Index]); 
end; 
تتمة الكود في المرفق IntList.rar

عند استخدامه مع أصناف أخرى يستحسن عدم توريثه مباشرة
وإلا قد تجبر مستخدمه على القولبة عند كل استخدام
PHP كود :
type
  TMyList = class
  private
    FMyList: TList;//<-- Best practice
    function GetItems(Index: Integer): TMyList;
    procedure SetItems(Index: Integer; const Value: TMyList);
  public
    function Add(Item: TMyList): Integer;
    property Items[Index: Integer]: TMyList read GetItems write SetItems; default;
  end; 
TList خفيف ويصلح مع الأنماط الصغيرة

عند التعامل مع صنفيات أكثر أهمية (مثل المكونات)
أو تحتاج إلى استخدامات متقدمة
يمكنك الاستفادة من خدمات المكتبة Contnrs.pas المرفقة مع دلفي (إصدار >= 5 على الأقل)
كود :
TObjectList TClassList TComponentList

باختصار:
TCollection وTCollectionItem تصميم رائع يختصر الكثير من العمل
يسمح هذان الصنفان بتجسيد العلاقة واحد إلى متعدد بين أصناف دلفي
كيف ذلك؟
لنشاهد المثال الآتي: نرغب بإنشاء صنفين "عامل" TEmployee و"مجموعة عمال" TEmployees
عامل واحد يمثل هنا غرض من TCollectionItem
في حين تمثل مجموعة العمال بالصنف TCollection
PHP كود :
type
  TEmployee = class(TCollectionItem)
  private
    FFirstName: string;
    FAge: SmallInt;
    procedure SetFirstName(const Value: string);
    procedure SetAge(const Value: SmallInt);
  public
    property FirstName: string read FFirstName write SetFirstName;
    property Age: SmallInt read FAge write SetAge;
  end;

  TEmployees = class(TCollection)
  private
    function GetItem(Index: Integer): TEmployee;
  public
    function Add: TEmployee;
    property Items[Index: Integer]: TEmployee read GetItem; default;
  end; 
انسى أمر الـ Implementation، لنشاهد الاستخدام
الآن، لن نستخدم الصنف TEmployee (إلا مرة واحدة عند الإنشاء) لن نتعامل مع "عامل" واحد
بل سنقوم بإنشاء كائن من مجموعة العمال TEmployees ونخبره بالصنف الذي سنستخدمه كعنصر Item
كود :
[color=black][COLOR="Red"]TEmployees[/color].Create([color=Blue]TEmployee[/color])[/COLOR]
كل ما نحن بحاجة إليه موجود في الصنف TEmployees، للإضافة Add وDelete للحذف وغيرهما...
مثال:
PHP كود :
var
  Team: TEmployees;
  Officer: TEmployee;
begin

  Team := TEmployees.Create(TEmployee);
  Officer := Team.Add;
  Officer.FirstName := 'Mohamed';
  Officer.Age := 35;

  Writeln('Officer:');
  with Team[0] do
    Writeln('Name: ', FirstName, #13#10'Age: ', Age);
  Team.Free; 
وما الذي سنستفيد من كل ذلك؟
الصنف TCollection مشتق من الصنف TPersistent وبذلك تستفيد من كل ما يوفره من Assign، التدفقات Streaming، وOwnership إذا أضفنا TOwnedCollection...
وسنختزل الكثير من الوقت مقارنة بما لو كتبنا ذلك من الصفر...
صممت هذه الأنماط لأجل برمجة المكونات وهي مناسبة جدا لها:
[صورة: attachment.php?attachmentid=3343&stc=1&d=1331163295]
معظم مكونات دلفي تستخدم هذه الأنماط TActionListItem، TListColumn، TColumn...

أنماط أخرى أسهل من هذه؟
TObjectList أسهل من حيث التعامل
تنطلق من TList ولا تختلف عنها كثيرا
لتضيف ميزة رائعة وهي تدمير تلقائي للأغراض المضافة (مع ضبط OwnsObjects = True وهي كذلك افتراضيا)، مثال: لنفترض الصنف TPerson له خاصية FullName ترفق له عند الإنشاء، نكتب:
PHP كود :
type
  TPersonList = class(TObjectList)
  private
    function GetItem(Index: Integer): TPerson;
    procedure SetItem(Index: Integer; const Value: TPerson);
  public
    property Items[Index : Integer]: TPerson read GetItem write SetItem; default;
  end;
...
  with TPersonList.Create do begin//By default OwnsObjects = True
    Add(TPerson.Create('Ahmed'));
    Add(TPerson.Create('Said'));
    for I := 0 to Count - 1 do
      Writeln('Member: ', Items[I].FullName);
//    Clear; //Free;  <- XE!
  end; 
بعض إصدارات دلفي تحوي أخطاء بخصوص تسيير الذاكرة يستحسن التحقق منها ReportMemoryLeaksOnShutdown أو مكتبات خارجية أو غير ذلك...

بقيت TClassList التي تمثل TList لتسيير صنف من الأصناف TClass = class of TObject
أما TComponentList فتشتق من TObjectList لتضيف إمكانية التحديث التلقائي عند حذف العناصر وتحرير الذاكرة عند التدمير...
كود الأمثلة السابقة في المرفق CollectionsExample.rar

هذا مثال أأكد من خلاله أنه إذا عرفنا فقط كيف نستخدم ما بأيدينا من مكتبات دون اللجوء إلى المكونات الإضافية أو البحث في النت، لاختصرنا الكثير من الوقت والجهد مع تحقيق نتائج أفضل. أليس كذلك Smile

بالتوفيق.

.rar   IntList.rar (الحجم : 536 بايت / التحميلات : 82)

.jpg   TCollectionDesign.JPG (الحجم : 100.32 ك ب / التحميلات : 204)

.rar   CollectionsExample.rar (الحجم : 2.02 ك ب / التحميلات : 93) ]]> <![CDATA[دلفي وإطارات العمل Delphi's Framework]]> https://delphi4arab.net/forum/showthread.php?tid=3571 Sun, 06 Nov 2011 00:53:59 +0100 kachwahed]]> https://delphi4arab.net/forum/showthread.php?tid=3571 السلام عليكم
Frameworks مصطلح حديث الساعة هذه الأعوام، ومصدر قلق لكثير من المبرمجين ذلك لما له من تأثير على الإنتاجية، لكن ما هي الـ Frameworks؟
هل لاحظت أن هناك تقاليد روتينية نقوم بها عند إنشاء برامج ذات صبغة معينة؟
كم مرة تحاول إنشاء نموذج إضافة/حذف/تعديل ؟
كم مرة قمت فيها بإنشاء واجهة للاتصال بقاعدة بيانات Login مع اسم مستخدم وكلمة مرور؟
كم مرة وأنت تقوم بنسخ شيفرة من مشروع إلى آخر؟
والأدهى من ذلك: كم سيتطلب منك نقل مشروع من محرك قواعد بيانات إلى آخر (مختلف تماما)، وقس على ذلك تغيير المكونات...

طبعا إذا كنت محترف وتبرمج كل شيء 100% بشكل غرضي موجه (OOP) حتى الواجهات والإطارات، فلن تشعر بفرق كبير إذا انتقلت على Framework

ربما لا نسمع كثيرا عن الـ Framework في في دلفي، وهذا (برأيي) يرجع إلى أن دلفي تنفرد بفلسفة المكونات ومكتبات الربط المتشاركة، التي تجعلنا غالبا نستغني عن آلاف الأسطر البرمجية بمجرد نصب مكون صغير على نموذج البرنامج!

لكن مع كثرة ممارسة البرمجة ستشعر أن هناك أعمال (وأكواد) تحتاج إلى فصلها عن برامجك من أجل:
المرونة، قابلية التوسع، إعادة الاستخدام... وبالتالي ستقوم بإنشاء Framework خاص بك!

وعوض أن يقوم كل مبرمج بإنشاء Framework خاص به، تم تصميم تجميعات Framework يتشارك جمع من المبرمجين فيها، مع تنقيحات وتحسينات واختبارات مكثفة و... لجعلها أكثر مرونة، قابلية للتوسع، أكثر أهلية للإعادة الاستخدام...

معظم الـ Frameworks في النت مجانية ومفتوح المصدر ومقسمة إلى أبواب تجمع كل منها وظائف روتينية عند المبرمج:
[صورة: attachment.php?attachmentid=3064&stc=1&d=1320535358]

delphi-spring-framework هو framework آخر مفتوح المصدر لـ Apache الرائدة في صناعة frameworks لكثير من لغات البرمجة (مستوحاة من Spring عند مبرمجي Java)
موقعه:
كود :
http://code.google.com/p/delphi-spring-framework/
G-framework هو الآخر مفتوح المصدر:
كود :
http://g-framework.org/

ORM أو Object Relation Mapping هو نوع من الـ Frameworks مخصص لتطبيقات البيانات خاصة
هدفه بناء طبقة تسهل التعامل مع محركات قواعد البيانات وتشاهدها بشكل غرضي موجه (المنحى للكائن)
لدلفي نصيب منها:
كود :
http://sourceforge.net/projects/larryhengensopf/
مجانية ومفتوحة المصدر كذلك:
كود :
http://tiopf.sourceforge.net/index.shtml
بالتوفيق للجميع.

.jpg   delphi-spring-framework-architecture.jpg (الحجم : 35.69 ك ب / التحميلات : 349) ]]> السلام عليكم
Frameworks مصطلح حديث الساعة هذه الأعوام، ومصدر قلق لكثير من المبرمجين ذلك لما له من تأثير على الإنتاجية، لكن ما هي الـ Frameworks؟
هل لاحظت أن هناك تقاليد روتينية نقوم بها عند إنشاء برامج ذات صبغة معينة؟
كم مرة تحاول إنشاء نموذج إضافة/حذف/تعديل ؟
كم مرة قمت فيها بإنشاء واجهة للاتصال بقاعدة بيانات Login مع اسم مستخدم وكلمة مرور؟
كم مرة وأنت تقوم بنسخ شيفرة من مشروع إلى آخر؟
والأدهى من ذلك: كم سيتطلب منك نقل مشروع من محرك قواعد بيانات إلى آخر (مختلف تماما)، وقس على ذلك تغيير المكونات...

طبعا إذا كنت محترف وتبرمج كل شيء 100% بشكل غرضي موجه (OOP) حتى الواجهات والإطارات، فلن تشعر بفرق كبير إذا انتقلت على Framework

ربما لا نسمع كثيرا عن الـ Framework في في دلفي، وهذا (برأيي) يرجع إلى أن دلفي تنفرد بفلسفة المكونات ومكتبات الربط المتشاركة، التي تجعلنا غالبا نستغني عن آلاف الأسطر البرمجية بمجرد نصب مكون صغير على نموذج البرنامج!

لكن مع كثرة ممارسة البرمجة ستشعر أن هناك أعمال (وأكواد) تحتاج إلى فصلها عن برامجك من أجل:
المرونة، قابلية التوسع، إعادة الاستخدام... وبالتالي ستقوم بإنشاء Framework خاص بك!

وعوض أن يقوم كل مبرمج بإنشاء Framework خاص به، تم تصميم تجميعات Framework يتشارك جمع من المبرمجين فيها، مع تنقيحات وتحسينات واختبارات مكثفة و... لجعلها أكثر مرونة، قابلية للتوسع، أكثر أهلية للإعادة الاستخدام...

معظم الـ Frameworks في النت مجانية ومفتوح المصدر ومقسمة إلى أبواب تجمع كل منها وظائف روتينية عند المبرمج:
[صورة: attachment.php?attachmentid=3064&stc=1&d=1320535358]

delphi-spring-framework هو framework آخر مفتوح المصدر لـ Apache الرائدة في صناعة frameworks لكثير من لغات البرمجة (مستوحاة من Spring عند مبرمجي Java)
موقعه:
كود :
http://code.google.com/p/delphi-spring-framework/
G-framework هو الآخر مفتوح المصدر:
كود :
http://g-framework.org/

ORM أو Object Relation Mapping هو نوع من الـ Frameworks مخصص لتطبيقات البيانات خاصة
هدفه بناء طبقة تسهل التعامل مع محركات قواعد البيانات وتشاهدها بشكل غرضي موجه (المنحى للكائن)
لدلفي نصيب منها:
كود :
http://sourceforge.net/projects/larryhengensopf/
مجانية ومفتوحة المصدر كذلك:
كود :
http://tiopf.sourceforge.net/index.shtml
بالتوفيق للجميع.

.jpg   delphi-spring-framework-architecture.jpg (الحجم : 35.69 ك ب / التحميلات : 349) ]]> <![CDATA[DWScript محرك سركيبتات]]> https://delphi4arab.net/forum/showthread.php?tid=2868 Sat, 05 Mar 2011 16:35:38 +0100 kachwahed]]> https://delphi4arab.net/forum/showthread.php?tid=2868 السلام عليكم ورحمة الله
مشروع DWScript مفتوح المصدر
يمثل محرك سركيبتات يهدف إلى اقتحام دلفي مجال الويب بشكل أوسع
الموقع:
PHP كود :
http://code.google.com/p/dwscript/ 
مدونة:
كود :
http://delphitools.info/
للتجربة حمل المشروع ثم قم بتوليد ملف bpl
المرفق bpl مترجم على دلفي XE.

.rar   DWScript.BPL.rar (الحجم : 331.49 ك ب / التحميلات : 261) ]]> السلام عليكم ورحمة الله
مشروع DWScript مفتوح المصدر
يمثل محرك سركيبتات يهدف إلى اقتحام دلفي مجال الويب بشكل أوسع
الموقع:
PHP كود :
http://code.google.com/p/dwscript/ 
مدونة:
كود :
http://delphitools.info/
للتجربة حمل المشروع ثم قم بتوليد ملف bpl
المرفق bpl مترجم على دلفي XE.

.rar   DWScript.BPL.rar (الحجم : 331.49 ك ب / التحميلات : 261) ]]> <![CDATA[فوائد اضافة المكونات برمجيا]]> https://delphi4arab.net/forum/showthread.php?tid=2650 Sat, 18 Dec 2010 15:29:16 +0100 vb_manager]]> https://delphi4arab.net/forum/showthread.php?tid=2650 احببت اليوم ان نناقش فوائد اضافة الادوات والمكونات برمجيا

ا- سيعمل على تصغير حجم البريمج
من المعروف ان الدلفى يكتب عنك الاكواد البرمجية والخصائص للاداة عند اضافتها للفورم
يكتب كل شئ الذى هو default الى ان تقم انت بتغيير القيم
يمكن يكون للعنصر الواحد عشرين خاصية فيكتبها .... ولكن انت بواسطة اكواد البرمجة تكتب سبع خواص مثلا ... لان هذه التى ستغير قيمها فقط
بذلك تستغنى عن 13 خاصية تضاف اتوماتك عند ظهور المكون على الفورم وقت التشغيل ولكن بدون حفظها فى البريمج
فيصغر حجم البريمج جدا

2- سيعمل على سرعة تنفيذ اكواد البريمج

3- وهذا الاهم هناك ادوات active X cnrols بتكون غير مجانية ولا تستطيع انت ان تستخدمها لانها اولا بتعمل error عند اضافتها للفورم وهو ole error تستطيع اضافتها برمجيا وتستفيد منها بدون اى مشاكل التسجيل وخلافه

تحياتى]]> احببت اليوم ان نناقش فوائد اضافة الادوات والمكونات برمجيا

ا- سيعمل على تصغير حجم البريمج
من المعروف ان الدلفى يكتب عنك الاكواد البرمجية والخصائص للاداة عند اضافتها للفورم
يكتب كل شئ الذى هو default الى ان تقم انت بتغيير القيم
يمكن يكون للعنصر الواحد عشرين خاصية فيكتبها .... ولكن انت بواسطة اكواد البرمجة تكتب سبع خواص مثلا ... لان هذه التى ستغير قيمها فقط
بذلك تستغنى عن 13 خاصية تضاف اتوماتك عند ظهور المكون على الفورم وقت التشغيل ولكن بدون حفظها فى البريمج
فيصغر حجم البريمج جدا

2- سيعمل على سرعة تنفيذ اكواد البريمج

3- وهذا الاهم هناك ادوات active X cnrols بتكون غير مجانية ولا تستطيع انت ان تستخدمها لانها اولا بتعمل error عند اضافتها للفورم وهو ole error تستطيع اضافتها برمجيا وتستفيد منها بدون اى مشاكل التسجيل وخلافه

تحياتى]]> <![CDATA[طريقتان مغنيتان عن إضافة مكوّنات جديدة]]> https://delphi4arab.net/forum/showthread.php?tid=2197 Sun, 18 Jul 2010 10:12:38 +0100 أبو محمد اللحياني]]> https://delphi4arab.net/forum/showthread.php?tid=2197
الكثير من المبرمجين يبحث عن مكونات جديدة لاستخدامها ويرفقها مع مشروعه إن كان مفتوح المصدر، أو يجد تلك المكونات مُرْفَقة مع المشروع فيضطر لتركيبها.

ولكن الكثير منا يستاء من إجباره على إضافة مكونات جديدة لأجل تشغيل بعض المشاريع والأمثلة، وهو لا يرغب أصلاً في تركيب هذه المكونات ثم يحذفها بعد مشاهدة المثال.

الحل الآن الذي أنصح به لا يغني تركيب هذه المكونات لتلك المشاريع المبرمجة بل لا يغني عمل مكونات وباكجات جديدة، ولكني أنصح به في التعديلات البسيطة التي تجريها على المكونات

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

ففي حالة استخدام مكونات دلفي وترغيب في وجود مناهج أو إجراءات أو خصائص عن متوفرة فيها فعليك استخدام إحدى الطريقتين :
الطريقة الأولى : عليك كتابة المكوّن الجديد قبل التصريح عن نموذج النافذة
هذا مثال تخيلي من عندي :
كود :
type TAlignText = (atCenter, atRight, atLeft); TEdit = class(StdCtrls.TEdit) private FalignTex : TAlignText; procedure setAlignText(const Value: TAlignText); published property alignText : TAlignText read FalignTex write setAlignText; end; TForm1 = class(TForm) Edit1 : TEdit; . . .

مثال عملي كامل تجده هنا :
كود :
http://www.stevetrefethen.com/blog/UsingGoogleMapsFromVCLSampleApplication.aspx
والتحميل من هنا :
كود :
http://www.stevetrefethen.com/files/googlemap.zip


الطريقة الثانية : استخدام : TMyHelper = class helper for TNeedObject

ولعل الطريقة هذه فقط في delphi2010

والطريقة وجدتها عن استخدامي للوحدة superobject.pas

وجدت أن جميع الكائنات الأصلية في الدلفي بلا استثناء فيها الإجرائين : toJson و FromJson . ثم وجدت السر هنا :
كود :
TSuperObjectHelper = class helper for TObject public function ToJson(ctx: TSuperRttiContext = nil): ISuperObject; constructor FromJson(const obj: ISuperObject; ctx: TSuperRttiContext = nil); overload; constructor FromJson(const str: string; ctx: TSuperRttiContext = nil); overload; end;


بالتوفيق ومن كان عنده إضافة علم فلا يحرمنا منها .]]>
الكثير من المبرمجين يبحث عن مكونات جديدة لاستخدامها ويرفقها مع مشروعه إن كان مفتوح المصدر، أو يجد تلك المكونات مُرْفَقة مع المشروع فيضطر لتركيبها.

ولكن الكثير منا يستاء من إجباره على إضافة مكونات جديدة لأجل تشغيل بعض المشاريع والأمثلة، وهو لا يرغب أصلاً في تركيب هذه المكونات ثم يحذفها بعد مشاهدة المثال.

الحل الآن الذي أنصح به لا يغني تركيب هذه المكونات لتلك المشاريع المبرمجة بل لا يغني عمل مكونات وباكجات جديدة، ولكني أنصح به في التعديلات البسيطة التي تجريها على المكونات

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

ففي حالة استخدام مكونات دلفي وترغيب في وجود مناهج أو إجراءات أو خصائص عن متوفرة فيها فعليك استخدام إحدى الطريقتين :
الطريقة الأولى : عليك كتابة المكوّن الجديد قبل التصريح عن نموذج النافذة
هذا مثال تخيلي من عندي :
كود :
type TAlignText = (atCenter, atRight, atLeft); TEdit = class(StdCtrls.TEdit) private FalignTex : TAlignText; procedure setAlignText(const Value: TAlignText); published property alignText : TAlignText read FalignTex write setAlignText; end; TForm1 = class(TForm) Edit1 : TEdit; . . .

مثال عملي كامل تجده هنا :
كود :
http://www.stevetrefethen.com/blog/UsingGoogleMapsFromVCLSampleApplication.aspx
والتحميل من هنا :
كود :
http://www.stevetrefethen.com/files/googlemap.zip


الطريقة الثانية : استخدام : TMyHelper = class helper for TNeedObject

ولعل الطريقة هذه فقط في delphi2010

والطريقة وجدتها عن استخدامي للوحدة superobject.pas

وجدت أن جميع الكائنات الأصلية في الدلفي بلا استثناء فيها الإجرائين : toJson و FromJson . ثم وجدت السر هنا :
كود :
TSuperObjectHelper = class helper for TObject public function ToJson(ctx: TSuperRttiContext = nil): ISuperObject; constructor FromJson(const obj: ISuperObject; ctx: TSuperRttiContext = nil); overload; constructor FromJson(const str: string; ctx: TSuperRttiContext = nil); overload; end;


بالتوفيق ومن كان عنده إضافة علم فلا يحرمنا منها .]]> <![CDATA[المكونGecko]]> https://delphi4arab.net/forum/showthread.php?tid=1466 Sun, 03 Jan 2010 21:11:30 +0100 أبو محمد اللحياني]]> https://delphi4arab.net/forum/showthread.php?tid=1466
كود :
http://www.google.com/search?q=delphi+gecko

المكون Gecko هو الـ WebBrowser للمتصفح الذكي والمجاني FireFox

كود :
http://ftp.newbielabs.com/Delphi%20Gecko%20SDK/Readme.htm

ويوجد له ActiveX تعمل مثل WebBrowser لـ المتصفح MSIE والموجودة في مكونات الدلفي.

كود :
http://www.iol.ie/~locka/mozilla/control.htm Mozilla ActiveX ControL

ويوجد في آخر الصفحة إمكانية استبدال MSIE WebBrowser بـ Gecko .

وأيضاً هنا :
كود :
http://delphi.mozdev.org/articles/taming_the_lizard_with_delphi.html

وللأسف لم أجد اهتمام بهذا المكون مع تفوق FF على IE المعروف.

وبدلاً من ActiveX يمكن استخدام المكون في الروابط في الاعلى .

ابدأ بتثبيت GeckoSDK ثم GeckoComponents ،

الآن مشروعك وليكن هو SampleApps يجب أن يصل مباشرة إلى محتويات المجلد Gre لكي يعمل، كأنك تنظر إلى المجلد الذي به المتصفح firefox .

انسخ المجلد Gre إلى مجلد باسم جديد، ثم انسخ محتويات المجلد SampleApps إلى المجلد السابق ، ليشتغل المشروع.

لأن GRE (Gecko Runtime Environment) البيئة التي يعلم عليها المكون.


أتمنى أن أكون قد وفقتُ في اختياري لهذا المكون .

والسلام عليكم ورحمة الله وبركاته]]>
كود :
http://www.google.com/search?q=delphi+gecko

المكون Gecko هو الـ WebBrowser للمتصفح الذكي والمجاني FireFox

كود :
http://ftp.newbielabs.com/Delphi%20Gecko%20SDK/Readme.htm

ويوجد له ActiveX تعمل مثل WebBrowser لـ المتصفح MSIE والموجودة في مكونات الدلفي.

كود :
http://www.iol.ie/~locka/mozilla/control.htm Mozilla ActiveX ControL

ويوجد في آخر الصفحة إمكانية استبدال MSIE WebBrowser بـ Gecko .

وأيضاً هنا :
كود :
http://delphi.mozdev.org/articles/taming_the_lizard_with_delphi.html

وللأسف لم أجد اهتمام بهذا المكون مع تفوق FF على IE المعروف.

وبدلاً من ActiveX يمكن استخدام المكون في الروابط في الاعلى .

ابدأ بتثبيت GeckoSDK ثم GeckoComponents ،

الآن مشروعك وليكن هو SampleApps يجب أن يصل مباشرة إلى محتويات المجلد Gre لكي يعمل، كأنك تنظر إلى المجلد الذي به المتصفح firefox .

انسخ المجلد Gre إلى مجلد باسم جديد، ثم انسخ محتويات المجلد SampleApps إلى المجلد السابق ، ليشتغل المشروع.

لأن GRE (Gecko Runtime Environment) البيئة التي يعلم عليها المكون.


أتمنى أن أكون قد وفقتُ في اختياري لهذا المكون .

والسلام عليكم ورحمة الله وبركاته]]> <![CDATA[التعامل مع ملفات ال pdf من خلال دلفي]]> https://delphi4arab.net/forum/showthread.php?tid=1402 Tue, 15 Dec 2009 12:28:19 +0100 issamdnn]]> https://delphi4arab.net/forum/showthread.php?tid=1402 وخطوات العمل كما يلي:
1- إبداً دلفي وإختار Component ثم Import ActiveX Control
2- أبحث عن 'Acrobat Control for ActiveX (Version x.x) ثم أضغط على زر Install
3-قم بإختيار مسار منصة العناصر التي سستوضع عليه المكتبة المختارة.
4-ربما من الأفضل أن تترك خيار الاكتف أكس فعال ثم قم بالضغط على Install
5- إختار الحزمة حيث سيتم تنصيب العنصر الجديد أو قم بإنشاء حزمة جديدة تحت أسم Tpdf control
6- قم بالضغط بعد ذلك على OK
7- سيقوم دلفي بتنبيهك فيما إذا كنت تريد إعادة البناء للباكيج أو تعديله.
8- بعد أن يتم ترجمة الباكج سيظهر دلفي رسالة تفيد بأن عنصر جديد أسمه tpdf تم تسجيله وبأنه أصبح جزاً من ال VCL
9- قم بإغلاق نافذة تفاصيل الباكيج لكي تسمح لدلفي بحفظ التغييرات عليها.
10-العنصر الأن فعال في صفحة ال ActiveX
11-أختر الأن العنصر tpdf الذي قمت بوضعه على الفورم.
12 - بإستخدام مفتش الكائنات الموجود في دلفي قم بجعل خاصية src تحمل أسم ملف ال pdf الموجود على جهازك .
الأن كل ما عليك فعله هو تغيير حجم العنصر وقراءة ملف ال PDF ضمن تطبيقك.


ملاحظة : إذا لم يكن لديك ملف ال ocx قمت بوضعه في المرفقات..

مع التوفيق للجميع.

.rar   pdf.rar (الحجم : 172.84 ك ب / التحميلات : 1828) ]]> وخطوات العمل كما يلي:
1- إبداً دلفي وإختار Component ثم Import ActiveX Control
2- أبحث عن 'Acrobat Control for ActiveX (Version x.x) ثم أضغط على زر Install
3-قم بإختيار مسار منصة العناصر التي سستوضع عليه المكتبة المختارة.
4-ربما من الأفضل أن تترك خيار الاكتف أكس فعال ثم قم بالضغط على Install
5- إختار الحزمة حيث سيتم تنصيب العنصر الجديد أو قم بإنشاء حزمة جديدة تحت أسم Tpdf control
6- قم بالضغط بعد ذلك على OK
7- سيقوم دلفي بتنبيهك فيما إذا كنت تريد إعادة البناء للباكيج أو تعديله.
8- بعد أن يتم ترجمة الباكج سيظهر دلفي رسالة تفيد بأن عنصر جديد أسمه tpdf تم تسجيله وبأنه أصبح جزاً من ال VCL
9- قم بإغلاق نافذة تفاصيل الباكيج لكي تسمح لدلفي بحفظ التغييرات عليها.
10-العنصر الأن فعال في صفحة ال ActiveX
11-أختر الأن العنصر tpdf الذي قمت بوضعه على الفورم.
12 - بإستخدام مفتش الكائنات الموجود في دلفي قم بجعل خاصية src تحمل أسم ملف ال pdf الموجود على جهازك .
الأن كل ما عليك فعله هو تغيير حجم العنصر وقراءة ملف ال PDF ضمن تطبيقك.


ملاحظة : إذا لم يكن لديك ملف ال ocx قمت بوضعه في المرفقات..

مع التوفيق للجميع.

.rar   pdf.rar (الحجم : 172.84 ك ب / التحميلات : 1828) ]]> <![CDATA[شرح فلاشي لتثبيت مكونات دلفي]]> https://delphi4arab.net/forum/showthread.php?tid=96 Sat, 22 Mar 2008 20:02:48 +0100 STRELiTZIA]]> https://delphi4arab.net/forum/showthread.php?tid=96 تم اعادة رفع الشرح الفلاشي لتركيب مكونات دلفي على المنتدى

تثبيت مكونات دلفي باستعمال ثلاث طرق :
مكونات بصيغة : Pas
مكونات بصيغة : Dpk
مكونات بصيغة : Bpl

بالتوفيق ان شاء الله

.rar   InstallDelphiComponents.rar (الحجم : 1.3 م ب / التحميلات : 15596) ]]> تم اعادة رفع الشرح الفلاشي لتركيب مكونات دلفي على المنتدى

تثبيت مكونات دلفي باستعمال ثلاث طرق :
مكونات بصيغة : Pas
مكونات بصيغة : Dpk
مكونات بصيغة : Bpl

بالتوفيق ان شاء الله

.rar   InstallDelphiComponents.rar (الحجم : 1.3 م ب / التحميلات : 15596) ]]> <![CDATA[Delphi & ActiveX]]> https://delphi4arab.net/forum/showthread.php?tid=67 Fri, 29 Feb 2008 23:04:35 +0100 delphi4ever]]> https://delphi4arab.net/forum/showthread.php?tid=67
قمت بإنجاز هذا الدرس المتواضع حول التعامل مع الإضافات ActiveX وكيفية تثبيتها وأخذت على سبيل المثال المكون المشهور لشركة ميكروسوفت وهو Microsoft Agent بحيث سنتطرق في درسنا هذا إلى مفاهيم عامة + شرح عملية تثبيت المكون.

•Microsoft Agent ActiveX :

هو عبارة عن إضافة ActiveX يمكنك تثبيتها من خلال دلفي، وهو من تطوير شركة ميكروسوفت Microsoft بحيث يقوم هذا الأخير بنطق الكلمات التي نكتبها له ويقوم بحركات كثيرة جدا ومتنوعة وتختلف من عنصر إلى اخر ومن أشهر Agent المعروفة لدى شركة ميكروسوفت :
•Merlin
•Peedy
•Robby
•Genie

يعد كل من Agent السالف ذكرها عبارة عن شخصية كل على شكل حدى تظهر لنا في الشاشة بحيث تقوم على التحدث مع المستعمل مع إنجاز حركات Animation مختلفة.

[صورة: agentssv0.jpg]

- توجد هناك على شبكة الانترنت عدة أشخاص مثل Merlin & Robby & …. وهي مجانية أيضا لك نحن في درسنا هذا ستناول واحد من الأربعة المذكورين أعلاه.
 من أجل السير الحسن لأي Agent من القائمة السالف ذكرها يجب أن يكون لدينا كل من الوسائل التالية:
1.مكون Microsoft Agent Control
2.اللغة التي سيتم التعامل بها من أجل نطق Agent.
3.واحد أو أكثر من Agent مثل Merlin
4.text-to-speech engine من أجل السير الحسن للنطق
5.Speech control panel الخاص بالتحكم في Ms Agent

يمكنا تحميك كل من العناصر السابق ذكرها م موقع شركة ميكروسوفت على الرابط التالي:
http://www.microsoft.com/msagent/downloads/user.aspx

كيفية تثبيت إضافة Microsoft Agent في دلفي:
1.في دلفي نقوم بالتوجه نحو القائمة Components ثم نحو Import ActiveX Control كما هو مبين في الشكل.

[صورة: menugu4.jpg]

2. بعدها ستظهر لنا نافذة تحتوي على مجموعة من الإضافات ActiveX والتي سقوم باختيار Microsoft Agent Control 2.0(Version 2.0) مها وبعدها نضغط على الزر Install

[صورة: activexqr0.jpg]

3. بعد الضغط على زر Install ستظهر لنا نافذة أخرى تحتوي على معلومات هذا المكون الجديد الذي سنقوم بإضافته، نقوم بالضغط على الزر Ok الموجود أسفل النافذة.

[صورة: installcn8.jpg]

... يتبـــع

.pdf   Ms Agent ActiveX.pdf (الحجم : 217.02 ك ب / التحميلات : 1580) ]]>
قمت بإنجاز هذا الدرس المتواضع حول التعامل مع الإضافات ActiveX وكيفية تثبيتها وأخذت على سبيل المثال المكون المشهور لشركة ميكروسوفت وهو Microsoft Agent بحيث سنتطرق في درسنا هذا إلى مفاهيم عامة + شرح عملية تثبيت المكون.

•Microsoft Agent ActiveX :

هو عبارة عن إضافة ActiveX يمكنك تثبيتها من خلال دلفي، وهو من تطوير شركة ميكروسوفت Microsoft بحيث يقوم هذا الأخير بنطق الكلمات التي نكتبها له ويقوم بحركات كثيرة جدا ومتنوعة وتختلف من عنصر إلى اخر ومن أشهر Agent المعروفة لدى شركة ميكروسوفت :
•Merlin
•Peedy
•Robby
•Genie

يعد كل من Agent السالف ذكرها عبارة عن شخصية كل على شكل حدى تظهر لنا في الشاشة بحيث تقوم على التحدث مع المستعمل مع إنجاز حركات Animation مختلفة.

[صورة: agentssv0.jpg]

- توجد هناك على شبكة الانترنت عدة أشخاص مثل Merlin & Robby & …. وهي مجانية أيضا لك نحن في درسنا هذا ستناول واحد من الأربعة المذكورين أعلاه.
 من أجل السير الحسن لأي Agent من القائمة السالف ذكرها يجب أن يكون لدينا كل من الوسائل التالية:
1.مكون Microsoft Agent Control
2.اللغة التي سيتم التعامل بها من أجل نطق Agent.
3.واحد أو أكثر من Agent مثل Merlin
4.text-to-speech engine من أجل السير الحسن للنطق
5.Speech control panel الخاص بالتحكم في Ms Agent

يمكنا تحميك كل من العناصر السابق ذكرها م موقع شركة ميكروسوفت على الرابط التالي:
http://www.microsoft.com/msagent/downloads/user.aspx

كيفية تثبيت إضافة Microsoft Agent في دلفي:
1.في دلفي نقوم بالتوجه نحو القائمة Components ثم نحو Import ActiveX Control كما هو مبين في الشكل.

[صورة: menugu4.jpg]

2. بعدها ستظهر لنا نافذة تحتوي على مجموعة من الإضافات ActiveX والتي سقوم باختيار Microsoft Agent Control 2.0(Version 2.0) مها وبعدها نضغط على الزر Install

[صورة: activexqr0.jpg]

3. بعد الضغط على زر Install ستظهر لنا نافذة أخرى تحتوي على معلومات هذا المكون الجديد الذي سنقوم بإضافته، نقوم بالضغط على الزر Ok الموجود أسفل النافذة.

[صورة: installcn8.jpg]

... يتبـــع

.pdf   Ms Agent ActiveX.pdf (الحجم : 217.02 ك ب / التحميلات : 1580) ]]>