الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

قراءة من ملف حجمه كبير جدا, أكبر من 700Mb؟[محلول]

مغلق
بدأه ikossan في 17 يونيو 2006 · 19 رد · 2,763 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

قمت بتحميل ملف نصي txt يضم مجموعة من البينات تضم كل المدن والقرى حول العالم هذا مثلا سطر من الأسطر :

RC	UFI	UNI	LAT	LONG	DMS_LAT	DMS_LONG	UTM	JOG	FC	DSG	PC	
CC1	ADM1	ADM2	DIM	CC2	NT	LC	SHORT_FORM	GENERIC	SORT_NAME	
FULL_NAME	FULL_NAME_ND	MODIFY_DATE
3	-3096949	-4370067	21.4266667	39.8261111	212536	394934	ED86	NF37-11	P	PPL		SA	
14				V				MAKKAHALMUKARRAMAH	
Makkah al Mukarramah	Makkah al Mukarramah	2004-04-13

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

هذا هو الموقع لمن أراد تحميل ملف مضغوط لكل دولة:

ftp://ftp.nga.mil/pub/gns_data/

أنا قمت بتحميل الملف لكل بلدان العالم, عند فك ضغطه وجدته ملف txt يفوق حجمه 700MB.

كل سطر من لأسطر يضم معلومات مرتبة ويفرق بين معلومة ومعلومة المحرف tabulation او بالكود ascii هو المحرف 09#.

إستعملت TfileStream للإستفادة من هذه الحقول و وضعها في TStringsList بواسطة هذه الإجرائية:

var
  str_list: TStringList;
  MyStreamFile: TFileStream;

procedure ReadBuffLn;
var
  i: integer;
  Pstr, Start: PChar;
  StrTemp: String;
  BuffChar: array of char;
begin
  i:=0;
  SetLength(BuffChar,2048);
  repeat
	MyStreamFile.Read(BuffChar,1);
	inc(i);
	Pstr := @BuffChar[i-2];
  until ((AnsiStrComp(Pstr,sLineBreak)=0 )or(MyStreamFile.Position= (MyStreamFile.Size-1)));
  BuffChar:=#0;
  str_list.Clear;
  Pstr := pchar(BuffChar);
  while Pstr^ <> #0 do
  begin
	Start := Pstr;
	while not (Pstr^ in [#0, #9,#13,#10]) do Inc(Pstr);
	SetString(StrTemp, Start, Pstr - Start);
	str_list.Add(StrTemp);
	if Pstr^ = #9 then Inc(Pstr);
	if Pstr^ = #10 then Inc(Pstr);
	if Pstr^ = #13 then Inc(Pstr);
  end;
end;

هذه الإجرائية لم تنفعني عندما إستعملتها على المف الكبير الحجمو لكنها عملية جدا في الملفات الصغيرة لكل دولة عل حدة.

المرجو مساعدتي اليوم قبل الغذ B) هههههههه

هذه الملفات اردت أن أستعملها في مشروع مواقيت الصلاة الموجود في نفس القسم من المنتدى.

مشكورين

تم تعديل هذه المشاركة بواسطة ikossan في 20 يونيو 2006 في 17:28

سأتغيب عن المنتدى وستكون لي زيارات خفيفة بين الحين و الحين

يا صاحب الهم إن الهم منفرج.....................أبشر بخير فإن الفارج الله.

اليأس يقطع أحيانا بصاحبه..........................لا تيأس فإن الكافي الله.

الله يحدث بعد العسر ميسرة.........................لا تفزعن فإن الصانع الله.

إذا بليت فثق بالله وارض به...................فإن الذي يكشف البلوى هو الله.

و الله ما لك غير الله من أحد.......................فحسبك الله في كل لك الله

أخوكم مراد

27_06_06_05_21_41_1151410901logo_adl_wal_ihsan.jpg

#2

بما انّ حجم الملف كبير جدا فلا يمكنك معاملته بهذه الطريقة حيث انّ حجم 700 ميغا كبير جدا لكي تتعامل معه

الحل الافضل هو وضع هذه السجلات في قاعدة بيانات معينة او في XML File و يتم فقط طلب السجلات التي نريدها اي مثل

عمل استعلام يتم فيه جلب المناطق لدولة معينة

و يتم التخاطب مع قاعدة البيانات او مع ملف XML باستخدام Dataset حيث بنيتها ملائمة تمام لهذا الغرض

كم هو الحجم الفعلي للملفات المضغوطة حتى احملها و اعطيك اياها على ملف XML مع برنامج بسيط للتخاطب معها

رب اجعلني مقيم الصلاة ومن ذريتي ربنا وتقبل دعاء.

لا تنسى: "العقل مثل العضلة كلما استخدمته أكثر كلما ازدادت قوته"

#3

لقد قمت بتطبيق الإجرائية أعلاه على ملف لدولة المغرب حجمه 8mb و إستطعت جلب الحقول التي أحتاجها فقط,

بالنسبة لدولة سورية مثلا حجم الملف المضغوط Sy.zip 1087 KB وبعد فك ضغطه 4.7Mb.

الملف الذي يضم كل الدول هو ملف مضغوط بحجم 180MB عندما فككت ضغطه وجدته ملف واحد وليست ملفات متفرقة, حجمه يتعدى 700mb.

لا أعلم لمذا وضعوا ملف بهذا الحجم حتى إذا أردت تصفحه بnotepad فسوف يتهنج الجهاز.

كيف يمكن الإستفادة منه وفتحه بالديلفي للقيام بإستنباط كل الحقول المهمة فقط؟ الملف سيصبح صغير جدا. مثلا ملف المغرب من 8Mb عندما أخذت منه أسم البلدة أو المدينة و خطي الطول والعرض وإسم الدولة أصبح حجمه لا يتجاوز 60kb.

سأتغيب عن المنتدى وستكون لي زيارات خفيفة بين الحين و الحين

يا صاحب الهم إن الهم منفرج.....................أبشر بخير فإن الفارج الله.

اليأس يقطع أحيانا بصاحبه..........................لا تيأس فإن الكافي الله.

الله يحدث بعد العسر ميسرة.........................لا تفزعن فإن الصانع الله.

إذا بليت فثق بالله وارض به...................فإن الذي يكشف البلوى هو الله.

و الله ما لك غير الله من أحد.......................فحسبك الله في كل لك الله

أخوكم مراد

27_06_06_05_21_41_1151410901logo_adl_wal_ihsan.jpg

#4

اخي مراد يمكنك استخدام اكسس لفعل ما تريد

قم بانشاء ملف اكسس جديد و من ثم قم باستيراد الملف اليه و من ثم حذف الحقول التي ليس لها عمل و من ثم يمكنك تصدير الملف الى صيغة ما مرة اخرى

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

و من ثم اختر Import و من ثم حدد انّ الملف نصي

و من ثم اختر الملف النصي و اتبع الخطوات التي تظهر لك في المعالج

اهم شغلة هي ان تضع check على First row contains filed names

رب اجعلني مقيم الصلاة ومن ذريتي ربنا وتقبل دعاء.

لا تنسى: "العقل مثل العضلة كلما استخدمته أكثر كلما ازدادت قوته"

#5

استخدم File بدلا من Stream

سيكون الامر بطيئ لكن فعال

d4baa0.gif
#6
waeldalol كتب:
اخي مراد يمكنك استخدام اكسس لفعل ما تريد

قم بانشاء ملف اكسس جديد و من ثم قم باستيراد الملف اليه و من ثم حذف الحقول التي ليس لها عمل و من ثم يمكنك تصدير الملف الى صيغة ما مرة اخرى

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

و من ثم اختر Import و من ثم حدد انّ الملف نصي

و من ثم اختر الملف النصي و اتبع الخطوات التي تظهر لك في المعالج

اهم شغلة هي ان تضع check على First row contains filed names

قلما أستعمل منتجات MS-Office :D .

لقد قمت بفتحه بواسطة access فعلا, زسأرى يف يمكن تحويله إلى ملف لا يضم إلا الحقول التي أحتاجها مما سيسهل إستغلاله ويصعر من حجمه.

شكرا أخي وائل

محمدعبد العزيز كتب:

استخدم File بدلا من Stream

سيكون الامر بطيئ لكن فعال

كنت أظن أن بواسطة Filestream أن الملف لا يحمل كله إلى Ram بل يقوم النظام بتقسيمه إلى صفحات PageFles في الذاكرة!!

سأحاول بواسطة File فن لم تنجح سأعود لدوال api.

مشكور أحي Delta :P

سأتغيب عن المنتدى وستكون لي زيارات خفيفة بين الحين و الحين

يا صاحب الهم إن الهم منفرج.....................أبشر بخير فإن الفارج الله.

اليأس يقطع أحيانا بصاحبه..........................لا تيأس فإن الكافي الله.

الله يحدث بعد العسر ميسرة.........................لا تفزعن فإن الصانع الله.

إذا بليت فثق بالله وارض به...................فإن الذي يكشف البلوى هو الله.

و الله ما لك غير الله من أحد.......................فحسبك الله في كل لك الله

أخوكم مراد

27_06_06_05_21_41_1151410901logo_adl_wal_ihsan.jpg

#7
ikossan كتب:

قلما أستعمل منتجات MS-Office :D .

لقد قمت بفتحه بواسطة access فعلا, زسأرى يف يمكن تحويله إلى ملف لا يضم إلا الحقول التي أحتاجها مما سيسهل إستغلاله ويصعر من حجمه.

اخي مراد فقط قم بحذف الحقول التي لا تريدها من الجدول الذي تمت اضافته و ذلك بالنقر على الجدول و من ثم اختيار الامر Design من ال Toolbar

و من ثم احذف الحقول التي لا تريدها و ابقى على الحقول التي سوف نستخدمها

اقتباس
استخدم File بدلا من Stream

تقصد XML File او ملف قاعدة بيانات و ذلك لسهولة التعامل

رب اجعلني مقيم الصلاة ومن ذريتي ربنا وتقبل دعاء.

لا تنسى: "العقل مثل العضلة كلما استخدمته أكثر كلما ازدادت قوته"

#8

استخدم "Memory Mapped File"

راجع هذا الموضوع الرائع للأخ العزيز هاني الأتاسي

كيف يتم التعامل مع الملفات الضخمة ؟

طبعا الكود المرفق من هاني لا يمكن تحميله الآن (الإدارة تعلم السبب ) و لا أعلم إن كان يحتفظ به...

حينها انا قمت بتجربة المثال وكان رائع ...ربما تجد شرح عن الطريقة في النت ..

تم تعديل هذه المشاركة بواسطة cipher في 18 يونيو 2006 في 18:03

"First they ignore you, then they laugh at you, then they attack you, then you win"

===

اقتباس

حُكَّامُـنَا إِنْ تَصَـدّوا لِلْحِمَــى اقْتَحَمُـوا ***** وَإِنْ تَصَدَّى لَـهُ المُسْتَعْمِـرُ انْسَحَبُـوا

هُمْ يَفْرشـُونَ لِجَيْـشِ الغَــزْوِ أَعْيُنَـهُـمْ ***** وَيَدَّعُــونَ وُثُـوبَـاً قَـبْـلَ أَنْ يَثِـبُــوا

الحَاكِمُـونَ و«وَاشُنْـطُـنْ» حُكُومَتُـهُـمْ ***** وَاللامِعُــونَ وَمَـا شَعَّـوا وَلا غَرَبُــوا

القَاتِلُـــونَ نُبُــوغَ الشَّـعْــبِ تَرْضِـيَـــةً ***** لِلْمُعْتَدِيــنَ وَمَـا أَجْـدَتْـهُـمُ الـقُــرَبُ

لَهُمْ شُمُـوخُ «المُثَنَّـى» ظَاهِـرَاً وَلَهُـمْ ***** هَـوَىً إِلَـى بَابَـك الخَرْمِـيّ يُنْتَسَـبُ

البردوني "أبو تمام وعروبة اليوم" 1971

===

اقتباس
عبيد الهوى يحكمون البـلاد ***** ويحكمهــم كلّهـــم درهــــــم

و تقتـادهـم شهـوة لا تنــام ***** وهـــم فـي جـهالتهــم نــــوّم

ففــي كـــلّ ناحيــة ظـالـــم ***** غبــــــيّ يسـلـّطــــه أظلـــم

أيا من شبعتم على جوعــنا ***** وجـــوع بنينـا ألـم تتخمـــوا ؟

ألم تفهموا غضبة الكادحين ***** على الظلـم ؟ لا بدّ أن تفهموا

البردوني "نحن و الحاكمون "

#9
cipher كتب:
طبعا الكود المرفق من هاني لا يمكن تحميله الآن (الإدارة تعلم السبب ) و لا أعلم إن كان يحتفظ به...

كلام خطير...

d4baa0.gif
#10
اقتباس
استخدم "Memory Mapped File"

راجع هذا الموضوع الرائع للأخ العزيز هاني الأتاسي

الفكرة جميلة جدا بل ممتازة و اكثر من ذلك و شكرا لك على لفت الانتباه

بس اريد ان اقول شيئ ما:

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

الفكرة التي طرحها الاخ هاني الاتاسي.

ما عليك الا توجيه اوامر SQL سهلة الى مخدم قاعدة البيانات لكي تحصل على ما تريد باسرع وقت ممكن

حيث انه هناك الكثير من الامور التي تعب و سهر عليها من قام بتأسيس علم قواعد البيانات

بتعليمة SQL بسيطة تستطيع فرز السجلات فلماذا الان استخدام تقنية الملفات و هناك البديل و البديل الافضل و الاقوى الا و هو قواعد البيانات؟

ليس من هذه الناحية فحسب بل من جميع النواحي التي قد تخطر في بالك

رب اجعلني مقيم الصلاة ومن ذريتي ربنا وتقبل دعاء.

لا تنسى: "العقل مثل العضلة كلما استخدمته أكثر كلما ازدادت قوته"

#11

أشرت إلى موضوع الأخ هاني الأتاسي لأن الأخ مراد تكلم عن ملفات ذات حجم كبير جداً ...

لم أدخل في النقاش حول كون استعمال قواعد البيانات أفضل أو أسهل ...

تساؤل : في برامج القواميس (قواميس اللغات ) هل تستخدم قواعد البيانات ؟

"First they ignore you, then they laugh at you, then they attack you, then you win"

===

اقتباس

حُكَّامُـنَا إِنْ تَصَـدّوا لِلْحِمَــى اقْتَحَمُـوا ***** وَإِنْ تَصَدَّى لَـهُ المُسْتَعْمِـرُ انْسَحَبُـوا

هُمْ يَفْرشـُونَ لِجَيْـشِ الغَــزْوِ أَعْيُنَـهُـمْ ***** وَيَدَّعُــونَ وُثُـوبَـاً قَـبْـلَ أَنْ يَثِـبُــوا

الحَاكِمُـونَ و«وَاشُنْـطُـنْ» حُكُومَتُـهُـمْ ***** وَاللامِعُــونَ وَمَـا شَعَّـوا وَلا غَرَبُــوا

القَاتِلُـــونَ نُبُــوغَ الشَّـعْــبِ تَرْضِـيَـــةً ***** لِلْمُعْتَدِيــنَ وَمَـا أَجْـدَتْـهُـمُ الـقُــرَبُ

لَهُمْ شُمُـوخُ «المُثَنَّـى» ظَاهِـرَاً وَلَهُـمْ ***** هَـوَىً إِلَـى بَابَـك الخَرْمِـيّ يُنْتَسَـبُ

البردوني "أبو تمام وعروبة اليوم" 1971

===

اقتباس
عبيد الهوى يحكمون البـلاد ***** ويحكمهــم كلّهـــم درهــــــم

و تقتـادهـم شهـوة لا تنــام ***** وهـــم فـي جـهالتهــم نــــوّم

ففــي كـــلّ ناحيــة ظـالـــم ***** غبــــــيّ يسـلـّطــــه أظلـــم

أيا من شبعتم على جوعــنا ***** وجـــوع بنينـا ألـم تتخمـــوا ؟

ألم تفهموا غضبة الكادحين ***** على الظلـم ؟ لا بدّ أن تفهموا

البردوني "نحن و الحاكمون "

#12

كما قلت , ديلفي ب TFileStream ليست قادرة على التعامل مع الملفات الضخمة لأنها ستقوم بتحميل كل الملف إلى ram. والحل هو إستعمال نفس الطريقة التي يقوم بها النظام بتحميل الملفات التنفيذية وملفات المكتبات الديناميكية dll. فالنظام يستعمل Memory Mapped File في تحميل والتعامل مع exe وبهذا يمكنه التحكم وترشيد الموارد وإستخدام page memeory.

ساطلع على كتاب به قسم يهتم بالتعامل مع الملفات.

شكرا cipher وكذلك waeldalol و محمدعبد العزيز.

سأتغيب عن المنتدى وستكون لي زيارات خفيفة بين الحين و الحين

يا صاحب الهم إن الهم منفرج.....................أبشر بخير فإن الفارج الله.

اليأس يقطع أحيانا بصاحبه..........................لا تيأس فإن الكافي الله.

الله يحدث بعد العسر ميسرة.........................لا تفزعن فإن الصانع الله.

إذا بليت فثق بالله وارض به...................فإن الذي يكشف البلوى هو الله.

و الله ما لك غير الله من أحد.......................فحسبك الله في كل لك الله

أخوكم مراد

27_06_06_05_21_41_1151410901logo_adl_wal_ihsan.jpg

#13
cipher كتب:
أشرت إلى موضوع الأخ هاني الأتاسي لأن الأخ مراد تكلم عن ملفات ذات حجم كبير جداً ...

لم أدخل في النقاش حول كون استعمال قواعد البيانات أفضل أو أسهل ...

تساؤل : في برامج القواميس (قواميس اللغات ) هل تستخدم قواعد البيانات ؟

نعم اخي cipher هل انت معنا منذ البداية في برنامج الاذان الذي نود صنعه! انا ذكرت قواعد البيانات لانّه هو حاجتنا في البرنامج

برامج القواميس:

ذلك يتبع الى المبرمج فهناك من يقوم بعملها باستخدام الملفات و هناك من يقوم باستخدام قواعد البيانات

و بالنسبة لي فانا افضل قواعد البيانات للاسباب التالية(اسهل, اسرع من البناء, اسرع في التنفيذ , اوفر مساحة ....) ليس لكي اناقشك انّ قواعد البيانات هي الافضل . :) :)

رب اجعلني مقيم الصلاة ومن ذريتي ربنا وتقبل دعاء.

لا تنسى: "العقل مثل العضلة كلما استخدمته أكثر كلما ازدادت قوته"

#14

عندما قمت بالإطلاع على الوصلة التي أرفقها الأخ cipher حول إستعمال Memory Mapped File, وجدته يتكلم عن إستعمالها في vb فقفلت الوصلة مباشرة :blink: ورجعت لل api ( كتاب).

كانت النتيجة ممتازة ورائعة فعلا شيء لازم يستعمل في كل إستعمال للملفات ذات حجوم متوسطة أو كبيرة.

النتيجة:

var
  str_list: TStringList;

  FFileHandle: THandle;
  FMapHandle: THandle;  //  handle tp the open file
  FFileSize: Integer;   //  Handle to a file mapping;
  Fdata: PByte;		 //  Pointer to the file's data when mapped
  Pdata : PChar;		//  pointer to referance the file data;
  FPosition: integer;   //  the position of the pointer to data in the file mapped
  FileName: string;

begin
  OpenDialog1.InitialDir:= ExtractFileDir(ParamStr(0));
  OpenDialog1.Filter := 'Text files (*.txt)|*.TXT';
  if OpenDialog1.Execute then
	FileName:= OpenDialog1.FileName else exit;

  if not FileExists(FileName) then
	raise Exception.Create('The file doesn''t exist')
  else
	FFileHandle:= FileOpen(FileName,fmOpenRead);
  if FFileHandle = INVALID_HANDLE_VALUE then raise Exception.Create('Failed tp open the file');
  try
	FFileSize:= GetFileSize(FFileHandle,nil);
	FMapHandle:= CreateFileMapping(FFileHandle,nil,PAGE_READONLY,0,FFileSize,nil);
	if FMapHandle= 0 then   Exception.Create('failed to  creat Mapping file');
  finally
	CloseHandle(FFileHandle);
  end;

  try
	Fdata:= MapViewOfFile(FMapHandle,FILE_MAP_READ,0,0,FFileSize);
	if Fdata= nil then Exception.Create('Failed to map view of file');
  finally
	CloseHandle(FMapHandle);
  end;
  try
	Pdata:= pchar(Fdata);
	FPosition:= 0;
//.............................
//.............................
//.............................
//.............................
  finally
	UnmapViewOfFile(Fdata);
  end;

و أصبحت الدالة السابقة على هذا النحو:

procedure ReadLnStrmFile;
var
  i: integer;
  Pstr, Start: PChar;
  StrTemp: String;
  BuffChar: array of char;
begin
  i:=0;
  SetLength(BuffChar,2048);
  repeat
	BuffChar:= (pdata +FPosition)^;
	inc(i);
	FPosition:= FPosition + 1;
  until ((BuffChar[i-1]= #10)or(FPosition=FFileSize-1));

  BuffChar:=#0;
  str_list.Clear;
  Pstr := pchar(BuffChar);
  while Pstr^ <> #0 do
  begin
	Start := Pstr;
	while not (Pstr^ in [#0, #9,#13,#10]) do Inc(Pstr);
	SetString(StrTemp, Start, Pstr - Start);
	str_list.Add(StrTemp);
	if Pstr^ = #9 then Inc(Pstr);
	if Pstr^ = #10 then Inc(Pstr);
	if Pstr^ = #13 then Inc(Pstr);
  end;
end;

فعلا ممتازة, لم أربح السرعة لكن ربحت حرية التعامل مع الملف و عدم حجز حجوم كبيرة من الذاكرة RAM.

شكرا cipher

تم تعديل هذه المشاركة بواسطة ikossan في 19 يونيو 2006 في 22:00

سأتغيب عن المنتدى وستكون لي زيارات خفيفة بين الحين و الحين

يا صاحب الهم إن الهم منفرج.....................أبشر بخير فإن الفارج الله.

اليأس يقطع أحيانا بصاحبه..........................لا تيأس فإن الكافي الله.

الله يحدث بعد العسر ميسرة.........................لا تفزعن فإن الصانع الله.

إذا بليت فثق بالله وارض به...................فإن الذي يكشف البلوى هو الله.

و الله ما لك غير الله من أحد.......................فحسبك الله في كل لك الله

أخوكم مراد

27_06_06_05_21_41_1151410901logo_adl_wal_ihsan.jpg

#15

waeldalol : أشكرك على الرد وعلى سعة الصدر خصوصاً أن ردي يوحي للقارئ أني كنت معصب شوية لكن لم أكن أعني ذلك ;)

اقتباس
يتكلم عن إستعمالها في vb فقفلت الوصلة مباشرة

لا يامراد :angry: , هل تتوقع أني أضع لك وصلة لموضوع في VB ... أنت تعلم كيف هي سيئة في هذه الأشياء :P (يارب ما يدخل أحد من شباب الفيجوال بيسك هذا الموضوع :D )

الموضوع في قسم السي وكاتب الموضوع الآخ هاني وضع مثال رائع بالفيجوال سي لكن الوصلة غير فعالة حالياً ...

شكراً لك لوضع الكود ومنتظرين منك أو من أحد الشباب شرح في هذه النقطة حين يكون هناك وقت لذلك ...

"First they ignore you, then they laugh at you, then they attack you, then you win"

===

اقتباس

حُكَّامُـنَا إِنْ تَصَـدّوا لِلْحِمَــى اقْتَحَمُـوا ***** وَإِنْ تَصَدَّى لَـهُ المُسْتَعْمِـرُ انْسَحَبُـوا

هُمْ يَفْرشـُونَ لِجَيْـشِ الغَــزْوِ أَعْيُنَـهُـمْ ***** وَيَدَّعُــونَ وُثُـوبَـاً قَـبْـلَ أَنْ يَثِـبُــوا

الحَاكِمُـونَ و«وَاشُنْـطُـنْ» حُكُومَتُـهُـمْ ***** وَاللامِعُــونَ وَمَـا شَعَّـوا وَلا غَرَبُــوا

القَاتِلُـــونَ نُبُــوغَ الشَّـعْــبِ تَرْضِـيَـــةً ***** لِلْمُعْتَدِيــنَ وَمَـا أَجْـدَتْـهُـمُ الـقُــرَبُ

لَهُمْ شُمُـوخُ «المُثَنَّـى» ظَاهِـرَاً وَلَهُـمْ ***** هَـوَىً إِلَـى بَابَـك الخَرْمِـيّ يُنْتَسَـبُ

البردوني "أبو تمام وعروبة اليوم" 1971

===

اقتباس
عبيد الهوى يحكمون البـلاد ***** ويحكمهــم كلّهـــم درهــــــم

و تقتـادهـم شهـوة لا تنــام ***** وهـــم فـي جـهالتهــم نــــوّم

ففــي كـــلّ ناحيــة ظـالـــم ***** غبــــــيّ يسـلـّطــــه أظلـــم

أيا من شبعتم على جوعــنا ***** وجـــوع بنينـا ألـم تتخمـــوا ؟

ألم تفهموا غضبة الكادحين ***** على الظلـم ؟ لا بدّ أن تفهموا

البردوني "نحن و الحاكمون "

#16

:D

كنت أظن أنه موضوع فتحه الأخ الأتاسي في قسم من أقسام الفيبي :lol: (يارب ما يدخل أحد من شباب الفيجوال بيسك هذا الموضوع :D )

فعلا أصبحنا نفتقد للمواضيع في أقسام المنتدى وكأن المنتدى فقط برنامج تلفزيوني موضوعه " ما يطلبه السائلون",من وضع الحلول لأسئلة السائلين,

وبعدها قد لا نرى حتى صاحب السؤال! ولا نعلم حتى لو أن الحل قد أستفاد منه أم لا!! :(

فعسى الله أن تكون فترة إمتحانات و قربت تنتهي إن شاء الله, ونجد من جديد مواضيع قيمة و مساهمات نغني من رصيد العضو القارئء و الزائر العابر للمنتدى.

سأ حاول جاهدا أن أكتب في ما أستطيع المساهمة فيه إن شاء الله.

تم تعديل هذه المشاركة بواسطة ikossan في 22 يونيو 2006 في 20:52

سأتغيب عن المنتدى وستكون لي زيارات خفيفة بين الحين و الحين

يا صاحب الهم إن الهم منفرج.....................أبشر بخير فإن الفارج الله.

اليأس يقطع أحيانا بصاحبه..........................لا تيأس فإن الكافي الله.

الله يحدث بعد العسر ميسرة.........................لا تفزعن فإن الصانع الله.

إذا بليت فثق بالله وارض به...................فإن الذي يكشف البلوى هو الله.

و الله ما لك غير الله من أحد.......................فحسبك الله في كل لك الله

أخوكم مراد

27_06_06_05_21_41_1151410901logo_adl_wal_ihsan.jpg

#17

اعجبني هذا الاربط الخاص بهذا الموضوع

Memory Management for Large-File Editors

ومنها ارفع الموضوع كمان

أضاعوني وأي فتى أضاعـوا * * * ليـوم كــريهـة وســـداد ثغــــر

وخـــــلونـي ومعتـرك المنايـا * * * وقد شـــرعوا أسنــتهم لنحـري

كأني لم أكــــــن فيهـم وسيطـا * * * ولم تك نســبتي في آل عمــرو

أجرر في الجـــوامع كـل يـوم * * * ألا لله مظــــلمتـي وهـصـــري

عسى الملك المجيب لمن دعاه * * * سينجيني فيعلم كيــف شكـري

فأجـــزي بالكرامـة أهـل ودي * * * وأجزي بالضـغينة أهل ضري

منتديات الرياضيات العربية

#18

:salam: موضوع جميل , أخي ikossan أرجو أن تقوم بتجربة GpHugeFile أظن أنه سيسهل عليك العمل :

"Encapsulation of Windows file-handling routines that allows work with >2GB files. Included is support for non-buffered access (FILE_FLAG_NO_BUFFERING) and buffering for sequentially accessed files. TGpHugeFile is interface to 64-bit file functions with some added functionality. TGpHugeFileStream is descendant of TStream that wraps TGpHugeFile."

أنظر هنا

:bye:

#19

السلام عليكم و رحمة الله و بركاته

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

و بارك الله في الجميع

من هنا

يقول المثل الشعبي الجزائري

( أقري علمك و علما لا تدريه ، و قل ربي زدني علما ، و فوق كل ذى علم عليم )

اللهم زدنا و لا تنقصنا و أعطنا و لا تحرمنا

#20

الا يستطيع الاعضاء الناطقون بالفرنسية توضيح محتوى البرنامج المشاركة رقم 19 للاح Soumia

الا يستطيع الاعضاء الناطقون بالفرنسية توضيح محتوى البرنامج المشاركة رقم 19 للاح Soumia

على الاقل توضيح التعليقات على البرنامج

أضاعوني وأي فتى أضاعـوا * * * ليـوم كــريهـة وســـداد ثغــــر

وخـــــلونـي ومعتـرك المنايـا * * * وقد شـــرعوا أسنــتهم لنحـري

كأني لم أكــــــن فيهـم وسيطـا * * * ولم تك نســبتي في آل عمــرو

أجرر في الجـــوامع كـل يـوم * * * ألا لله مظــــلمتـي وهـصـــري

عسى الملك المجيب لمن دعاه * * * سينجيني فيعلم كيــف شكـري

فأجـــزي بالكرامـة أهـل ودي * * * وأجزي بالضـغينة أهل ضري

منتديات الرياضيات العربية

هذا الموضوع مغلق.

مواضيع مشابهة