سحب صورة من الاسكنر بسطر واحد من الكود

[رمهان]

اعزائي

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

Set img = CreateObject("wia.commondialog").ShowAcquireImage.SaveFile(CurrentProject.Path & "\" & InputBox("ادخل اسم الصورة") & ".jpg")

تحياتي

[محمد سلامة]

السلام عليكم استاذنا رمهان

نشكر جهودك معنا في ردك علي مشاركتانا

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

طب مش هايحتاج اي مرجع مثلا

او اي شئ اخر

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

طبعا انا اقصد هنا المثالين

الاول سحب صورة واحدة

والثاني سحب عدة صور

[رمهان]

حياكم الله اخ محمد

نعم يظهر مربع الحوارسحب صورة واحدة من الاسكنر وحفظها بالاسم المدخل في مربع حوار اسم الصورة  وفي مسار القاعدة الحالية!

وبدون مرجع ! ولا شي  اخر!

بالتوفيق

تم تعديل أبريل 12, 2015 بواسطه رمهان

[ابو الآء]

الف شكر استاذى الفاضل

     

المثال بارك الله فيك

تسلم الايادى

[jjafferr]

تسلم أخوي رمهان 

 

كود خفيف في وزنه ، ثقيل في عمله 

 

 

جعفر

[محمد سلامة]

جاري التجربة عندما اذهب للعمل حيث جهاز الاسكنر

شكرا جزيلا استاذنا رمهان

[عبدالرحمن هاشم]

جزاك الله كل خير أستاذنا ومعلمنا الفاضل رمهان ورزقكم رضاه وجنته والإخوة أساتذتنا الكرام عما تطرحوه علينا من تعاليم لا تبخلوا بها علينا فأنتم مثال للعطاء أكرمكم الله وزادكم بعلمه

[bakry kassala]

الاستاذ الخبير رمهان - إحترامي

 

كما قال الاستاذ جعفر " كود حفيف في وزنه - ثقيل في عمله "

جزيت خيراً كثيراً

 

جاري التجربة ......

تم تعديل أبريل 13, 2015 بواسطه bakry kassala

[bakry kassala]

الأخ رمهان  - تحياتي ..

 

بعد التجربة ظهرت رسالة الخطأ التالية:

Run-time error '429'

ActiveX component can't create object

 

علماً بأن الـ  ActiveX pro محملة على الجهاز .....

[رمهان]

حياك اخي بكري

مالماهو االاصدار الويندوز لديك؟

تحياتي

[bakry kassala]

تحياتي استاذي رمهان وبارك الله فيك ..

اصدار الويندوز xp sp3

[رمهان]

اهاه هنا المشكلة! وحسب توقعي ولذلك سالتك عن الويندوز !

لما اجلس على الحاسوب نتناقش في الحل !

بالتوفيق

[bakry kassala]

أخي رمهان - ربنا يوفقك

في الانتظار ......

[رمهان]

حياك اخي بكري

أولا اذهب الى أي صفحة من الاكواد واذهب الى الخيار مرجع من قائمة أدوات :

هل هذه المكتبة لديك : 

microsoft windows image acquisition library v2.0

طبعا ممكن يكون الإصدار رقم 1 لديك المهم شوف هي موجود ضمن القائمة ام لا ؟

هذه اول الخطوات وبعدها نشوف !!

 

تحياتي

[bakry kassala]

حياك اخي بكري

أولا اذهب الى أي صفحة من الاكواد واذهب الى الخيار مرجع من قائمة أدوات :

هل هذه المكتبة لديك : 

microsoft windows image acquisition library v2.0

طبعا ممكن يكون الإصدار رقم 1 لديك المهم شوف هي موجود ضمن القائمة ام لا ؟

هذه اول الخطوات وبعدها نشوف !!

 

تحياتي

 

اعتذر جداً عن التأخير أخي رمهان ولكن لأسباب قوية ...

المهم استاذي الكريم ..

كما وجهتني بحثت عن المكتبة التي ذكرت ثم وجدتُ ضمن القائمة المكتبة التالية : 

Microsoft windows image Acquisition 1.01 Type library

[bakry kassala]

في الانتظار أخي رمهان ....

[رمهان]

اهلا بك اخي بكري

حاول انزال الإصدار الجديد من المكتبة

 

Windows Image Acquisition (WIA) 2.0

طبعا هي عبارة عن sdk وان لم تستطع حاول ترقية الويندوز وان لم تستطع وضعت لك مثالا خاصا بالمكتبة القديمة !

 

تحياتي

تم تعديل أبريل 16, 2015 بواسطه رمهان

[bakry kassala]

اهلا بك اخي بكري

حاول انزال الإصدار الجديد من المكتبة

 

Windows Image Acquisition (WIA) 2.0

طبعا هي عبارة عن sdk وان لم تستطع حاول ترقية الويندوز وان لم تستطع وضعت لك مثالا خاصا بالمكتبة القديمة !

 

تحياتي

استاذي رمهان بارك الله فيك وفي علمك ..

سوف احاول .. وإن لم أستطع .. اعانك الله تضع لنا مثالاً للمكتبة القديمة ..

إحترامي

[رمهان]

هذه المكتبة عزيزي

 

تحياتي

wiaaut.rar

[bakry kassala]

هذه المكتبة عزيزي

 

تحياتي

استاذي رمهان - تحياتي

 

الخلاصة : لم تنجح كل الطرق ..

حتى المكتبة التي ارفقتها أخيراً نسختها الى system32 ...

ونفس رسالة الخطأ ..

اتمنى أن تجد لنا حل استاذي رمهان .. بارك الله فيك .

أشكر لك سعة صدرك عزيزي

[رمهان]

اوكي أخي بكري !

بعد نسخها على المجلد سيستم 32 ! من صفحة الكود  >> أدوات >> مرجع >> Browse >> ثم حدد المكتبة >> لكي تصبح ضمن قائمة  المراجع لديك ..

جرب هذه المحاولة !!

وان حصلت على رسالة خطأ غير السابقة .. ارفقها هنا !!

 

تحياتي

[bakry kassala]

اوكي أخي بكري !

بعد نسخها على المجلد سيستم 32 ! من صفحة الكود  >> أدوات >> مرجع >> Browse >> ثم حدد المكتبة >> لكي تصبح ضمن قائمة  المراجع لديك ..

جرب هذه المحاولة !!

وان حصلت على رسالة خطأ غير السابقة .. ارفقها هنا !!

 

تحياتي

الغالي رمهان .. بارك الله فيك وفي علمك ..

بحمد الله تحقق المطلوب تماماً جزاك الله خيراً ..

" عمل الماسح وتم حفظ الصورة داخل مجلد البرنامج بصيغة jpeg .. وتم تسمية الصورة بالاسم المراد "

أشكرك من أعماق قلبي ..

 

لكن تظهر رسالة الخطأ التالية اثناء عملية مسح الصورة حيث لا تظهر مربعات حوار إنهاء العملية المعروفة من إغلاق أو تم ووو...

فقط تظهر الرسالة التالية رغم مسح وحفظ الصورة ..

 

Run-time error "13"

Type mismatch

 

واصل أستاذي الفاضل .... ربنا يسعد أيامك ويحفظك ..

[رمهان]

اوكي اخي بكري

ضع هذا السطر في بداية الكود أي قبل السطر

on error resume next

[bakry kassala]

اوكي أخي بكري !

بعد نسخها على المجلد سيستم 32 ! من صفحة الكود  >> أدوات >> مرجع >> Browse >> ثم حدد المكتبة >> لكي تصبح ضمن قائمة  المراجع لديك ..

جرب هذه المحاولة !!

وان حصلت على رسالة خطأ غير السابقة .. ارفقها هنا !!

 

تحياتي

 

 

اوكي اخي بكري

ضع هذا السطر في بداية الكود أي قبل السطر

on error resume next

استاذي رمهان - احترامي

بتوفيق من الله ثم بجهدك الكبير والمقدر تم العمل " بدون رسالة خطأ " .... لكن !

بعد تكرار اضافة المكتبة كما ذكرت لي في الاقتباس الاول ..

الواضح اخي رمهان أن المكتبة لم تحفظ ضمن القائمة وتحتاج إضافتها مع كل عملية مسح صورة ..

سؤالي وأعتذر جداً عن ازعاجي المتواصل لك .. هل هناك طريقة لإضافتها بشكل دائم ؟

 

دعواتي لك بالتوفيق دائماً أخي رمهان ..

[bakry kassala]

أستاذي الفاضل رمهان ..

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

وتم تحقيق المطلوب بفضل من الله ثم غزيز علمك الذي لم تبخل به ..

عليه اتقدم لك بالشكر الجزيل وعظيم إمتناني لصبرك الجميل على استفساراتي ... 

أشهد لك بجمال علمك وأدبك ..