Nhibernate والدلفي

للرفع

انا الحقيقة لم ابحث كثيرا بسبب ضروف عملي لكن لن ايأس لايجاد هده الطريقة

اقتباس

NHibernate

اخبرنا اولا ماهو الNHibernate

ربما اجد لك شيئا هنا في روسيا...

هل تقصد هذا ؟

procedure NTSleep;
var
 hToken: THandle;
 tkp: TTokenPrivileges;
 ReturnLength: Cardinal;
begin
 if OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES or
   TOKEN_QUERY, hToken) then
 begin
   LookupPrivilegeValue(nil, 'SeShutdownPrivilege', tkp.Privileges[0].Luid);
   tkp.PrivilegeCount := 1; // one privelege to set
   tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
   if AdjustTokenPrivileges(hToken, False, tkp, 0, nil, ReturnLength) then
	 SetSystemPowerState(true, true);
 end;
end;

انتظر توضيحك يا اخ زكيري ..

اذا كان ما فهمته يا اخي زكيري صحيحا فاليك هذا ايضا....

function SetSuspendState(
	Hibernate: Boolean,
	ForceCritical: Boolean,
	DisableWakeEvent: Boolean);


 {  Parameters: 

   Hibernate: If this parameter is TRUE, the system hibernates. 
			  If the parameter is FALSE, the system is suspended. 
   ForceCritical: If this parameter is TRUE, the system suspends operation immediately; 
				  if it is FALSE, the system broadcasts a PBT_APMQUERYSUSPEND event to 
				  each application to request permission to suspend operation. 
   DisableWakeEvent: If this parameter is TRUE, the system disables all wake events. 
					 If the parameter is FALSE, any system wake events remain enabled. 


  Windows NT/2000/XP: Included in Windows 2000 and later. 
  Windows 95/98/Me: Included in Windows 98 and later. 
}

 var
   _SetSuspendState: function (Hibernate, ForceCritical, DisableWakeEvent: BOOL): BOOL
   stdcall = nil;

   function LinkAPI(const module, functionname: string): Pointer; forward;

 function SetSuspendState(Hibernate, ForceCritical,
   DisableWakeEvent: Boolean): Boolean;
 begin
   if not Assigned(_SetSuspendState) then
	 @_SetSuspendState := LinkAPI('POWRPROF.dll', 'SetSuspendState');
   if Assigned(_SetSuspendState) then
	 Result := _SetSuspendState(Hibernate, ForceCritical,
	   DisableWakeEvent)
   else
	 Result := False;
 end;

 function LinkAPI(const module, functionname: string): Pointer;
 var
   hLib: HMODULE;
 begin
   hLib := GetModulehandle(PChar(module));
   if hLib = 0 then
	 hLib := LoadLibrary(PChar(module));
   if hLib <> 0 then
	 Result := getProcAddress(hLib, PChar(functionname))
   else
	 Result := nil;
 end;

 // Example Call: 
// Beispielaufruf: 

procedure TForm1.Button1Click(Sender: TObject);
 begin
   SetSuspendState(True, False, False);
 end;

http://blogs.meetandplay.com/WPierce/archi...nHibernate.aspx

اعتقد ان الاخير هو ما تريد

http://www.thedelphimagazine.com/conts/conts123.php

هنا مجموعة من الامثلة احدها مختص بالNhibernate

http://www.thedelphimagazine.com/disks/dmag123.zip

اقتباس

HIBERNET هو ّframework of mapping طريقة ربط بين كائن / علائقي وهو كثير الاستعمال في البرمجة OOP

وهدا يعني ان Hibernate تسمح لنا ب التحكم و تسيير البيانات العلائفيه في فالب كاءن (form of an object) فهو يستعمل مجموعة من المكتبات او ملفات للربط بين قاعدة البيانات ب الكاءنات هي جدا فاعلة لانها تستخدم لغة sql مباشرة.

ومع الاصدار الحديث لدلفي ودخوله عالم .net اصبحت هده الطريقة مهمة لمبرمجي قواعدة البيانات ORM

اقتباس

NHibernate is a port of Hibernate Core for Java to the .NET Framework. It handles persisting plain .NET objects to and from an underlying relational database. Given an XML description of your entities and relationships, NHibernate automatically generates SQL for loading and storing the objects. Optionally, you can describe your mapping metadata with attributes in your source code.

NHibernate supports transparent persistence, your object classes don't have to follow a restrictive programming model. Persistent classes do not need to implement any interface or inherit from a special base class. This makes it possible to design the business logic using plain .NET (CLR) objects and object-oriented idiom.

اقتباس

شكرا على هده الروابط الكثييره

... للجزائيين أفضال كبيرة علينا ...

قد ينفعك هذا

http://www.codeproject.com/KB/dotnet/nhibernatept1.aspx

اعتقد انك ستجد ما تريد في كتاب ماركو كانتو دلفي 2005 الفصل الثامن عشر

بارك الله فيك استاد

شكرا كثيرا على الاهتمام

نعم لكنها سي شارب الا توجد امثلة في الدلفي غيرب الا حد الان لم اتجد ولا مثال واحد في الدلفي لأ أنه تحويل المثال السابق الى الدلفي قد قمت به ولم انجح لضيق الوقت فانا اعمل على مشروع الان

اخي عبد العالي القي نظرة في الملف المرفق

Hibernat.rar