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

اذهب الى الأسفل

تحويل ملف نصى الى ملف PDF باستخدام المكتبة PdfSharp Empty تحويل ملف نصى الى ملف 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


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

تحياتى لكم

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

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

http://egy-tech.forumegypt.net

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

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

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

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

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

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

الرجوع الى أعلى الصفحة

ََ

مواضيع ذات صلة


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