ایجاد فایل pdf

[MR.B4A 126]

سلام.

چه طوری میشه یک فایل pdf را در بیسیک ساخت

فرض کنید کاربر نوشته ای رو در برنامه مینویسه حالا میخوایم در نهایت یک فایل pdf از اون نوشته بسازیم.

ممنون

[MR.B4A 126]

ممنون میشم اگه کسی میدونه جواب بده

[MR.B4A 126]

در در 29 دی 1399 در 20:06، ali mo گفته است :

عکس خطا رو بفرستید لطفا

سلام.

ببینید من این کدهارو استفاده کردم:

Private Sub print
	Dim pdf As PdfDocument
	pdf.Initialize
	pdf.StartPage(595, 842) 'A4 size
	pdf.Canvas.DrawLine(2, 2, 593 , 840, Colors.Blue, 4)
	pdf.Canvas.DrawText("Hello", 100, 100, Typeface.DEFAULT_BOLD, 30 / GetDeviceLayoutValues.Scale , Colors.Yellow, "CENTER")
	pdf.FinishPage
	Dim out As OutputStream = File.OpenOutput(File.DirInternal, "1.pdf", False)
	pdf.WriteToStream(out)
	out.Close
	pdf.Close
End Sub

اما این خطا رو میده:

مشکلش کجاست؟

[ali mo 264]

سلام وقت بخیر 

متاسفانه علتش رو نمی دونم

سورس داشته همراه مثال؟ اونو تست کردید ؟

[MR.B4A 126]

در 2 ساعت قبل، ali mo گفته است :

سلام وقت بخیر 

متاسفانه علتش رو نمی دونم

سورس داشته همراه مثال؟ اونو تست کردید ؟

دقیقا همینو تست کردم که ارور میده

[MR.B4A 126]

ممنون میشم اگر کسی میدونه، راهنمایی کنه

[محمدرضا شاهپیری 5,583]

در در 1 فروردین 1400 در 21:14، batman123 گفته است :

ممنون میشم اگر کسی میدونه، راهنمایی کنه

کد زیر رو تست کردم من. موردی نداره

Dim pdf As PdfDocument
Dim r As RuntimePermissions
pdf.Initialize
pdf.StartPage(595, 842) 'A4 size
pdf.Canvas.DrawText("Hello", 100, 100, Typeface.DEFAULT_BOLD, 30 / GetDeviceLayoutValues.Scale , Colors.Black, "CENTER")
pdf.FinishPage
Dim out As OutputStream = File.OpenOutput(r.GetSafeDirDefaultExternal(""), "1.pdf", False)
pdf.WriteToStream(out)
out.Close
pdf.Close

 

[MR.B4A 126]

در 1 ساعت قبل، محمدرضا شاهپیری گفته است :

کد زیر رو تست کردم من. موردی نداره

Dim pdf As PdfDocument
Dim r As RuntimePermissions
pdf.Initialize
pdf.StartPage(595, 842) 'A4 size
pdf.Canvas.DrawText("Hello", 100, 100, Typeface.DEFAULT_BOLD, 30 / GetDeviceLayoutValues.Scale , Colors.Black, "CENTER")
pdf.FinishPage
Dim out As OutputStream = File.OpenOutput(r.GetSafeDirDefaultExternal(""), "1.pdf", False)
pdf.WriteToStream(out)
out.Close
pdf.Close

 

بله درسته

من روی گوشی تست نکرده بودم

روی شبیه سازم ارور میده.

[MR.B4A 126]

خب.

مشکل ساخت یک فایل pdf برطرف شد.

الان مشکل مرتب نمایش دادن متن رو توی همون فایل pdf داریم.

به این عکس نگاه کنید

من هم با دیتابیس چک کردم و هم توی یک لیبل متنو نوشتم اما ناقص ذخیره میکنه.

کسی میدونه مشکل از کجاست؟

[MR.B4A 126]

ممنون میشم اگه کسی میدونه جواب بده

[ali mo 264]

سلام وقت بخیر 

ببینید این پست به درد تون می خوره 

https://www.b4x.com/android/forum/threads/printing-and-pdf-creation.76712/#content

[MR.B4A 126]

در در 22 دی 1399 در 22:02، ali mo گفته است :

سلام وقت بخیر 

ببینید این پست به درد تون می خوره 

https://www.b4x.com/android/forum/threads/printing-and-pdf-creation.76712/#content

سلام.

مرسی از راهنماییت

اما مثالی که زده خطا داره.

چیز دیگه ای داری؟

[ali mo 264]

عکس خطا رو بفرستید لطفا

[MR.B4A 126]

در 45 دقیقه قبل، ali mo گفته است :

عکس خطا رو بفرستید لطفا

ببین مثلا کتابخونه ای که معرفی کرده با پارامترهای کدهایی که نوشته جور در نمیاد.

Dim pdf As PDFDocument
	pdf.Initialize
	pdf.StartPage(595, 842) 'A4 size
	pdf.Canvas.DrawLine(2, 2, 593 , 840, Colors.Blue, 4)
	pdf.Canvas.DrawText("Hello", 100, 100, Typeface.DEFAULT_BOLD, 30 / GetDeviceLayoutValues.Scale , Colors.Yellow, "CENTER")
	pdf.FinishPage
	Dim out As OutputStream = File.OpenOutput(File.DirInternal, "1.pdf", False)
	pdf.WriteToStream(out)
	out.Close
	pdf.Close

خودت یه تست کنی متوجه میشی