delphi4arab منتديات دلفي للعرب

الصفحات : 1 2

السلام عليكم
المشروع لوجه الله
من يريد المساهمة فليتفضل
قاعدة البيانات sqlite تم ارفاقها مع البرنامج لاستكشافها استخدموا DB Browser for SQLite
تحتوي على مكان السجدة والاحزاب وغيرها ...
البرنامج ملتي ثريد
صور من البرنامج

[صورة: a0o8jd.png]

الخط العادي
[صورة: 4Rp84i.png]

اعدادات

لتحميل البرنامج مع الكود سورس

كود :
http://www.mediafire.com/download/62a76yc57dsbfi7/quranSqlite2.rar

]

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

ما هو مصدر قاعدة البيانات ؟
مشروع القرأن بجاجة لجهة رسمية تدعمه من حيث التدقيق والتصحيح

كان هنا مشروع سابق بالمنتدى لكن حذف لهاذا السبب

B.M.AbdelAziZ كتب : ما هو مصدر قاعدة البيانات ؟

وجدتها في هذا الموقع
github.com/riadvice/Qurani

الخط الجديد
[صورة: 1cvRXX.png]

خاصية البحث

[صورة: ySEWFx.png]

PHP كود :
function TForm2.QuranFind(_SoraIndex,_AyaIndex: Word): string;
var
    i,starting_row:Word;
    list:TStringList;
begin


try
try
StatusBar1.Panels[0].Text:='';
Result:='';
//من اين تبدا السورة
starting_row:=QuranTable.starting_row[_SoraIndex];
// اختيار الايات من اين تبدا الى حد مجموع الايات
list:= QuranSelect(starting_row,starting_row+suwarLength[_SoraIndex]);
 //SELECT imlai FROM Quran WHERE imlai like '+QuotedStr('%'+str+'%')
if _AyaIndex > suwarLength[_SoraIndex] then begin
                                           StatusBar1.Panels[0].Text:='لا توجد اية برقم : ' +inttostr(_AyaIndex) +' اقصى حد : '+inttostr(suwarLength[_SoraIndex]);
                                           Exit;
                                            end;
if list.Count > 0 then begin
 Result:=list[_AyaIndex-1];
  StatusBar1.Panels[0].Text:='تم العثور على '+inttostr(list.Count)+' ايات';
end else StatusBar1.Panels[0].Text:='لم يتم العثور على ما يناسب بحثك';

finally
list.Free
end;

except on e:exception do StatusBar1.Panels[0].Text:=' حدث خطأ '+e.Message; end;

end; 

عملية البحث

PHP كود :
procedure TForm2.Button1Click(Sender: TObject);
begin
Memo2.Text:=QuranFind(ComboBox1.ItemIndex+1,SpinEdit1.Value) ;
end; 

الخط المستخدم

PHP كود :
http://fonts.qurancomplex.gov.sa/ 

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

[صورة: Ufy5fI.png]

البحث صحيح ويجد حتى انصاف الكلمات

[صورة: Dx8c8M.png]

رابط التحميل ( كامل المشروع ) بأول الموضوع

مبرمج خبرة للمشاركه

للمساهمة فيمكنك المشاركة معنا هنا

تم اضافة مكتبة bass والقراءة من الانترنت بصوت المنشاوي مجود

[صورة: iM4hfw.png]

هكذا لن يشارك احد ويتم التحميل فقط
حتى يشارك غيرك بالمشروع من الاحسن ان تضع على شكل نقط ما ينقص المشروع
- فعل كذا وكذا
- ......

السلام عليكم ورحمة الله
اتفق مع الاخ ِعبد العزيز - يجب ان تكون هناك جهة رسمية تدعم هذا المشروع للتأكج من صحته ودقته. بارك الله فيكم.

الصفحات : 1 2

onexite

محمد عبد العزيز

onexite

onexite

onexite

masrnet2006

onexite

onexite

محمد عبد العزيز

MarmaR