GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEV
,
WEBDEV
e
WINDEV Mobile
Inicio
|
Mensagens recentes
|
Conecte-se...
|
Disconnect
|
Português
Inicio
→
WINDEV 25
→
Windev Mobile - Ler Pdf direto no Android
Windev Mobile - Ler Pdf direto no Android
Iniciado por amarildo, set., 07 2015 10:18 AM - 3 respostas
Conecte-se…
amarildo
#1
Membro registado
535 mensagems
Popularité : +14 (14 votes)
Publicado em setembro, 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
)
;
}
Denunciar
0
0
amarildo
#2
Membro registado
535 mensagems
Popularité : +14 (14 votes)
Publicado em setembro, 07 2015 - 10:20 AM
Abaixo o Video
Denunciar
0
0
amarildo
#3
Membro registado
535 mensagems
Popularité : +14 (14 votes)
Publicado em setembro, 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
Denunciar
0
0
adrianoboller
#4
Membro registado
3.659 mensagems
Popularité : +175 (223 votes)
Publicado em setembro, 10 2015 - 8:30 AM
--
Adriano Jose Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 9949 1800
adrianoboller@gmail.com
______________________________________________
Denunciar
0
0
→ Voltar para WINDEV 25
WINDEV 25
Français
English
Español
Portuguesa
Fermer cette fenêtre
Tipo de Pesquisa
Apenas tópicos
Todas as mensagens
Período de pesquisa
Qualquer momento
Última hora
Últimas 24 horas
Semana passada
Mês passado
Ano passado
Cancelar
Pré-visualização da sua mensagem
Adicionar imagem
Importar uma imagem de uma URL
Enviar uma imagem a partir do seu disco
Deixe um ficheiro ou clique em "Procurar ..."
ou
Cancelar
0%
WLanguage
SQL
XML, HTML
JAVA, Javascript
Texto