مطلوب تحويل الصور الى pdf

[ابو جودي]

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

من خلال بحثى على الانترنت وجد هذه الطريقة ولكن لم تعمل معى
Convert image directly to PDF
https://examples.activepdf.com/Toolkit/2017/Convert_image_directly_to_PDF.vbs

تم تعديل أبريل 28, 2017 بواسطه ابوخليل
تنسيق العنوان

[jjafferr]

وعليكم السلام أخي ابا جودي

 

شايفك اليومين دول دايخ على 50 شغلة 

ما ينفعش كده ، خلص شغلة ، وابدأ بغيرها 

 

ليه تروح بعيد ، وانت عندك احد أفضل برامج التحويل بين صيغ ملفات الصور ، والتحكم فيها:

http://www.irfanview.com/

هذه احد الاوامر اللي فيه ، واللي يعمل اللي تريده:

i_view32.exe /multipdf=(c:\test.tif,c:\test1.bmp,c:\dummy.jpg)

 

وللعلم ، انا تكلمت عن البرنامج هنا:

وهنا

وهنا بالذات لموضوع الماسح الضوئي scanner اللي عندك سؤال عنه

 

جعفر

[ابو جودي]

22 ساعات مضت, jjafferr said:

وعليكم السلام أخي ابا جودي

 

شايفك اليومين دول دايخ على 50 شغلة 

ما ينفعش كده ، خلص شغلة ، وابدأ بغيرها 

 

ليه تروح بعيد ، وانت عندك احد أفضل برامج التحويل بين صيغ ملفات الصور ، والتحكم فيها:

http://www.irfanview.com/

هذه احد الاوامر اللي فيه ، واللي يعمل اللي تريده:

i_view32.exe /multipdf=(c:\test.tif,c:\test1.bmp,c:\dummy.jpg)

 

وللعلم ، انا تكلمت عن البرنامج هنا:

وهنا

وهنا بالذات لموضوع الماسح الضوئي scanner اللي عندك سؤال عنه

 

جعفر

استاذى الجليل 
انا جربت الاكواد فى المشاركة 

او بالاحرى جربت هذا الكود 
 

Shell "c:\program files\irfanview\i_view32.exe" /batchscan=(scanfile,1,1,2,0,c:\temp,tif,1) /scanhidden

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

Shell ("c:\program files\irfanview\i_view32.exe /batchscan=(scanfile,1,1,2,0,c:\temp,tif,1)")

وقمت بعمل مجلد على القطاع  C  وقمت بتسميته  temp

وبعد التجربة يتم مسح الاوراق داخل الماس الضوئى ولا اجد لها اى اثر هلى جهاز الكمبيوتر

ما سبب ذلك


على الرغم من ان هذا السطر يعمل بكفاءه دون حدوث اى مشاكل ولكن الناتخ عدد الملفات يساوى عدد الورق الذى تم مسحه بالماسح الضوئى بامتداد  JPG
 

Shell ("c:\program files\irfanview\i_view32.exe /batchscan=(scanfile,1,1,2,1," & Trim(db_path) & "tempscan,jpg,0)")

 

[ابو جودي]

تم بحمد الله تعالى جمع كل الاوراق فى مل  صورة واحد فقط   TIF
باستخدام الكود الاتى
 

Dim temp_scan_path
temp_scan_path = db_path() & "tempscan"
If Dir(temp_scan_path, vbDirectory) = "" Then
MkDir temp_scan_path
End If

Shell ("c:\program files\irfanview\i_view32.exe /batchscan=(scanfile,1,1,2,0," & Trim(db_path) & "tempscan,tif,1) /scanhidden")

ولكن مشكلتى مع كود التحويل الى   PDF  
اطمع فى المساعده بخصوص هذا الشأن

[jjafferr]

جرب تغيير كلمة tif إلى Pdf

[ابو جودي]

11 ساعات مضت, jjafferr said:

جرب تغيير كلمة tif إلى Pdf

نعم جربت ولكن دون جدوى 

[Shivan Rekany]

في ٢٧‏/٤‏/٢٠١٧ at 09:32, ابا جودى said:

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

انا عندي قاعدة بيانات خذت من موقع اجنبي تقدر تختار صور من سكانر او من الكومبيوتر او من القمر  راح يحولك الى ملف pdf\

لكن هناك سؤال هل تريد كل الصور يحولك الى ملف واحد من بي دي ئيف او كل صور ملفه خاص

تقبل تحياتي

[ابو جودي]

37 دقائق مضت, Shivan Rekany said:

انا عندي قاعدة بيانات خذت من موقع اجنبي تقدر تختار صور من سكانر او من الكومبيوتر او من القمر  راح يحولك الى ملف pdf\

لكن هناك سؤال هل تريد كل الصور يحولك الى ملف واحد من بي دي ئيف او كل صور ملفه خاص

تقبل تحياتي

كل الصور فى ملف واحد

[jjafferr]

وعليكم السلام ابا جودي

 

سؤال قبل ان ندخل للكود:

هل قمت بتنصيب Plug-ins البرنامج ، لأن خاصية pdf ليست اساسية في البرنامج وانما هي من plug-in !!

 

سؤالك لم يكن عن جلب الصور عن طريق السكانر ثم تحويلهم الى pdf ، وانما كان عن تحويل مجموعة الصور الى pdf ، وعليه كان جوابي!!

وانت لم تستعمل الكود الاصل اللي انا اعطيتك في مشاركتي الاولى ، وانما اخذت طريقا آخر!!

 

على العموم ، بعد ان تنشأ ملف tif ، استخدم الكود التالي لتغيير ملف tif الى pdf

 

Dim temp_scan_path
temp_scan_path = db_path() & "tempscan"
If Dir(temp_scan_path, vbDirectory) = "" Then
MkDir temp_scan_path
End If

Shell ("c:\program files\irfanview\i_view32.exe /batchscan=(scanfile,1,1,2,0," & Trim(db_path) & "tempscan,tif,1) /scanhidden")

i_view32.exe /multipdf=(zzzzz.tif)

 

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

 

جعفر

[Shivan Rekany]

في ٢٩‏/٤‏/٢٠١٧ at 04:19, ابا جودى said:

كل الصور فى ملف واحد

تمام وكما تريد وبدون برامج خارجي 

اتفضل ان شاء الله راح تستفيد منه كتير

Test.zip

تم تعديل أبريل 30, 2017 بواسطه Shivan Rekany
ارفاق قاعدة