کار با اسناد PDF در بیسیک فور اندروید چگونه است .

[keshtkar1 0]

سلام

در B4A اگر بخواهیم فایل با فرمت pdf را استفاده کنیم چگونه باید برنامه نویسی کرد و از چه چیزهایی در layout باید استفاده برد .

ضمنا ایا می توان سرچ در متن pdf نیز داشت ؟

تشکر

[Mahsa_ghuchi 0]

سلام چجوری میشه یک layout را مخفی کرذ و layout دیگری را فراخوانی کرد ؟؟؟؟

[p.bidram 0]

درود،

Dim intent1 As Intent
intent1.Initialize(intent1.ACTION_VIEW, "file://" & File.Combine(File.DirRootExternal & "/", "file.pdf"))
intent1.SetComponent("android/com.android.internal.app.ResolverActivity")
intent1.SetType("application/pdf")
StartActivity(intent1)

در صورتی که برنامه ای برای خواندن فایل های PDF روی دستگاه نصب باشه، این کد به اون مراجعه میکنه.

__________

* در رابطه با کدی که آقای عرفانی قرار دادن باید عرض کنم این کد فقط روی اندروید لالی پاپ (اندروید 5) کار میکنه ودر SDK جدید ارائه شده توسط گوگل قرار داره.

با این کد میشه مستقیما در برنامتون فایل PDF رو اجرا کنید و به اپلیکیشن های PDF Reader نیازی نداشته باشید.

و البته که به کتابخونه مربوطه نیاز داره...

 

سلام . من این کد ها رو زدم . برنامه هم کامپال میشه بدون خطا . منتها وقتی روی کلید مدنظر کلیک می کنی تا اون pdf باز بشه ارور میده که this document cant open

[Elyas Erfani 3,582]

درود واسه باز کردن فایل های Pdf میتونید از اینتنت زیر استفاده کنید 

 

ب طور مثال در ساب دکمه1 :

Sub Button1_Click

    Dim Intent1 As Intent

    Intent1.Initialize(intent1.ACTION_VIEW, "file://" & File.Combine(directory & "/", Value))

    intent1.SetComponent("android/com.android.internal.app.ResolverActivity")

    intent1.SetType("application/pdf")

    StartActivity(intent1)

End Sub

[idin 11]

متاسفانه کار نمی کنه

[Elyas Erfani 3,582]

کدهای زیرو امتحان کنید : 

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.
    Dim pdfr As PdfRenderer
    Dim pdfPages As Int
    Dim activepage As Int
    Private btnPrev As Button
    Private btnNext As Button
    Private lblPage As Label
    Private img As ImageView
End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    Activity.LoadLayout("main")
    File.Copy(File.DirAssets,"modbau14.pdf",File.DirRootExternal,"modbau14.pdf")
End Sub

Sub Activity_Resume
    pdfr.Initialize("pdf",File.DirRootExternal,"modbau14.pdf", File.DirRootExternal&"/PDFs")
    pdfPages = pdfr.PageCount
    activepage = 0
    pdfr.renderPage(activepage)
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub

Sub pdf_pagerendered (page As Int, pagecount As Int, image As Object)
    activepage = page
    If activepage = pagecount-1 Then
        btnNext.Enabled = False
    Else
        btnNext.Enabled = True
    End If
    If activepage = 0 Then
        btnPrev.Enabled = False
    Else
        btnPrev.Enabled = True
    End If
    lblPage.Text = (page+1)&"/"&pagecount
    Log("b4a pagerendered ("&page&","&pagecount&")")
    img.Bitmap = image
End Sub
Sub btnPrev_Click
    If activepage > 0 Then
        pdfr.renderPage(activepage-1)
    End If
End Sub
Sub btnNext_Click
    If activepage < pdfPages Then
        pdfr.renderPage(activepage+1)
    End If
End Sub

[مهران محمودی 778]

درود،

Dim intent1 As Intent
intent1.Initialize(intent1.ACTION_VIEW, "file://" & File.Combine(File.DirRootExternal & "/", "file.pdf"))
intent1.SetComponent("android/com.android.internal.app.ResolverActivity")
intent1.SetType("application/pdf")
StartActivity(intent1)

در صورتی که برنامه ای برای خواندن فایل های PDF روی دستگاه نصب باشه، این کد به اون مراجعه میکنه.

__________

* در رابطه با کدی که آقای عرفانی قرار دادن باید عرض کنم این کد فقط روی اندروید لالی پاپ (اندروید 5) کار میکنه ودر SDK جدید ارائه شده توسط گوگل قرار داره.

با این کد میشه مستقیما در برنامتون فایل PDF رو اجرا کنید و به اپلیکیشن های PDF Reader نیازی نداشته باشید.

و البته که به کتابخونه مربوطه نیاز داره...

[کاربر ناشناس 2,148]

درود

کاربر گرامی شما باید تاپیک خودتون رو در سوالات پشتیبانی میزدید نه آموزش های متنی

لطفا هنگام تاپیک زدن توجه کنید

---------------------

انتقال یافت