تحويل ملف نصى الى ملف PDF باستخدام المكتبة PdfSharp

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

تحويل ملف نصى الى ملف PDF باستخدام المكتبة PdfSharp

مُساهمة من طرف أحمد مناع في الأربعاء ديسمبر 11, 2013 1:05 pm

بسم الله الرحمن الرحيم 

أهلا وسهلا بكم إخوانى الكرام ...فى الدرس السابق تعلمنا كيفية انشاء ملف pdf بسيط باستخدام المكتبة PdfSharp ...أما فى هذا الدرس إن شاء الله تعالى سنتعلم كيفية تحويل ملف نصى text الى ملف pdf باستخدام نفس المكتبة وهى PdfSharp و سأكتفى بكتابة الشفرات مباشر دون الخوض فى كيفية تحميل و إضافة المكتبة الى المشروع لذلك أتمنى من الاخوة الذين لم يتابعونا فى الدرس السابق  القاء نظرة عليه .

_ الشفرات ستكون على النحو التالى :


  • استيراد مساحة العمل التالية :

الكود:
Imports PdfSharp
Imports PdfSharp.Drawing
Imports PdfSharp.Pdf


  • من اجل قراءة الملف النصى يجب أنشاء الكائن TextReader و تمرير الملف النصى المراد قراتئه اليه

الكود:
Dim readFile As System.IO.TextReader = New StreamReader("testfile.txt")


  • إنشاء مثيل جديد من الكائن PdfDocument

الكود:
Dim pdf As PdfDocument = New PdfDocument


  • إنشاء وثيقة pdf فارغة

الكود:
Dim pdfPage As PdfPage = pdf.AddPage


  • انشاء الكائن XGraphics و تمرير الية الوثيقة الفارغة

الكود:
Dim graph As XGraphics = XGraphics.FromPdfPage(pdfPage)


  • نقوم بإنشاء كائن الخط المراد استخدامة فى الوثقية

الكود:
Dim font As XFont = New XFont("Verdana", 20, XFontStyle.Regular)


  • الان سنقوم بقراءة الملف النصى وكتابة المحتوى إلى كائن PDF

الكود:
line = readFile.ReadLine()
graph.DrawString(line, font, XBrushes.Black,New XRect(40, yPoint, pdfPage.Width.Point, pdfPage.Height.Point), XStringFormats.TopLeft)

في التعليمات البرمجية أعلاه وضعناها X 40 بكسل من الجانب الأيسر ووضع Y باسم "yPoint"، لأنه بعد كتابة كل سطر سوف yPoint زيادة spacs 40 بكسل خط عندها فقط سوف تحصل على مساحة خط جيد.

yPoint = yPoint + 40


  • نقوم بحفظ مستند pdf

الكود:
pdf.Save("yourflename.pdf")


  • أخيرا أغلاق كائن القراءة

الكود:
readFile.Close()
readFile = Nothing



تحياتى لكم

ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
سبحان الله وبحمدة .....سبحان الله العظيم

إن فقدت مكان بذورك التي بذرتها يوما ما سيخبرك المطر أين زرعتها ..لذا إبذر الخير فوق أي أرض وتحت أي سماء ومع أي أحد.. فأنت لا تعلم أين تجده ومتى تجده؟! إزرع جميلا ولو في غير موضعه .... فلا يضيع جميلا أينما زرعا .. فما أجمل العطاء... فقد تجد جزاءه في الدنيا أو يكون لك ذخرا في الآخرة
avatar
أحمد مناع
.
.

تاريخ التسجيل : 15/02/2011
المساهمات : 815
النقاط : 1484
التقيم : 69
الدولة : مصر
الجنس : ذكر

http://egy-tech.forumegypt.net

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: تحويل ملف نصى الى ملف PDF باستخدام المكتبة PdfSharp

مُساهمة من طرف VB.NET في الجمعة مارس 27, 2015 6:57 pm

تحياتى لكم يا استاذى الكريم
avatar
VB.NET
المراقبين
المراقبين

تاريخ التسجيل : 18/02/2011
المساهمات : 117
النقاط : 185
التقيم : 6
الدولة : مصر
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى