تحويل ملف نصى الى ملف 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



تحياتى لكم

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

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

أحمد مناع
.
.

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

http://egy-tech.forumegypt.net

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

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

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

تحياتى لكم يا استاذى الكريم

VB.NET
المراقبين
المراقبين

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

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

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


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