Gambas France BETA


Pas de compte ? Incription

actualiser une page web et l'imprimer...

1
AuteurMessages
spheris#1 Posté le 13/11/2014 à 11:05:21
Bonjour,
Je souhaite faire une petite appli qui telecharge une page internet en html pur qui contient un tableau de valeurs, et l'imprime sur l'imprimante connectée à ce PC, ceci toutes les heures afin d'assurer un suivi periodique.
auriez-vous une piste pour m'aiguiller ?
a bientot.
;)
www.gambaslinux.fr
Reivillo#2 Posté le 13/11/2014 à 18:12:10
C' est ici, et nul part ailleurs. « Et pis c'est tout ! »Bonsoir spheris.

Tu peux déjà faire un Test en Script Bash, avec la Commande wget de Linux,
et l'adapter en suite, sous Gambas.
( En partant du principe, que tu n'as pas trouvé d'Objets Gambas pour ce faire... )

Reivillo.
Version LinuxMint 13 (1.6.1-1+maya-mate(32-bit)) LTS Noyau 3.14.33-031433-generic (27-02-2015)
LinuxMint 13 Mate Fr ICI, LinuxMint 17 Mate Fr LÀ.
Programmation Gambas3 Installé depuis la Console Terminal avec successivement: Les 3 Lignes sudo en Gras ci-dessous...
sudo add-apt-repository ppa:gambas-team/gambas3
sudo apt-get update
sudo apt-get install gambas3 -y
Gambas3.8.4-57.47 (Mise à Jour Auto via mintupdate le 28-01-2016)
Pour la Doc, c'est vers là: Documentation Gambas3 FR
Reivillo#3 Posté le 14/11/2014 à 09:12:00
C' est ici, et nul part ailleurs. « Et pis c'est tout ! »Avec cet exemple peut-être:
1
2
3
4
5
6
7
8
9
10
11
PUBLIC SUB Button1_Click()

DIM $sPATHDIRHTML AS STRING = Application.Path & "/html/" ' Chemin du Dossier de Réception
DIM $sURLHTML AS STRING = "[b]http://www.gambasforge.org/forum.html[/b]" ' URL de la page à traiter. SUPPRIMER LES BALISES [b]et[/b]
DIM $aNAMEFILE AS String[] = Split($sURLHTML, "/") ' Extraction du Nom du fichier HTML

IF NOT Exist($sPATHDIRHTML) THEN MKDIR $sPATHDIRHTML ' Pour créer le Dossier de Réception si absent
SHELL "wget -NP " & $sPATHDIRHTML & " " & $sURLHTML WAIT' Commande de Téléchargement
Editor1.Text = File.Load($sPATHDIRHTML & $aNAMEFILE[$aNAMEFILE.Count - 1]) ' Édite le fichier HTML dans un Objet Éditor

END
Pour la Périodicité d'Ugrade Horaire, ajouter la ligne en Gras ci-dessous dans /etc/crontab
0 * * * * /chemin/vers/application.gambas
Avec un Espace entre chaque Arguments
Version LinuxMint 13 (1.6.1-1+maya-mate(32-bit)) LTS Noyau 3.14.33-031433-generic (27-02-2015)
LinuxMint 13 Mate Fr ICI, LinuxMint 17 Mate Fr LÀ.
Programmation Gambas3 Installé depuis la Console Terminal avec successivement: Les 3 Lignes sudo en Gras ci-dessous...
sudo add-apt-repository ppa:gambas-team/gambas3
sudo apt-get update
sudo apt-get install gambas3 -y
Gambas3.8.4-57.47 (Mise à Jour Auto via mintupdate le 28-01-2016)
Pour la Doc, c'est vers là: Documentation Gambas3 FR
vuott#4 Posté le 14/11/2014 à 16:51:44
Ne cedere ineluctabili possimusHello,
I would like to point out this page (language in italian):

http://www.gambas-it.org/wiki/index.php?title=Acquisire_il_codice_HTML_di_una_pagina_web
« Vita non suavis esse potest, nec Mors amara. »
Reivillo#5 Posté le 14/11/2014 à 18:56:43
C' est ici, et nul part ailleurs. « Et pis c'est tout ! »Bonsoir vuott.

Merci.
Ça va mieux, quand on trouve l'Objet Ad-Hoc.
Cocher les Composants: gb.qt4, gb.qt4.ext, gb.qt4.webkit
Pour Tester mettre sur la Form un Objet WebView, et un Editor
et SUPPRIMER L'ESPACE APRÈS http, dans le Code.( Ligne 3 )
1
2
3
4
5
6
7
8
9
10
11
PUBLIC SUB Form_Open()

WebView1.url = "http ://www.gambasforge.org/forum.html"' Pour Tester SUPPRIMER L'ESPACE APRÈS http

END

PUBLIC SUB WebView1_Load()

Editor1.Text = WebView1.HTML

END
Version LinuxMint 13 (1.6.1-1+maya-mate(32-bit)) LTS Noyau 3.14.33-031433-generic (27-02-2015)
LinuxMint 13 Mate Fr ICI, LinuxMint 17 Mate Fr LÀ.
Programmation Gambas3 Installé depuis la Console Terminal avec successivement: Les 3 Lignes sudo en Gras ci-dessous...
sudo add-apt-repository ppa:gambas-team/gambas3
sudo apt-get update
sudo apt-get install gambas3 -y
Gambas3.8.4-57.47 (Mise à Jour Auto via mintupdate le 28-01-2016)
Pour la Doc, c'est vers là: Documentation Gambas3 FR
gambix#6 Posté le 22/11/2014 à 22:23:32
Faire simple !OUlaaa

Vous ne connaissez pas gb.net.curl ?

Dans ce composant on a une classe nommée httpclient.


Dim hClient as new httpClient

hClient.Url = "http://www.gambasforge.org"
hClient.aSync = False
hClient.Timeout = 60
hClient.Get

if not hClient.Statut <0 then print hClient.Peek()


De plus cette classe s'utilise en mode console ...il n'est pas nécéssaire de charger un composant graphique... Hormis pour l'impression
Moins de texte dans une signature c'est agrandir son espace.
1