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

سؤال عن السكربتات

مغلق
بدأه Menhad في 13 أغسطس 2006 · 8 رد · 671 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

لدي سؤال وارجو الاجابة عليه .. وليس كالمرات السابقة يتم وضع تعليق على الموضوع واغلاقه .

هذا منتدى ويتم فيه وضع اجابات وحوارات واراء وليس رأي واحد ويتم الاغلاق ؟؟

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

هذا نقد بناء لمشرفي المنتدى ارجو منهم الاستفادة منه .

السؤال هو :

لدي كود مكتوب بالـ VB Script واريد ان اضمنه في الدلفي ,,,

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

ولكم الشكر

#2

لا أظن أن العبارة الصحيحة هي تضمين لأن ذلك غير ممكن

عذرا ولكن يبدو أنك قلت VB Script وهي لغة برمجة للمواقع وأظن أن قصدك هو توابع وإجرائيات مكتوبة بلغة VB6 أو VB.Net أليس كذلك

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

#3

شكرا لك على الاجابة با اخي

ولكن مثلا لدي هذا الكود و اريد تنفيذه من خلال برنامج مكتوب بالدلفي

Set objDomain = GetObject("LDAP://dc=fabrikam,dc=com")

Set objOU = objDomain.Create("organizationalUnit", "ou=Management")
objOU.SetInfo

علما باني لو وضعت هذا الكود في ملف نصي بامتداد VBS سيتم تنفيذه , فما هي الطريقة المناسبة لعمل ذلك ؟؟؟

ولكم جزيل الشكر

#4

الاخوة المشرفين & الاعضاء

هل من طريقة ؟؟؟

#5

تريد تنفيذ كود لعمل مهمة معينة مكتوب بلغة أخرى من Delphi

لماذا لا تكتب الكود الذي يعمل هذه المهمة بـ Delphi

على جميع الأحوال يمكنك أن تطلب أي ملف تنفيذي من Delphi باستخدام تعليمة ShellExecute

تم تعديل هذه المشاركة بواسطة fh_feras في 15 أغسطس 2006 في 17:02

#6

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

اخي الكريم fh_feras

ارجو منك توضيح كيفية استعمال التعليمة ShellExecute لاني لم اوفق في استخدامها

ولك جزيل الشكر

#7
ShellExecute(0,'OPEN',pchar('c:\script.vbs'), nil,nil, SW_NORMAL);
d4baa0.gif
#8

السلام عليكم

Shell Execute

وبالتوفيق ;)

تم تعديل هذه المشاركة بواسطة Like Delphi في 17 أغسطس 2006 في 13:13

قال تعالى: ((وَمَا أَصَابََكُمْ مِنْ مُصِيبَةٍ فَبمَا كَسَبَتْ أَيْدِيكُمْ وَ يَعْفُو عَنْ كَثِيرٍ)) :.:.: الشورى: الآية 30.

IN ALLAH WE TRUST

:.:.:.:.:.:.:.:.:.:.:.:.:.:

#9

بارك الله فيكم وجزاكم الله عنا خير الجزاء

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

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