+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي الأخرى (https://delphi4arab.net/forum/forumdisplay.php?fid=4)
+--- قسم : برامج دلفي من عمل الأعضاء (https://delphi4arab.net/forum/forumdisplay.php?fid=27)
+--- الموضوع : تطبيق صغير لتسير مكتبة (/showthread.php?tid=2977)
تطبيق صغير لتسير مكتبة - kachwahed - 08-04-2011
انتبه على المسارات الثابتة، عوض:
كود :
C:\Bibliotheque\Data\Biblio.mdbكود :
.\Data\Biblio.mdbالآن، حمل من الرابط UPX السابق الملف upx307w.zip
استخرج منه الملف upx.exe وضعه في نفس مجلد برنامجك Biblio.exe
قم من خلال سطر الأوامر بتنفيذ:
PHP كود :
upx Biblio.exe -9 --best --no-reloc
تطبيق صغير لتسير مكتبة - محمد عبد العزيز - 08-04-2011
إقتباس : كلامك يشبه الالغازاستفسر فهو مجاني
انت تستخدم دلفي 7، من البديهي تملك قرص CDROM أو أكثر به دلفي 7، من القرص يمكنك تثبيت دلفي، القرص يحتوى دلفي وملفات اخرى، منها ما هو نصي ومنها ماهو PDF حسب اصدار دلفي... المهم ضمن تلك الملفات تجد الحديث عن Deployment اي جعل تطبيقك يعمل على اجهزة اخرى، تجد به باختصار ان التطبيق يعمل باي جهاز اخر وفي حال استعمالك لمكتبات خاصة عليك بتثبيتها او نسخها بجهاز المستخدم.
http://www.delphi4arab.net/forum/showthread.php?tid=320
http://www.delphi4arab.net/forum/showthread.php?tid=704
http://www.delphi4arab.net/forum/showthread.php?tid=2388
أيضا
http://www.delphi4arab.net/forum/showpost.php?p=12008&postcount=4
عامة برنامجك هذا احسن من برنامجك السابق ويمكنك برمجة احسن منه، هذه بعض الملاحظات من تجربة سريعة للبرنامج:
عند الضغط على الزر X اعلى البرنامج يخرج مباشرة، بينما عند الضغط على Fichier/Quitter يسال المستخدم!
اختصارات الازرار، F2/F3/F4...
F3 لتنفيذ البرنامج اول مرة ثم نجد F3 للتعديل Modifier نم نجد F3 Valider بنوافذ اخرى واخرى F3 Supprimer
حاول استخدام نفس المفتاح لنفس الغرض حتى يمكن للمستخدم التعود عليها
بالنسبة لاستعارة الكتب emprunt فهي بحاجة لاعادة تصميم كلي
تطبيق صغير لتسير مكتبة - Anter2010 - 08-04-2011
[COLOR="RoyalBlue"] السلام عليكم و رحمة الله تعالى و بركاته
مشكورين الاخوة الاعزاء على كل التوجيهات و النصائح القيمة
اخي Kachwahed استسمحك ان توضح لي قليلا فانا لم يسبق لي و ان تعاملت مع هذه الافكار [/COLOR]
كود :
upx Biblio.exe -9 --best --no-relocبخصوص اخي عبد العزيز يعجبني فيك انك صريح ولا تجامل ابدا
حقيقة انني احسست من واجهة الاعارة انها اكثر تعقيد فيجب ان تكون اكثر بساطة اليس كذالك
اما بخصوص مسار البرنامج قد وضعت الكود التالي [/COLOR]
كود :
procedure TData.DataModuleCreate(Sender: TObject);
begin
Base.Connected := false;
Base.Close;
Base.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + Getcurrentdir + '/Data/Biblio.mdb;';
Base.Connected:=True;
Base.Open;
livre.Open;
Duplicate.Open;
Emprunte.Open;
Emprunteur.Open;
Auteur.Open;
Editeur.Open;
Format.Open;
Genre.Open;
Provenance.Open;
Qretard.Open;
QImp.Open;
end;تطبيق صغير لتسير مكتبة - kachwahed - 08-04-2011
إقتباس :بصراحة اكثر اين يجب ان اضع هذا الكودبطريقة أبسط، إسحب ملف برنامجك ثم أفلته على التطبيق upx.exe
عوضا عن:
إقتباس :Base.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + Getcurrentdir + '/Data/Biblio.mdb;';استخدم:
PHP كود :
ExtractFilePath(Application.ExeName)
تطبيق صغير لتسير مكتبة - محمد عبد العزيز - 08-04-2011
[COLOR="#0000ff"]
أو بطريقة اخرى انسخ UPX.exe داخل مجلد برنامج او احسن داخل مجلد النظام مثلا C:\Windows
وعدل ملفك السابق كما يلي[/COLOR]
كود :
@echo off
del *.~* /s
del *.dcu /s
del *.map /s
del *.ddp /s
del *.dti /s
del *.dof /s
del *.cfg /s
del *.bak /s
del *.stat /s
echo Clean Delphi 2009/2010 files...
del *.local /s
del *.identcache /s
del *.2007 /s
del *.tvsconfig /s
attrib __history -h
rd __history /s /q
cls
Echo Compressing...
[color=Blue]upx Biblio.exe --best --no-reloc[/color]
del *.bak
exitتطبيق صغير لتسير مكتبة - Anter2010 - 08-04-2011
شكرا لكم على المعلومات الاضافية كلتا الحالتين نجحتا معي طريقة السحب و الافلات و طريقة الاخ عبد العزيز و حصلت على 1.27 m بدلا من 2.65
[COLOR="royalblue"] ساجرب فيما بعد المسارات لانني اول مرة اتاعمل مع اكسس
السلام عليكم [/COLOR]
تطبيق صغير لتسير مكتبة - محمد عبد العزيز - 08-04-2011
ملاحظتين:
- بالنسبة للمسار: ليس شرطا وضع القاعدة بمجلد Data يمكن وضعها بنفس مجلد البرنامج وعند الاتصال اكتب فقط اسم القاعدة
-بالنسبة للضغط: عند التنفيذ البرنامج المضغوط يستهلك ذاكرة أكثر من غير المضغوط!
تطبيق صغير لتسير مكتبة - Anter2010 - 08-04-2011
الحقيقة يا استاذنا انا استفيد منك كثيرا و اقدر ما تقدمه لهذا المنتدى الله يجعله في ميزان حسناتك
تطبيق صغير لتسير مكتبة - kachwahed - 08-04-2011
استخدم الزر شكرا دلفي
لا تشكرني أنا
تطبيق صغير لتسير مكتبة - S.FATEH - 08-04-2011
السلام عليكم
ما شاء الله عمل جيد بالتوفيق اخ عنتر
سلامي