FORUMS PROFESSIONNELS
WINDEV
,
WEBDEV
et
WINDEV Mobile
Accueil
|
Messages récents
|
Connexion
|
Déconnexion
|
Français
Accueil
→
WINDEV Mobile 2024
→
Loading local html content into html control
Loading local html content into html control
Débuté par Gary James, 16 nov. 2014 12:30 - 4 réponses
Connectez-vous…
Gary James
#1
Posté le 16 novembre 2014 - 12:30
Hello all,
I am evaluating WinDev Mobile. I am trying to include a local html file (test.htm) with my Android app, and then load that file into an html control.
I have included the test.htm file under my product "Documents". And have tried all of the following code behind buttons in my app:
HTM_Html1 = fDataDir() + "\test.htm"
HTM_Html1 = fDataDir() + "\Documents\test.htm"
HTM_Html1 = fExeDir() + "\test.htm"
HTM_Html1 = fExeDir() + "\Documents\test.htm"
None of those are working.
How do I do this? There is very little information that I can find in the documentation and / or examples.
Appreciated,
Gary.
Signaler
0
0
adrianoboller
#2
Membre enregistré
3 655 messages
Popularité : +175 (223 votes)
Posté le 17 novembre 2014 - 12:54
PROCEDURE DB_Diretorios()
ok is boolean = False
//Verifica
IF InSimulatorMode() = False THEN
gsDirTempPhotos = gsAppDir + ["/"] + "VideosFotos/"
gsArquivosTXT = gsAppDir + ["/"] + "Arquivos/"
gsAutorunPath = gsAppDir + ["/"] + "Arquivos/autorun.ini"
gsAppDir = "/mnt/sdcard/TaxiFv/"
IF fDirectoryExist(gsAppDir) = False THEN
ok = fMakeDir(gsAppDir)
END
IF INIRead("Camera","DiretorioRaiz","",gsAutorunPath) <> ""
gsAppDir = INIRead("Camera","DiretorioRaiz","",gsAutorunPath)
END
IF fDirectoryExist(gsAppDir) = False THEN
ok = fMakeDir(gsAppDir)
END
IF fDirectoryExist(gsAppDir) = False AND INIRead("Camera","DiretorioRaiz","",gsAutorunPath) = ""
gsAppDir = "/mnt/sdcard/TaxiFv/"
fMakeDir(gsAppDir)
END
IF gsAppDir = ""
gsAppDir = "/sdcard/TaxiFv/"
fMakeDir(gsAppDir)
END
IF fDirectoryExist(gsDirTempPhotos) = False THEN
ok = fMakeDir(gsDirTempPhotos)
IF ok = False THEN
gsDirTempPhotos = gsAppDir + ["/"] + "VideosFotos/"
fMakeDir(gsDirTempPhotos)
END
END
IF fDirectoryExist(gsAppDir + ["/"] + "Arquivos/") = False THEN
ok = fMakeDir(gsAppDir + ["/"] + "Arquivos/")
END
IF fDirectoryExist(gsAppDir + ["/"] + "Agenda/") = False THEN
ok = fMakeDir(gsAppDir + ["/"] + "Agenda/")
END
IF fDirectoryExist(gsAppDir + ["/"] + "Install/") = False THEN
ok = fMakeDir(gsAppDir + ["/"] + "Install/")
END
IF NOT fDirectoryExist(gsAppDir) THEN
fMakeDir(gsAppDir)
END
DirDb is string = gsAppDir + ["/"] + "DB/"
IF NOT fDirectoryExist(DirDb) THEN
fMakeDir(DirDb)
END
Arquivos is string = gsAppDir + ["/"] + "Arquivos/"
IF NOT fDirectoryExist(Arquivos) THEN
fMakeDir(Arquivos)
END
Notas is string = gsAppDir + ["/"] + "Notas/"
IF NOT fDirectoryExist(Notas) THEN
fMakeDir(Notas)
END
VideosFotos is string = gsAppDir + ["/"] + "VideosFotos/"
IF NOT fDirectoryExist(VideosFotos) THEN
fMakeDir(VideosFotos)
END
backup is string = gsAppDir + ["/"] + "Backup/"
IF NOT fDirectoryExist(backup) THEN
fMakeDir(backup)
END
Temprestore is string = gsAppDir + ["/"] + "Restore/"
IF NOT fDirectoryExist(Temprestore) THEN
fMakeDir(Temprestore)
END
ELSE
gsAppDir = "c:\Temp"
gsDirTempPhotos = "c:\Temp\VideosFotos"
gsArquivosTXT = "c:\Temp\Arquivos"
gsAutorunPath = "c:\Temp\Arquivos\autorun.ini"
Dirarq is string = "c:\Temp\Arquivos"
IF NOT fDirectoryExist(Dirarq) THEN
fMakeDir(Dirarq)
END
DirDbs is string = "c:\Temp\DB\"
IF NOT fDirectoryExist(DirDbs) THEN
fMakeDir(DirDbs)
END
Dirvf is string = "c:\Temp\VideosFotos"
IF NOT fDirectoryExist(Dirvf) THEN
fMakeDir(Dirvf)
END
Dirnotas is string = "c:\Temp\Notas"
IF NOT fDirectoryExist(Dirnotas) THEN
fMakeDir(Dirnotas)
END
Dirbkp is string = "c:\Temp\Backup"
IF NOT fDirectoryExist(Dirbkp) THEN
fMakeDir(Dirbkp)
END
Dirres is string = "c:\Temp\Restore"
IF NOT fDirectoryExist(Dirres) THEN
fMakeDir(Dirres)
END
END
Signaler
0
0
adrianoboller
#3
Membre enregistré
3 655 messages
Popularité : +175 (223 votes)
Posté le 17 novembre 2014 - 12:54
PROCEDURE LE_ASCII(LOCAL ArquivoTxt)
//Le arquivo texto
// Declare the variables
PathFile is string = ArquivoTxt
IdFile, ResCloseFile, FileID, NumeroLinha is int
Line is string
// Open the file
FileID = fOpen(PathFile,foReadWrite)
IF IdFile = -1 THEN
Error(ErrorInfo(errMessage))
ELSE
//Converte de Unicode para Ansi
Line = UnicodeToAnsi(fReadLine(FileID))
//Linha 1
NumeroLinha = 1
//Info("Linha:" + NumeroLinha, Line)
WHILE Line <> EOT AND Line <> ""
//Proxima linha
NumeroLinha += 1
Line = fReadLine(FileID)
//Info("Linha:" + NumeroLinha, Line)
END
IF Line = "" THEN Error(ErrorInfo(errMessage))
IF Line = EOT THEN Info("Final do Arquivo.")
ResCloseFile = fClose(IdFile)
IF ResCloseFile = -1 THEN
//Error(ErrorInfo(errMessage))
END
END
Signaler
0
0
adrianoboller
#4
Membre enregistré
3 655 messages
Popularité : +175 (223 votes)
Posté le 17 novembre 2014 - 12:55
Pass me your email to send you a sample
Signaler
0
0
Souleymane
#5
Posté le 22 août 2019 - 18:33
Bonjour,
Voila mon Mail: amisolo77@gmail.com
Signaler
0
0
→ Revenir à WINDEV Mobile 2024
WINDEV 2024
WEBDEV 2024
WINDEV Mobile 2024
WINDEV (précédentes versions)
Français
English
Español
Portuguesa
Fermer cette fenêtre
Type de recherche
Uniquement les sujets
Tous les messages
Période de recherche
Date indifférente
Moins d'une heure
Moins de 24 heures
Moins d'une semaine
Moins d'un mois
Moins d'un an
Annuler
Aperçu de votre message
Ajouter une image
Importer une image depuis une URL
Envoyer une image depuis un fichier de votre disque
Déposez ici un fichier ou cliquez sur "Parcourir..."
ou
Annuler
0%
WLangage
SQL
XML, HTML
JAVA, Javascript
Texte