PROFESSIONAL NEWSGROUPS
WINDEV
,
WEBDEV
and
WINDEV Mobile
Home
|
Recent messages
|
Connect
|
Sign out
|
English
Home
→
WINDEV 25
→
Windev Mobile - Ler Pdf direto no Android
Windev Mobile - Ler Pdf direto no Android
Started by amarildo, Sep., 07 2015 10:18 AM - 3 replies
Connect yourself…
amarildo
#1
Registered member
535 messages
Popularité : +14 (14 votes)
Posted on September, 07 2015 - 10:18 AM
http://windevdesenvolvimento.blogspot.com.br/2015/09/windev-mobile-29-pdf-ler-pdf-direto-do.html
No Blog , explico passo a passo como fiz para achar a solucao para ler um pdf, direto
no aparelho do android.
Posso usar simplesmente Shellexecute("Arquivo Pdf ")
ou
fazer como esse exemplo . que abre o pdf direto no aparelho.
http://repository.windev.com/resource.awp…
Nesse link é onde encontrei a solucao
1. Botao Ler Pdf
strMonpdf est une
chaîne
=
"http://www.matosinformatica.com.br/DownloadAtualiza%C3%A7%C3%B5es/listaserv.pdf"
mostra_pdf
(
"HTML1"
,
strMonpdf
)
2. Procedure Mostra_pdf
Procedure
mostra_pdf
(
s
_nome_html is
string
,
s
Nome_pdf is
string
)
modeSVG is
boolean
=
True
fDelete
(
CompleteDir
(
fRepExe
(
)
)
+
"TMPPDF_*.pdf"
)
//fSupprime(ComplèteRep(fRepExe())+"TMPPDF_*.pdf")
nomfic is
string
=
"TMPPDF_"
+
DateSys
(
)
+
HeureSys
(
)
+
s
Nome_pdf
+
".pdf"
tmpPDf is
string
=
CompleteDir
(
fRepExe
(
)
)
+
""
+
nomfic
// est une chaîne
SI
EnModeAndroid
(
)
ET
PAS
EnModeTest
ALORS
//est-ce que les ressources de gestion pdf sont bien présentes ?
SI PAS
fFichierExiste
(
ComplèteRep
(
fRepExe
(
)
)
+
"viewersvg.html"
)
OU
PAS
fFichierExiste
(
ComplèteRep
(
fRepExe
(
)
)
+
"viewersvg.js"
)
ALORS
fExtraitRessource
(
"WD_pdfjs2.zip"
,
fRepExe
(
)
)
SI
fFichierExiste
(
ComplèteRep
(
fRepExe
(
)
)
+
"WD_pdfjs2.zip"
)
ALORS
//decompactage de la ressource
myarch est un
entier
=
zipOuvre
(
"archpdf"
,
ComplèteRep
(
fRepExe
(
)
)
+
"WD_pdfjs2.zip"
)
SI
myarch
=
0
ALORS
zipExtraitTout
(
"archpdf"
,
ComplèteRep
(
fRepExe
(
)
)
)
zipFerme
(
"archpdf"
)
FIN
FIN
FIN
SI PAS
fFichierExiste
(
ComplèteRep
(
fRepExe
(
)
)
+
"viewersvg.html"
)
OU
PAS
fFichierExiste
(
ComplèteRep
(
fRepExe
(
)
)
+
"viewersvg.js"
)
ALORS
//aucun display possible, les ressources sont absentes.
//retour
FIN
activerjavascript
(
s
_nome_html
)
FIN
SI
Gauche
(
s
Nome_pdf
,
4
)
=
"http"
ALORS
//1 recuperer le fichier en local avant ouverture
SI
HTTPRequête
(
s
Nome_pdf
)
ALORS
fSauveTexte
(
tmpPDf
,
HTTPDonneRésultat
(
httpRésultat
)
)
FIN
SINON
fCopieFichier
(
s
Nome_pdf
,
tmpPDf
)
FIN
b
LocalDebug est un
booléen
=
Vrai
SI
EnModeTest
(
)
ALORS
//{nomchamp,indchamp}=strMonpdf
//test avec localhost
//
si localDebug alors
//
fCopieFichier(ComplèteRep(fRepExe())+"web\viewersvg.html","c:\wamp\www\pdfjstest\web\viewersvg.html")
//
fCopieFichier(ComplèteRep(fRepExe())+"web\viewersvg.js","c:\wamp\www\pdfjstest\web\viewersvg.js")
//
nomfic est une chaine="test.pdf"+datesys+heuresys
//
//
fCopieFichier(tmpPDf,"c:\wamp\www\pdfjstest\web\"+nomfic)
//
//
testurl est une chaine="http://localhost/pdfjstest/"+"web/viewersvg.html?url="+"./"+nomfic+"&ti="+datesys+heuresys
//
//{nomchamp,indChamp}=testurl
//
LanceAppliAssociée(testurl)
{
s
_nome_html
,
indChamp
}
=
s
Nome_pdf
SINON
myurl est une
chaîne
SI
modeSVG
ALORS
myurl
=
"file://"
+
ComplèteRep
(
fRepExe
)
+
"viewersvg.html?url="
+
"./"
+
nomfic
+
"&ti="
+
DateSys
+
HeureSys
SINON
myurl
=
"file://"
+
ComplèteRep
(
fRepExe
)
+
"viewer.html?url="
+
"./"
+
nomfic
+
"&ti="
+
DateSys
+
HeureSys
FIN
{
s
_nome_html
,
indChamp
}
=
myurl
FIN
3. Comandos Java
import android.webkit.WebView
;
PUBLIC static
void activerjavascript
(
string
nomchamp
)
{
WebView mywebview
=
(
WebView
)
getView
(
nomchamp
)
;
mywebview.getSettings
(
)
.
setJavaScriptEnabled
(
True
)
;
}
Report
0
0
amarildo
#2
Registered member
535 messages
Popularité : +14 (14 votes)
Posted on September, 07 2015 - 10:20 AM
Abaixo o Video
Report
0
0
amarildo
#3
Registered member
535 messages
Popularité : +14 (14 votes)
Posted on September, 07 2015 - 11:47 AM
http://windevdesenvolvimento.blogspot.com.br/2015/09/windev-mobile-30-pdf-ler-pdf-direto-do.html
Nessa aula continuanando sobre pdf, faltou eu acrescentar um arquivo zip que veio
junto com o exemplo
//Click BTn_LerPdf
strMonpdf est une
chaîne
=
"http://www.amarildomatos.com.br/clientes_arquivos/Contrato.pdf"
mostra_pdf
(
"HTML1"
,
strMonpdf
,
intModeSVG
)
//aqui foi acrescentado
Procedure
mostra_pdf
(
s
_nome_html is
string
,
s
Nome_pdf is
string
,
modeSVG
=
Vrai
)
// recoloquei aqui
Report
0
0
adrianoboller
#4
Registered member
3,659 messages
Popularité : +175 (223 votes)
Posted on September, 10 2015 - 8:30 AM
--
Adriano Jose Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 9949 1800
adrianoboller@gmail.com
______________________________________________
Report
0
0
→ Go back to WINDEV 25
WINDEV 25
Français
English
Español
Portuguesa
Close this window
Search type
Only topics
All the messages
Search period
Any time
Past hour
Past 24 hours
Past week
Past month
Past year
Cancel
Preview of your message
Adding an image
Import an image from a URL
Send an image from a file of your disk
Drop a file or click "Browse..."
or
Cancel
0%
WLanguage
SQL
XML, HTML
JAVA, Javascript
Text