ProgWdm

WEBDEV - Afficher une image dans un champ de saisie

2010-09-08T01:52:00.000-07:00

Je viens de visiter une site sympa ou le formulaire de contact m'a plu. J'ai donc décidé de le refaire en WEBDEV.

Objectif réaliser ceci :

Dans WEBDEV on commence par créer deux cellules. La première avec un fond blan uni et la seconde avec les paramètres suivants :

Ensuite il faut définir la couleur de CEL_Form et mettre l'image à droite :

Puis ajout des champs de saisie et pour chaque champ de saisie on créer un style au projet

et on place le code CSS :

dans chaque champ de saisie on aura le code css suivant :

background-image: url(c-icons.png);

background-repeat: no-repeat;

padding-left: 20px;

border: 1px solid #BFBFBF;

puis pour chaque champ on ajoutera un code css spécifique :

Nom : background-position: 3px 4px;

Email : background-position: 3px -15px;

Site web : background-position: 3px -37px;

sujet : background-position: 3px -57px;

cette ligne idique quelle partie de l'image il faut afficher dans le champ, car on fait référence qu'a une seule image c-icons.png :

C'est presque fini. Il reste le champ de saisie pour le messge. Pour celui-ci on aura qu'une ligne CSS à mettre :
border: 1px solid #BFBFBF;

Et pour le bouton le style CSS sera le suivant :

color: white;

background: #2E6DA3;

border: none;

On pourrait presque se passer du code CSS et mettre le tout dans les ongles texte et fond su style.

ATTENTION : les modifications de style CSS ne seront visible qu'en exécution...

comment géolocaliser une adresse et la centrer avec WEBDEV (Google Maps v3) ?

2010-08-20T05:36:00.000-07:00

Voici une petit code javascript qui s'utilise avec le code déjà publier dans le billet suivant "WEBDEV 15 - Google maps v3" .

Dans la collection de procédure : pGestionCartes ajouté la procédure suivante :

function RechercheCoordonneesDepuisAdresse(sAdresse, sNomFonction)

{

// On a récupéré le nom de la fonction sous forme de chaîne, donc on récupère maintenant le pointeur sur cette fonction

var objFonction = eval(sNomFonction);

//alert(objFonction);

var geo = new google.maps.Geocoder();

geo.geocode({'address': sAdresse},objFonction);

}

sNomfonction est une fonction WLangage navigateur local à la page par exemple. Voici un exemple de fonction :

function LocalRetourRecherche(res,stat) /

{

var coordonnee = null;

if (stat == google.maps.GeocoderStatus.OK){

gObjCarte.setCenter(res[0].geometry.location);

var coordonnee = res[0].geometry.location;

//Pour le debuguage de lappli

var marke = new google.maps.Marker({position: coordonnee, map: gObjCarte, title: "adress" });

}else {

alert("Geocode was not successful for the following reason: " + stat);

}

Les deux paramètres (res et stat) sont passés automatiquement par la méthode geo.geocode.

WEBDEV 15 - Google maps V3

2010-07-21T01:01:00.000-07:00

Pour afficher une carte Google maps v3 dans un site WEBDEV, je me suis inspiré de l'exemple WW_Cartes de la LST 72.

Pour passer en v3 des APIs google maps, il faut bien évidement consulter la doc :

http://code.google.com/intl/fr-FR/apis/maps/documentation/javascript/introduction.html

A partir de cette introduction et de la doc des API (http://code.google.com/intl/fr-FR/apis/maps/documentation/javascript/reference.html) on peut commencer dans WEBDEV.

Dans l'onglet avancé de la description de la page mettre :

Dans cette page, mettre un champ libellé HTML et dans le code d'initialisation de ce dernier mettre le code suivant :

Ce code permet d'afficher la carte sur tous les navigateurs. Sans ce code sous chrome la carte prends tout le navigateur.

Ensuite dans le code Onload de la page mettre le code :

gObjCarte est un entier

CreerCarte("CARTE", 0,180)

La variable gObjCarte est utilisée dans plusieurs fonction de manipulation de la carte elle est donc déclarer en global navigateur.

Pour une facilité d’utilisation et de réutilisation création d’une collection de procédure dans les procédures globales navigateur

Nom de la collection : pGestionCartes

La procédure est écrite en javascript. Il faut donc cliquer sur WL après création de la procédure

Création de la carte :

// Résumé : Création de la carte google map

// Syntaxe :

//CreeCarte ()

// Paramètres :

// sNomChampCarte : Nom du champ HTML (..alias ou id défini dans DIV)

// nlat : latitude du centre de la carte

// nlong : longitude du centre de la carte

// Valeur de retour :

// Aucune

function CreerCarte(sNomChampCarte,nlat,nlong)

{

if (nlat==0){

nlat = 48.856558;

};

if (nlong==0){

nlong = 2.350966;

};

// Création de la carte

var latlng = new google.maps.LatLng(nlat, nlong);

var myOptions = {

mapTypeControl: true,zoom: 5, center: latlng, mapTypeControlOptions: {style: google.maps.MapTypeControlStyle.DROPDOWN_MENU},navigationControl: true,mapTypeId: google.maps.MapTypeId.ROADMAP

}

// création de la carte

gObjCarte = new google.maps.Map(document.getElementById(sNomChampCarte),myOptions);

}

WinDev 14 : Table avec colonne Conteneur

2008-12-22T00:26:00.000-08:00

Les colonnes de type conteneur permettent une plus grande liberté d'affichage :

Dans la description du champ, il suffit d'indiquer dans la colonne concernée, son type et de définir un champ principal. Utile pour le tri sur la colonne.

Ensuite, il faire un Drag&Drop dans champs (disponibles dans la deuxième barre d'outil de l'éditeur de fenêtre) et de les placer dans la colonne de type conteneur.
Pour alimenter la colonne conteneur par programmation, il faut utiliser l'indice de l'élément ajouter dans la table :

exemple de code :
i est un entier
POUR TOUT CLIENT SUR NomClient
i = TableAjouteLigne(MoiMême,0,"","")
TABLE_Table1.COL_Client[i].LIB_NOM_Prénom = CLIENT.NomClient
TABLE_Table1.COL_Client[i].LIB_Adresse1 = CLIENT.Adresse1
TABLE_Table1.COL_Client[i].LIB_Adresse2 = CLIENT.Adresse2
TABLE_Table1.COL_Client[i].LIB_CP_Ville = CLIENT.CodePostal+" "+CLIENT.Ville
FIN

Les champs LIB_xx sont placés dans une colonne de type conteneur.

Tracer un chemin avec les fonctions Google de Windev 14

2008-12-20T09:32:00.000-08:00

Il est possible de tracer un chemin avec la fonction gglrecupèreCarte. Il faut pour cela utiliser tous les paramètres de la fonction. Quelques difficultés peuvent être rencontrées, voir astuces en bas de cet article.

Il faut déterminer les différents paramètres du trait de la structure gglParamètreCarte. De plus il faut déterminer un marqueur si vous utilisez le zoom automatique (la zone ne fonctionne pas contrairement au message d'erreur affiché dans le cas où aucun marqueur n'est défini)
Ici j'ai utilisé un tableau de structure pour les différents points du tracé. Ce qui a permis d'utiliser les [ ] pour le remplissage du tableau dynamique.
Le POUR TOUT ELEMENT est très pratique pour le parcours du tableau.
Remarquez également l'utilisation de la fonction Ajoute pour ajouter un élément à un tableau. On aurait pu aussi utiliser la fonction TableauAjoute.

Voici le code utilisé lors du clic sur le bouton :
point est une structure
lat est un réel
longi est un réel
FIN

cléGoogle est une chaîne = "VotreClé"
Chemin est un gglParamètreCarte
stUnPoint est un point
sCoord est un gglCoordonnée
tabCoord est un tableau de 0 point
Trajet est un gglChemin
UnMarq est un gglMarqueur

// définition du trait
Chemin.Chemin..Couleur = iRougeFoncé
Chemin.Chemin..Epaisseur = 2
Chemin.Chemin..Opacité = 100

//définition du tableau de point
tabCoord = [[40.7078,-74.0021],[46.7140,-56.3968],[51.0165,-29.5967],[51.1067,-25.1016],
[49.8997,-6.1730],[48.9577,2.1423]]
// définition des points du tracer
POUR TOUT ELEMENT stUnPoint DE tabCoord
sCoord.Latitude = stUnPoint.lat
sCoord.Longitude = stUnPoint.longi
Ajoute(Chemin.Chemin..Point,sCoord)
FIN
Chemin.Format = gglJPG
// quand on met un Zoom auto il faut préciser une Zone ou un marqueur
// mais marche pas avec une zone alors on met un marqueur
//chemin.Zone.Latitude = 40.7078
//chemin.zone.Longitude = -74.0021
// définition du marqueur
UnMarq.Latitude = 40.7078
UnMarq.Longitude = -74.0021
UnMarq.Taille = gglPetit
Ajoute(Chemin.Marqueur,UnMarq)
IMG_Image1=GglRécupèreCarte(cléGoogle,40.7078,3.9483,gglZoomAuto,600,400,gglHybride,Chemin)

CAS ERREUR:
Erreur(ErreurInfo(errComplet))

ASTUCES :
Lorsque Google ne renvoie pas la carte, il n'y a pas de message d'erreur, rien ne se passe. Donc si lors du clic sur le bouton, vous avez tout de suite la main sur l'appli, c'est que vous avez trop de points.

Il faut faire attention au nombre de point du tracé. En effet on est limité à 100 points, sauf que celui-ci diminue si on met des marqueurs. Donc si la carte ne s'affiche pas, c'est que vous dépassez le nombre de points. Dans mes tests en mettant 7 marqueurs, je n'ai pu mettre que 70 points au tracé.

Le cas erreur, c'est la gestion automatique des erreurs, inutile de le saisir directement, vous aurez une erreur. Il faut cliquer sur le lien "Si erreur : par programme" du pcode pour avoir le "cas erreur".

Attention :
Si vous utilisez la syntaxe Chemin.Chemin..Point, vous ne pouvez pas l'utiliser dans la fonction Ajoute, il faudra écrire Chemin.Chemin.point. (signaler au ST)

Vous ne pouvez pas non plus utiliser les [] pour remplir un tableau de structure si vous avez déclaré votre tableau : tab est un tableau dynamique de 0 gglCoordonnées (signaler au ST).
C'est pour ca que dans le code il y a une déclaration d'une structure "Point".

Utilisation des fonctions google en WinDev 14

2008-12-20T08:28:00.000-08:00

Pour afficher une carte dans un champ image, il faut utiliser les fonctions gglRecupèreCarte et la structure gglCoordonnée. De plus une fonction bien utile pour trouver les coordonnées géographiques d'une ville ou une adresse : gglAdresseVersCoordonnées.

Pour utiliser les fonctions google, il faut s'inscrire sur le site de Google afin d'obtenir la clé indispensable pour la récupération de carte.

Voici les quelques ligne de code pour obtenir ce résultat :
cléGoogle est une chaîne = "Votre clé"
sCoord est un gglCoordonnée

sCoord = GglAdresseVersCoordonnées(cléGoogle,SAI_Adresse)

IMG_Image1 = GglRécupèreCarte(cléGoogle,sCoord.Latitude,sCoord.Longitude,12,631,408,gglHybride)

Astuce : attention au zoom, il va de 0 à 19, toutefois à 19, si google ne peut pas fournir ce niveau de détail, il se passera rien dans votre fenêtre. par conséquent indiquer un niveau de détail normal.

Comment connaitre la taille en pixel d'une chaine de caratère

2008-05-16T07:47:00.000-07:00

La fonction TexteLargeur permet de connaitre la taille en pixel d'une chaine de caractère.
Toutefois, cette fonction admet en premier paramètre un champ de saisie.
De plus il faut faire attention à la police utilisé.

Si par exemple vous créez la police suivante :

polPolice est une Police
polPolice = PoliceCrée("Tahoma", 7, iNormal, iNoir)

Il faut alors associé la police au champ de saisie :

SAI_Saisie1..Police = polPolice

Ensuite :

NbPixel = TexteLargeur(SAI_Saisie1,"Ma chaîne")

WinDev 12 – Splitter une chaîne dans un tableau

2008-01-18T03:31:00.000-08:00

Voici une procédure qui permet de mettre les valeurs d'une chaîne de caractères séparées par un séparateur défini, dans un tableau :

// Résumé : Permet de remplir un tableau de chaine à partir d'une chaine et d'un séparateur

// Syntaxe :

//[ = ] Split ( est chaîne, est chaîne [, est booléen [, est entier]])

// Paramètres :

// sChaineCara (chaîne) : Chaine de caractères à splitter

// sSeparateur (chaîne) : Le séparateur à utiliser

// bTrié (booléen - valeur par défaut=0) : Faux (valeur par défaut) le tableau n'est pas trié, vrai pour avoir un tableau trié

// pType (entier - valeur par défaut=1) : Type de trie : ttCroissant ou ttDécroissant

// Valeur de retour :

// tableau : // Tableau contenant les valeurs de la chaine passée en paramètre.

// Exemple :

// tabSP est un tableau dynamique de 0 chaines

// tabSP = Split("toto;abc;zoro;aab;tata",";",Vrai,ttCroissant)

PROCEDURE Split(sChaineCara est une chaîne, sSeparateur est une chaîne,bTrié est un booléen = Faux,pType est un entier = ttCroissant)

tabSplit est un tableau dynamique de 0 chaînes

s est une chaîne // variable de boucle

POUR TOUTE CHAINE s DE sChaineCara SEPAREE PAR sSeparateur

TableauAjouteLigne(tabSplit,s)

FIN

SI bTrié ALORS

SI pType = 0 ALORS pType = ttCroissant

TableauTrie(tabSplit,pType)

FIN

RENVOYER tabSplit

Exemple d'utilisation :

tabSP est un tableau dynamique de 0 chaîne

tabSP = Split("toto;abc;zoo;aab;tata",";",Vrai,ttCroissant)

WinDev 12 - Utilisation de MesParamètres

2008-01-15T23:44:00.000-08:00

Cette instruction WLangage permet de passer autant de paramètres à une procédure que l'on souhaite grâce à l'opérateur *.

Exemple :

PROCEDURE Calcul(pParam1, *)

Dans cette procédure * représente les autres paramètres possibles.

Ces paramètres optionnels sont accessibles via l'instruction MesParamètres.

Le plus intéressant, avec cette instruction, c'est que l'on peut accéder à des propriétés d'un objet. Par exemple si on veut modifier la visibilité d'une colonne dans une procédure globale on peut passer en paramètre à la procédure le nom complet de la colonne :

Exemple code :

// Code d'un bouton
ModInterface(Fen_Fenêtre1.Table1.Col_Colonne1, faux)

PROCEDURE ModInterface(*)

MesParamètres[1]..visible = MesParamètres[2]

WebDev - Récupérer le User name Windows de l'internaute

2007-10-17T04:30:00.000-07:00

Si vous saisissez cette URL : http://localhost/?user=%USERNAME% vous verrez apparaitre le nom d'utilisateur du poste dans l'URL. (Seulement valable sous IE)

Il est donc possible grâce à une applet Java de récupérer cette information. Dans la LST 68 page 35, l'exemple WD Applet FTP permet de le faire.

Dans l'applet la fonction RéseauUtilisateur() permet de récupérer le nom d'utilisateur Windows.

Dans le site WebDev une fonction Javascript permet de récupérer la valeur de la variable.

Achat sur Internet : PCSOFT lance la commande en ligne

2007-09-12T00:21:00.000-07:00

Je viens de voir sur le site de PC SOFT, la possibilité d'acheter des produits en ligne.
Sur la page tarif, on peut se constituer un panier et régler par carte bancaire via paybox.

Depuis le temps qu'on attendait cette possibilité, c'est enfin une réalité.

Créer la database sur MySQL avec WinDev, WebDev

2007-09-10T02:55:00.000-07:00

N'ayant pas trouvé comment créer la database MySQL avec l'accès natif, je me suis reporté sur la connexion ODBC
Lors de la connexion avec l'accès natif, il faut préciser le nom de la base. Il est donc necessaire d'utiliser PHPMyAdmin ou SQLylog pour créer la base.
Je souhaitais créer par programmation la database puis lancer le script des tables.

La fonction SQLConnecte permet d'effectuer ce traitement si on utilise la connexion ODBC.

Voici le code permettant de créer la database :

id est un entier = SQLConnecte("MysqlODBC","root","mdp","","ODBC ",hODBC)
SI id <> 0 ALORS
sNomDatabase est une chaîne = "Database"
// création de la base de données
sSql est une chaîne = "CREATE DATABASE IF NOT EXISTS %1"
sSql = ChaîneConstruit(ssql,sNomDatabase)
// execution de la requête
SI PAS SQLExec(ssql,"REQ") ALORS
SQLInfoGene()
Erreur("La Database n'a pas pu être créée. Code erreur : " + SQL.Erreur +RC+...
SQL.MesErreur)
FIN
SINON
// La connexion a échoué : affichage d'un message explicatif
SQLInfoGene()
Erreur("La connexion à la source de données" + "localhost" + ...
"a échoué."+RC+...
"Code erreur : " + SQL.Erreur +RC+...
SQL.MesErreur)
FIN
// Dans tous les cas (connexion OK ou pas)
SQLDéconnecte()

Ensuite on peut utiliser les fonctions "H*" avec l'accès natif MySQL.
Un peut contraignant, car il faut le drivers ODBC d'installé sur le poste.

Arrêt du support de PHP 4

2007-08-13T08:49:00.000-07:00

Une news paru sur PHP index indique l'arrêt du support de PHP 4 le 31 décembre 2007.
Il va falloir penser à passer à la version 5 de PHP.

En espérant que la prochaine version de WebDev supporte la version 5 de php.

WebDev 11. Image dynamique et répertoire des données.

2007-08-09T05:11:00.000-07:00

Dans l'aide en ligne il est indiqué que pour une image de type dynamique, les images doivent se trouver dans le répertoire _WEB ou un sous répertoire de celui-ci.

Toutefois, en déploiement, l'invité internet n'a pas les droits en écriture dans le répertoire _WEB.

Par conséquent, lorsque une page d'administration permet au Webmaster de modifier et changer des images, il faut que celles-ci se trouvent dans le répertoires de données seul répertoire ou l'invité internet à les droits de lecture/écriture.

Malheureusement on ne peut pas accéder à ce répertoire en code navigateur, car la fonction WLangage fRepDonnées est disponible qu'en code serveur.

De plus si le type d'image est défini en dynamique, même en code serveur, il faut un chemin relatif pour pouvoir afficher une image.

Solution 1 : Créer un Alias ou répertoire virtuel sur le répertoire des données.

Sous Apache 2.2.x l'alias se créer de la façon suivante dans le fichier httpd.conf

Alias /DATA/ "C:/temp/Test_Image_Timer/Exe/DATA/"

Order allow,deny

Allow from all

</Directory>

NOTE : Pour les tests j'ai créé un alias sur un sous répertoire du répertoire exe du projet. En déploiement se répertoire correspond au répertoire données décrit dans la création du compte WebDev.

PS : pour ceux qui utilisent le CCHerbergement, il faudra dans IIS créer un répertoire virtuel supplémentaire depuis la console de configuration du serveur Web.

Ensuite dans le code WebDev on peut écrire le code suivant :

Le champ Image est de type dynamique

// Code initialisation de la page (serveur)

IMG_Image1 = "../DATA/ImgAcc/ImgAcc01.jpg"

Solution 2 :

Modifier les droits sur un sous répertoire du répertoire _WEB. Cela signifie de demander à son hébergeur une modification.

WinDev 11 . Procédures Stockées MySQL 5.x

2007-08-06T05:57:00.000-07:00

Pour utiliser les procédures stockées avec MySQL 5.x, il faut tout d'abord avoir l'accès natif MySQL dernière version. C'est à dire la version 46b.

Vous trouverez l'accès natif à l'adresse suivante :

http://www.pcsoft.fr/st/telec/modules-communs-11/mysql.htm

Soit un fichier client :

Version : Serveur MySQL 5.0.45

- Exemple de procédure stockée avec passage de paramètres :

1 – Création de la procédure stockées sur le serveur

sProc est une chaîne = [

"DROP PROCEDURE IF EXISTS `procstok`.`simpleproc1` ;

CREATE PROCEDURE simpleproc1 (OUT param1 INT) BEGIN SELECT COUNT(*) INTO param1 FROM client; END;

]

scReq est une Source de Données

// Exécution de la requête

SI PAS HExécuteRequêteSQL(scReq,MaConnexion1,hRequêteSansCorrection,sProc) ALORS

Erreur()

SINON

Info("Procédure stocké créée")

FIN

2 – Exécution de la procédure stockée :

sdReq est une Source de Données

SI PAS HExécuteRequêteSQL(sdReq,MaConnexion1,hRequêteSansCorrection,"call simpleproc1(@a);select @a;" ) ALORS

Erreur()

SINON

Info("Gagné")

// Lecture du résultat de la procédure

HLitPremier(sdReq,hSansRafraîchir)

Trace(sdReq.@a)

FIN

NOTE : la constante hSansRafraîchir permet de ne pas ré-exécuter la requête.

CCNG très utile.

2007-06-28T22:43:00.000-07:00

Le lecteur de news (LST 68) intégré aux éditeurs PC SOFT, en vraiment très pratique, si l'on utilise l'option "Afficher uniquement les messages non lu", car j'avais mis en suivi un message concernant le calcul de clé de lettre recommandé qui date du mois d'avril.

Récemment une réponse a été faite. Du coup j'ai été notifié et en plus les messages apparaissent dans la liste. Pas besoin d'effectuer de recherche, tout est là.

Code-Cible Conditionnel

2007-06-28T03:59:00.000-07:00

Très utile lors de création de procédure utilisable dans WinDev, WebDev et WinDev Mobile.

Le Code-Cible Conditionnel permet de mettre un code différent en fonction de la plateforme choisie.

Ainsi une procédure créer en WinDev, avec l'utilisation de fonction non disponible en WebDev pourra être utilisée grâce au code cible.

Exemple la fonction "Dialogue" n'est pas disponible en WebDev. Donc dans WinDev on mettra les codes suivants.

Conseil : Bien suivre l'aide pour ajouter les zones de code-cible conditionnel.

WebDev - Comment après un code serveur utiliser la fonction NavigateurOuvre ?

2007-05-10T22:50:00.000-07:00

Comment ouvrir un page Web après un traitement en code serveur ?

Il faut utiliser la fonction NavigateurOuvre. Toutefois, cette fonction est disponible qu'en code navigateur et pas en code serveur.

L'astuce consiste à utiliser un champ caché, qui fera office de booléen.
Dans un code serveur, on effectue le traitement souhaité, puis on affecte 1 au champ caché.
Puis dans le code d'onload de la page, on utilise la syntaxe suivante :

SI SAI_MonChamp <> 0 alors
NavigateurOuvre("http://www.monsite.fr")
FIN

Style CSS et WebDev 11

2007-05-02T08:35:00.000-07:00

Comme ça n'est pas précisé dans la doc, voici comment mettre du code CSS dans la description d'un champ.

Prenons le champ lien, par exemple. Il faut aller dans la description du lien dans l'onglet Style.
Puis cliquer sur "Editer".
Ensuite dans la description du style dans l'onglet CSS, on va mettre un code css de survol du lien.
Sélectionner Survol et mettre le code (exemple) :
color:#411;
background:#aaa;
border-bottom: 1px solid #555;

Il faut oublier la syntaxe : "a{ }" et mettre que les attributs.
Voilà un effet de survol en CSS.

Mise à jour WD Véhicule

2007-04-26T02:53:00.000-07:00

Une mise à jour est disponible. Quelques corrections et améliorations ont été apportées.

Vous pouvez télécharger la mise à jour à l'adresse suivante : http://progwdm.free.fr/#sect1.8.

Récupérer un flux RSS dans WebDev

2007-04-25T05:58:00.000-07:00

Pour récupérer le contenu d'un fichier XML, il faut utiliser la fonction HTTPRequête.

Voici le code :
sURL est une chaine = "http://nomDomaine.com/rep_du_Fichier_XML"

HTTPRequête(sURL,ProjetInfo(piNomProjet)) //
sres est une chaîne = HTTPDonneRésultat(HTTPRésultat)

Voila sres contient le fichier XML du flux RSS.
Ensuite il faut parcourir le fichier pour extraire les éléments. L'utilisation de fonction "XML" permet facilement d'obtenir le contenu.

Il existe un exemple complets dans WinDev : "Lecteur RSS", les procédures et classes sont utilisables dans WebDev.

Trouver des infos à partir de l'adresse IP

2007-04-25T01:09:00.000-07:00

Il peut être intéressant, à partir d'une adresse ip, d'avoir le pays, la ville et les coordonnées géographique.
Cela est utile pour afficher des informations liées à la ville, ou positionner l'internaute sur une carte.
C'est possible avec le projet HostIp.
Voici une collection de procédures permettant de récupérer ces infos :

Déclarations des procédures globales :
Infos est un tableau associatif (*, *, *, 4) de chaînes

PROCEDURE RecupInfos(sIp est une chaîne)
s est une chaîne

// On interroge Hostip.
SI PAS HTTPRequête("http://api.hostip.info/get_html.php?ip="+sIp+"&position=true") ALORS
Erreur()
SINON
sres est une chaîne = HTTPDonneRésultat(HTTPRésultat)
// sRes est de la forme
// Country: FRANCE (FR)
// City: (Unknown city)
// Latitude:
// Longitude:
POUR TOUTE CHAINE s DE sres SEPAREE PAR Caract(10)
Infos[SansEspace(ExtraitChaîne(s,1,":",DepuisDébut))] = ExtraitChaîne(s,2,":",DepuisDébut)
FIN
FIN

PROCEDURE Pays()

RENVOYER Infos["Country"]

PROCEDURE Ville()

RENVOYER Infos["City"]

PROCEDURE Lattitude()

RENVOYER Infos["Latitude"]

PROCEDURE Longitude()

RENVOYER Infos["Longitude"]

Demarrer...Executer dans une Combo WinDev

2007-04-05T03:28:00.000-07:00

J'ai voulu faire l'équivalent de "démarrer...exécuter" de Windows, avec une combo dans WinDev 11.

A chaque saisie de caractère, la combo propose les fichiers et répertoires commençant par ce caractère. Une sorte de saisie assistée.

Voici le code Utilisé :

Le code d'entrée de la combo.

Code à chaque modification de la combo :

ch est une chaîne = MoiMême..ValeurAffichée // Recupération de la valeur saisie dans la combo
pos est un entier = Position(ch,"\",0,DepuisFin) // Position du curseur.

SI Taille(ch) >= 2 ALORS // A partir du deuxième caractère on recherche les fichiers et répertoires
// Suppression du contenu de la combo
POUR i = ListeOccurrence(MoiMême) A 1 PAS -1
ListeSupprime(MoiMême,i)
FIN
SI ListeOccurrence(MoiMême) > 0 ALORS ListeModifie(MoiMême,"",1)
// Le premier caractère doit correspondre à une unité de disque : de A à Z
SI Asc("A") < pertoire =" fRep(ch+">""
// Liste des répertoires
ListeAjoute(MoiMême,ch[[1 A 2]]+["\"]+ch[[3 A pos]]+["\"]+sRépertoire)
// Répertoire suivant
sRépertoire = fRep("", frRépertoire)
FIN

// Ajout des fichiers qui sont à la racines
ListeAjoute(MoiMême,fListeFichier(ch+"*",frNonRécursif))
// Ouverture de la combo
ComboOuvre(MoiMême)
FIN
FIN

Code de Sélection de la Combo :

la propriété ..Curseur permet de positionner le curseur à la fin de la chaine saisie

Mise à Jour WD Vehicule (Mobile)

2007-04-02T08:32:00.000-07:00

Suite au feedback des utilisateurs des corrections ont été apportées.
La mise à jour sera proposée lors de la prochaine ouverture de l'application sinon vous
pouvez la télécharger à l'adresse suivante http://progwdm.free.fr/#sect1.7.

Combo : clic sur la flèche

2007-03-16T03:38:00.000-07:00

Comment afficher dans une combo, la liste des bases disponibles sur un serveur Hyper File, au clic sur la flèche (Ouverture de la combo) de la combo ?

Il faut utiliser l'événement : WM_NCLBUTTONDOWN.

Ne pas oublier de mettre EXTERN "WinConst.wl" dans la déclaration globale de la fenêtre.

Branchement de l'évènement : (Code global de la fenêtre)

Evénement("RemplitComboBaseHF","COMBO_Base",WM_NCLBUTTONDOWN)

Création de la procédure "RemplitComboBaseHF" :

PROCEDURE RemplitComboBaseHF()

// Ouverture de la connexion

SI PAS HOuvreConnexion("Moi",SAI_LoginHFCS,SAI_MdpHFCS,SAI_Serveur+":"+SAI_Port,"",hAccèsHFClientServeur) ALORS

Erreur()

SINON

// Récupération de la liste des bases disponibles

ListeBase est une chaîne = HListeBaseDeDonnées("Moi",hLstNormal)

ListeSupprimeTout(COMBO_Base)

s est une chaîne

// Ajout des bases dans la combo

POUR TOUTE CHAINE s DE ListeBase SEPAREE PAR TAB

ListeAjoute(COMBO_Base,s)

FIN

// Sélection de la première base.

SI ListeOccurrence(COMBO_Base) > 0 ALORS ListeSelectPlus(COMBO_Base,1)

HFermeConnexion("Moi")

FIN

Nouveau sur le Site Progwdm

2007-03-09T02:25:00.000-08:00

Une nouvelle version de l'utilitaire WD Véhicule est disponible.
Développé en version 11 de WinDev Mobile, l'utilitaire s'enrichit d'un clavier virtuel à grosse touche, permettant la saisie sans le stylet, et gère maintenant le véhicule bi-carburation.
La mise à jour de application est automatique. Tous les 7 jours au lancement, WD Véhicule vérifie si une mise à jour est disponible.

[En savoir plus..]

Suggestion, signalement bug : progwdm@free.fr

VérifieExpressionRegulière (bis)

2007-03-02T06:43:00.000-08:00

Dans un précédent poste, j'avais déjà abordé l'utilisation de la fonction VérifieExpressionRégulière.

Récemment, j'ai eu l'occasion de l'utiliser avec récupération d'éléments dans des variables.

Le but : vérifier un format de Date comme :

Tue, 11 Apr 2006 18:25:09 +0200

Thu, 1 Mar 2007 04:12:26 +0100 (CET)

Etape par étape :

Chaine / Format

Chaine	Expression régulière	Commentaires
Tue,	[A-Za-z]{3,3}[,]
	[ ]*	Il peut y avoir 1 à plusieurs espaces
11 Apr 2006	([0-9]{1,2}) ([A-Za-z]{3,3}) ([0-9]{4,4})
18:25:09	([0-9]{2,2}[:][0-9]{2,2}[:][0-9]{2,2})
+0200	[\+][0-9]{4,4}
	[ ]*
(CET)	[$][A-Z][$]*	* siginifie 0 ou plusieurs fois

Les parenthèses en permettent de définir des parties de l'expression régulière que l'on veut extraire.

Dans ce cas, on peut vérifier et récupérer la date et l'heure en 1 opération.

Il faut ajouter des parenthèses dans l'expression régulière. Ce qui donne au final :

[A-Za-z]{3,3}[,][ ]*([0-9]{1,2}) ([A-Za-z]{3,3}) ([0-9]{4,4}) ([0-9]{2,2}[:][0-9]{2,2}[:][0-9]{2,2}) [\+][0-9]{4,4}[ ]*[$]*[A-Z]*[$]*

Ainsi voici le code obtenu :

sJour,sMois,sAnnée,sheure,sDateAVerif sont des chaînes

sDateAVerif = "Tue, 11 Apr 2006 18:25:09 +0200"

SI PAS VérifieExpressionRégulière(sDateAVerif ,"[A-Za-z]{3,3}[,][ ]*([0-9]{1,2}) ([A-Za-z]{3,3}) ([0-9]{4,4}) ([0-9]{2,2}[:][0-9]{2,2}[:][0-9]{2,2}) [\+][0-9]{4,4}[ ]*[$]*[A-Z]*[$]*",sJour,sMois,sAnnée,sheure) ALORS

Info("Incorrect")

SINON

Info("Correct",sJour+"/"+sMois+"/"+sAnnée,sheure)

FIN

PS : Comme dirait un vieil ami (très vieux!), lorsqu'on manipule les expressions régulières, il faut un fenêtre de test avec un champ en taille 24. Ainsi on peut voir clairement l'expression régulière.

PersoMenu WinDev, WebDev et WinDev Mobile.

2007-01-04T22:58:00.000-08:00

Le « PersoMenu » permet de lancer n'importe quel exécutable à partir de l'éditeur grâce à une ligne de commande et des macros.

Dans le billet précédent, je parlais de WebDev 11 (35c) qui ne configurait pas le serveur Apache 2.2.3 automatiquement.

J'ai donc fait un programme en Wlangage permettant d'ajouter l'alias pour chaque site dans le fichier httpd.conf.

Puis dans WebDev j'ai créé un Perso menu :

La ligne de commande est la suivante :

"D:\Projet\ModifHttpd.conf\Exe\ModifHttpd_conf.exe" "C:\Program Files\Apache Software

Foundation\Apache2.2\conf\httpd.conf" "{$RepProjet}"

{$RepProjet} : c'est une macro disponible est cliquant sur le bouton « Macro ». Elle renvoie le chemin du répertoire du projet.

ModifHttpd_conf.exe : Mon programme WinDev permettant d'ajouter l'alias au fichier httpd.conf.

Astuce : Dans l'aide il n'est pas précisé comment créer une ligne de commande avec un chemin d'accès contenant des espaces. Le plus simple est de tester la ligne de commande dans « Demarrer...executer » de windows.

Code du programme WinDev « ModifHttpd_conf.exe » :

// Code de déclaration global du projet

LOCAL

gsRes est une chaîne

gnIdFic est un entier

gsCheminFic est une chaîne

gsALias est une chaîne

gsNomSite est une chaîne

gbRes est un booléen

// exemple de ligne de commande:

//"D:\Projet\ModifHttpd.conf\Exe\ModifHttpd_conf.exe" "C:\Program Files\Apache Software Foundation\Apache2.2\conf\httpd.conf" "C:\WebDev 11\Exemples\Exemples complets\WW_Editeur_HTML"

gsCheminFic = LigneCommande(1) //C:\Program Files\Apache Software Foundation\Apache2.2\conf\httpd.conf

gsALias = LigneCommande(2) //C:\WebDev 11\Exemples\Exemples complets\WW_Editeur_HTML

// Ligne de code pour test

SI EnModeTest() ALORS

gsCheminFic = "C:\Program Files\Apache Software Foundation\Apache2.2\conf\httpd.conf"

gsALias = "C:\WebDev 11\Exemples\Exemples complets\WW_Editeur_HTML\"

FIN

SI gsCheminFic <> "" ALORS

// Ouverture du fichier httpd.conf

gnIdFic = fOuvre(gsCheminFic,foAjout)

SI gnIdFic <> -1 ALORS

SI gsALias <> "" ALORS

// On rajoute _WEB au chemin du site

SI Droite(gsALias,1) = "\" ALORS

gsALias = gsALias[[1 A (Taille(gsALias)-1)]]

FIN

gsNomSite = ExtraitChaîne(gsALias,1,"\",DepuisFin)

gsNomSite = "/"+Majuscule(gsNomSite)+"_WEB/"

// Change les \ en /

gsALias = Remplace(gsALias,"\","/")

// On construit le chemin complet

gsALias = gsALias+gsNomSite

// Construction de la chaîne à ajouter au fichier httpd.conf

gsRes = [

Alias %1 "%2"

Options None

AllowOverride None

Order allow,deny

Allow from all

]

gsRes = RC+ChaîneConstruit(gsRes,gsNomSite,gsALias)

// Écriture dans le fichier

gbRes = fEcritLigne(gnIdFic,gsRes)

SI PAS gbRes ALORS

Erreur()

FIN

fFerme(gnIdFic)

// Redemarrer le serveur.

sr est une chaîne = [

"%1" "%2"

]

sr = ChaîneConstruit(sr,"C:\Program Files\Apache Software Foundation\Apache2.2\bin\httpd.exe","-k restart")

LanceAppliAssociée(sr)

SINON

fFerme(gnIdFic)

gsRes = [

"%1"

]

gsRes = ChaîneConstruit(gsRes,gsCheminFic)

// que sous windows

LanceAppliAssociée(gsRes)

FIN

Comment configurer Apache 2.2.3 pour WebDev 11 et PHP 4.x

2007-01-02T23:41:00.000-08:00

Après installation de la version 2.2.3 d'Apache, je me suis aperçu que je ne pouvais plus tester mes sites depuis WebDev.

Quelques recherches sur le web, m'ont permis de comprendre pourquoi.

Cette version d'apache ne fonctionne pas de la même manière que la version 2.0.59. Le fichier httpd.conf a été découpé en plusieurs fichiers ce qui le rend plus facile à lire.

Dans ce qui suit, on suppose que PHP est déjà installé sur le poste et que la version précédente d'Apache a été désinstallée.

Les étapes de la configuration :

1 – Installation d'Apache 2.2.3

Adresse téléchargement : http://www.apachefrance.com/Telechargement/4/

2 – Configuration d'Apache pour PHP

Avant de commencer il faut télécharger le fichier : php4apache2.dll-php4.4.x.zip

à l'adresse suivante : http://www.apachelounge.com/download/

Ensuite suivre les indication du fichier : Readme First.txt

Après ces manipulations, dans le fichier httpd.conf, les lignes suivantes apparaissent:

LoadModule php4_module "c:/php/php4apache2.dll"

AddType application/x-httpd-php .php

# configure the path to php.ini

PHPIniDir "C:/php"

Ensuite ajouter index.php dans la clause DirectoryIndex

Pour constater le bon fonctionnement, créer un fichier index.php contenant le code suivante :

phpinfo();

Le placer dans le répertoire \htdocs (DocumentROOT) du serveur et le lancer.

3 - Configuration d'Apache pour WebDev 11 :

Avant il suffisait d'ajouter ceci au httpd.conf :

ScriptAlias /WD110AWP/ "C:/WebDev 11/Programmes/Moteur/Windows/AWP/"

AddType application/WebDev11-awp .awp

Action application/WebDev11-awp /WD110AWP/WD110Awp.exe

maintenant en version 2.2.3 :

AddType application/WebDev11-awp .awp

Action application/WebDev11-awp /WD110AWP/WD110Awp.exe

ScriptAlias /WD110AWP/ "C:/WebDev 11/Programmes/Moteur/Windows/AWP/"

</IfModule>

AllowOverride None

Options None

Order allow,deny

Allow from all

</Directory>

Puis pour chaque site il faut ajouter :

Alias /HAWAII_WEB/ "C:/WebDev 11/Exemples/Exemples complets/Hawaii/HAWAII_WEB/"

Options None

AllowOverride None

Order allow,deny

Allow from all

</Directory>

4 – Les messages d'erreurs possibles :

« Page Not Found » au lancement d'un site WebDev :

Le ScriptAlias ou l'Alias du site n'ont pas été déclarés dans le httpd.conf
« Forbidden » au lancement d'un site WebDev :

Manque les droits sur le répertoire du moteur WebDev. Ajouter :

Options None

AllowOverride None

Order allow,deny

Allow from all

</Directory>

Les images n'apparaissent pas sur la page ou erreur javascript :

C'est la clause
<Directory « X:/..../MonSITE_WEB/ » sur le répertoire <MonSite>_WEB qui est manquante.

« Impossible de démarrer le serveur apache » lors du chargement du projet ou la mise à niveau du projet :

Webdev ne semble pas trouver le serveur Apache et ne peut donc pas le configurer. Cette erreur n'est visiblement pas bloquante. Penser à créer l'Alias dans le fichier httpd.conf (voir §3)

WinDev 11 : Table hiérarchique

2006-12-27T06:30:00.000-08:00

Je viens de me mettre à la table Hiérarchique. Afin de tester le fonctionnement, je me suis servi de l'analyse et des fichiers de l'exemple CRM livré avec WinDev 11.

But du test :

Afficher dans la table Hiérarchique la liste des lignes de commandes par commande et par client.

Résultat :

Code :

nIndiceParent est un entier

nIndiceFils est un entier

nIndiceProd est un entier

// Remplissage de la table
POUR TOUT CLIENT SUR NumClient
nIndiceParent = TableAjouteLigne(TABLEH_TableHierarchique1,CLIENT.Civilité+" "+CLIENT.NomClient)

// Affichage pour chaque client la liste de ses commandes
POUR TOUT COMMANDE AVEC NumClient = CLIENT.NumClient
nIndiceFils = TableAjouteFils(TABLEH_TableHierarchique1,nIndiceParent,"Commande n° : " +COMMANDE.NumCommande)
POUR TOUT LIGNECDE AVEC NumCommande = COMMANDE.NumCommande
// Recherche du libellé du produit
HLitRecherche(PRODUIT,Reference,LIGNECDE.Référence)
nIndiceProd = TableAjouteFils(TABLEH_TableHierarchique1,nIndiceFils,PRODUIT.LibProd+" "+LIGNECDE.Référence,LIGNECDE.Quantité,LIGNECDE.PrixVente)
FIN
FIN
FIN

TableEnrouleTout(TABLEH_TableHierarchique1)

Conclusion :

Look de la table plutôt agréable. L'utilisation des fonctions est simple.
Il est possible de modifier les images enroulées et déroulées grâce aux propriétés ..ImageEnroulée et ..ImageDéroulée.

NB : Voici le code pour mettre des images dans l'entête des colonnes.

TABLEH_TableHierarchique1.COL_Colonne1..Titre = gImage("01058-16-5.png")+"Clients /"+gImage("VST13340-16-5.png")+" Cde /"+gImage("01389-16-5.png")+" LigneCde"

Possibilité d'utiliser gStylo pour écrire dans une autre couleur.

WinDev Mobile 11 : Le Debugger sur le Pocket PC !

2006-12-18T11:47:00.000-08:00

Très pratique, le debogage directement sur le pocket PC.

Simple d'utilisation, il suffit dans le code de mettre la commande "STOP" puis de faire un GO sur le Pocket.
L'éditeur de code s'ouvre et se positionne sur le code.
Ainsi il est possible :
- de consulter les valeurs des variables,
- suivre pas à pas le déroulement du code.

Grand avantage, on voit ce que ça donne directement sur le Pocket.

Comment récupérer la valeur d'une combo dans une table mémoire ?

2006-11-24T07:27:00.000-08:00

On pourrait penser que pour récupérer la valeur du Glien d'une combo dans une table mémoire, il faudrais utiliser : NomTable[IndiceLigne][listeSelect(NomColonneCombo)]
he! bien non

Voici la bonne syntaxe :
NomColonneCombo[NomTable,NomTable]..valeur.

Cette syntaxe est uniquement valable pour une combo dans un table mémoire.
Pour une table fichier utiliser : NomColonneCombo..Valeur.

Comment modifier la police d'un libellé d'un champ de saisie

2006-11-24T06:16:00.000-08:00

Soit un champ de saisie qui comme police de libellé : MS UI Gothic.

Pour modifier la police de du libellé "Champ de saisie", il utiliser le code suivant :

sLibel est une chaîne = SAI_Saisie1..Libellé

SAI_Saisie1..Libellé = gPolice("Arial")+sLibel

Enlever les caractères Spéciaux tel que =E9,=E8,..

2006-11-23T05:09:00.000-08:00

Il arrive de récupérer une chaine de caractère (un mail ou une page internet) avec des caractères tel que =E9 en lieu et place d'un caractères accentués.

[En savoir plus]

Pour afficher une chaine sans ces caractères, voici donc une procédure permettant de les remplacer :

PROCEDURE RemplaceCaractères(pMachaine est une chaîne)

ch est une chaîne = SansEspace(pMachaine )

// Remplacement des caractères
ch = Remplace(ch,"=?ISO-8859-15?Q?","")
ch = Remplace(ch,"=?ISO-8859-1?Q?","")
ch = Remplace(ch,"=E9","é")
ch = Remplace(ch,"=E8","è")
ch = Remplace(ch,"=EA","ê")
ch = Remplace(ch,"=E7","ç")
ch = Remplace(ch,"=C9","é")
ch = Remplace(ch,"=7E","~")
ch = Remplace(ch,"?=","")
ch = Remplace(ch,"=?","")
ch = Remplace(ch,"=27","'")
ch = Remplace(ch,"=22","""")
ch = Remplace(ch,"=28","'(")
ch = Remplace(ch,"=29","')")
ch = Remplace(ch,"=2E",".")
ch = Remplace(ch,"=3A",":")
ch = Remplace(ch,"=3F","?")
ch = Remplace(ch,"=E0","à")
ch = Remplace(ch,"=3B",";")
ch = Remplace(ch,"=2B","+")
ch = Remplace(ch,"_"," ")

RENVOYER ch

Site ProgWdm

2006-11-19T08:15:00.000-08:00

Voici une page consacrée à une application WinDev Mobile.
L'utilitaire s'intitule WD Véhicule.
Il permet la gestion de carburant et d'entretien d'un ou plusieurs véhicules.
Il délivre également des statistiques sur la consommation, la station service la moins chère. D'autres fonctionnalités sont à venir...

Disponible en Téléchargement à la page suivante :
http://progwdm.free.fr/#sect1.5.

OpenXML de Microsoft (Part 1)

2006-11-11T02:32:00.000-08:00

OpenXML est le nouveau format des fichiers de la suite office. Ce sont en fait des fichiers Zip. Celui-ci contient une arborescence et des fichiers décrivant le document. En apparence on pourrait croire qu’il sera désormais simple de créer un fichier Word, par exemple, au format .docx. Cependant le format est très complexe.

Juger plutôt. Voici l’arborescence d’un document Word 2007.

Quelques explications sont données sur l’utilité des différents répertoires et fichiers sur la page suivante : http://www.microsoft.com/france/msdn/office/OpenXML/structure-fichiers-OpenXML.mspx. On s’aperçoit rapidement que le code XML n’est pas simple.

Des exemples de création de documents Word sont données pour les langages .NET, Java et bientôt disponibles en PHP.

(Voir exemple en .Net)

La bonne nouvelle c’est qu’avec WinDev on peut utiliser des package .Net et avec WebDev utiliser du code PHP. Il reste plus qu’a installé le FrameWork .NET 3.0.

A noter que dans la Version 11 de WinDev, ce FrameWork .NET 3.0, sera indispensable pour utiliser le champ carrousel et le champ cube. (Nouveauté 62 et 63)

A suivre…

WinDev - Comment récupérer des valeurs persistantes dans la base de registre ?

2006-11-11T01:45:00.000-08:00

Soit un projet "MonProjet" contenant plusieurs fenêtres (fnt1, fnt2 etc) dont certains champs ont l'option "Mémoriser la valeur" cochée.

Cette option est disponible dans la "Description du champ", onglet "Détail.

Soit chp1 l'un des champs de fnt1 dont je veux récupérer la valeur mémorisée (chaîne alphanumérique). Etant en mode test, cette valeur est stockée à l'endroit suivant de la base de registres :
HK_CURRENT_USER\Software\PCSoft\WinDev\10.0\ModeTest\MonProjet\fnt1\chp1

Pour récupérer la valeur, Il faut utiliser :

ChargeParamètre("fnt1\chp1\Val")

Dans le cas d'une application en production la clé sera légèrement différente, puisque au lieu d'avoir PC SOFT, ça sera le nom de votre application.

La clé de registre, peut-être récupérée par programmation par la fonction WLangage :

ProjetInfo(piRegistre)

Voir l'aide en ligne pour plus de détail sur les fonctions.

Comment afficher une image provenant d'un champ Blob MySQL ?

2006-08-25T05:06:00.000-07:00

NB : Tests effectués avec la version 60t de WebDev, PHP 4 et MySQL 5.0.24 (et MySQL 5.0.18)

Utilisation exclusives des ordres "H*"

Soit la table MySQL suivante :

CREATE TABLE `blobmysql` (
`IDBlobMysql` int(11) NOT NULL auto_increment,
`Titre` varchar(50) default NULL,
`pImage` longblob,
PRIMARY KEY (`IDBlobMysql`)
) ENGINE=InnoDB DEFAULT CHARSET=latin1 AUTO_INCREMENT=2 ;

Dans un page WebDev PHP, ajouter un champ image. Dans le descriptif de celui-ci, définir le type "Dynamique".
Ajouter un bouton et insérer le code suivant :
HLitPremier(BlobMysql)
SI PAS HExtraitMémo(BlobMysql,pImage,"test.gif") ALORS Trace("pas extrait")
IMG_Image2 = "test.gif"

Voilà l'image s'affiche dans le champ image.

PS: Pour ajouter par programmation une image dans un BLOB

CHEMIN_IMAGE est une chaîne = "X:\Mes Sites\warning.gif"

BlobMysql.Titre = "icone warning"
SI PAS HAttacheMémo(BlobMysql,"pImage",CHEMIN_IMAGE,hMémoImg) ALORS
Trace("Erreur ajout")
SINON
HAjoute(BlobMysql)
FIN

Dans une Zone répétée mémoire :

Pour l'afficher dans une Zone répétée mémoire, même principe. Il faut surtout ne pas oublier de mettre le type dynamique dans la description de l'image. Dans le code d'initialisation de la ZR on peut mettre le code suivant :
NomFic est une chaîne
i est un entier = 0

HLitPremier(BlobMysql)
TANTQUE PAS HEnDehors()
i++
Nomfic = "$$Test"+i
HExtraitMémo(BlobMysql,pImage,Nomfic)
ZoneRépétéeAjouteLigne(ZR_BlobMysql,BlobMysql.Titre,nomfic)
HLitSuivant(BlobMysql)
FIN

Dans une Zone répétée Fichier :

Pour l'afficher dans une Zone répétée Fichier. Encore plus simple suivre l'assistant lors de la création de la Zone répétée. Une fois créée modifier le descriptif de l'image de la ZR. Mettre sur le Type : "Depuis une base de données".

Faire une sauvegarde ou une restauration de la Base du GDS.

2006-08-21T23:53:00.000-07:00

Il est possible à partir de l'administrateur de source d'effectuer une sauvegarde complète de la base.
Il faut dans un premier temps, se connecter en tant qu'administrateur sur la base GDS.
- Ouvrir l'administrateur du gestionnaire de sources à partir du menu GDS
- Se connecter en tant qu'administrateur : Menu "Fichier...Connexion à une base de sources"
- Indiquer les paramètres de connexion à la base (login Admin)
- Une fois la connexion établie, aller dans le menu "Outils...Administration...Sauvegarde complète de la base".

Un fichier .zip est créer dans le répertoire (par défaut) x:\Sauvegarde GDS.
La Restauration de la base est effectuée à partir du menu " Outils...Administration...Restauration d'une sauvegarde d'historique".
Indiquer le fichier .zip à restaurer.

WinDevMobile : Synchronisation personnalisée

2006-08-09T02:33:00.000-07:00

Voici les différentes étapes de création d'une synchronisation personnalisée.

1. Créer un nouveau projet sous WinDev standard.
2. Dans ce projet, créez une collection de procédures nommée "WDSynchro". Cette collection de procédures doit contenir tous les traitements nécessaires à la synchronisation.
Conseil : Importez dans votre projet la collection de procédures WDSYNCHR.WDG livrée avec WinDev Mobile (répertoire "\Exemple\WDSynchro" du répertoire d'installation de WinDev Mobile). Les commentaires de cette collection de procédures détaillent comment personnaliser le traitement de synchronisation.
3 - Créer tous les éléments pour la synchronisation. Modification des procédures de WdSynchro. Création des fenêtres. (ex : jauge de traitement)

4 - Créer une bibliothèque pour la synchronisation en incluant tous les éléments nécessaires à celle-ci. (Menu "atelier..Bibliothèque..Génrer la bibliothèque")
Cette bibliothèque contient la collestion de procédure WDSYNCHR.WDG, les fenêtres que vous avez créées necessaires à la synchronisation.

5 - Créer la procédure d'installation et installer l'application WinDev. Ne pas oublier d'inclure le fichier .wdd (analyse) et le fichier .wdl (créer à l'étape 4) dans l'installation.

6 - Dans le projet WinDev Mobile créer la procédure d'installation en précisant à l'étape de la synchronisation : "Synchronisation personnalisée".
- menu Outils..WPInst
- cliquer sur "Paramètres d'installation...Synchronisation HF mobile par activeSync"
- indiquer le chemin de l'exe WinDev.
- Indiquer les chemin des analyses (.wdd)
- Cocher "Utiliser une WDL de synchronisation personnalisée"
- indiquer le chemin d'accès de votre wdl (créer à l'étape 4 et installé à l'étape 5)
- cliquer sur Ok et générer la procédure.

Le Forum développeur une mine d'or

2006-06-02T01:31:00.000-07:00

Le forum développeur regorge d'informations pour le développeur. A la recherche de la meilleure façon de récupérer les adresses MAC d'un réseau local je suis tombé sur ça :
http://forum.pcsoft.fr/post.awp?id=75356
Le code complet d'une fonction permettant de récupérer l'adresse MAC d'une machine. Un paramètre d'entrée, l'adresse IP et le tour est joué.

Du même coup, pendant cette recherche je suis tombé sur d'autre chose, sans rapport avec les adresses MAC, mais très utile tel que :
- Comment ouvrir Outlook Express en mettant une pièce Jointe ?
Je vous le donne http://forum.pcsoft.fr/post.awp?id=18175
C'est une astuce très pratique.
- Comment convertire une chaîne hexa en décimale ?
http://forum.pcsoft.fr/post.awp?id=85079
et bien d'autre encore

En plus au fil des recherches on s'aperçoit qu'il a d'autres ressources, comme les ressources pratiques du site PC SOFT, permettant de faire des recherches sur les LST, les FAQ et j'en oubli sans doute, et plein de sites fait par des développeurs et qui partagent leurs trouvailles et leur codes.

Le forum est un vrai espace d'échange.
Vive le forum.

WinDev : Comment afficher des balise HTML dans un Champ HTML ?

2006-05-11T00:27:00.000-07:00

WinDev : Comment afficher des balise HTML dans un Champ HTML ?

Il peut être interessant d'afficher du code HTML dans un champ HTML. Toutefois lorsque l'on met des balises, elles sont interprétée par le champ. Pour éviter cette interprétation, il suffit de remplacer les caractères <> par les signes & l t ; et & g t ; (sans les espaces).

Ainsi il est possible d'avoir le code :
<HTML>
<HEAD></HEAD>
</HTML>

WinDev : Fonction VérifieExpressionRégulière

2006-03-30T03:44:00.000-08:00

Comment vérifier qu'une chaine de caractère de ne contient de caractère spéciaux et vérifie un format déterminé. La fonction VérifieExpressionRégulière permet de vérifier que la chaine passée en paramètre repond au format.

Par exemple : On veut faire une recherche sur des fichiers. Le filtre appliquer est de la forme :
Toto*.pdf

sfiltre est une chaine = "Toto*.pdf"
SI PAS VérifieExpressionRégulière(sfiltre ,"[-.\*a-z0-9]+[.][\*a-z0-9]{1,10}") ALORS
Erreur("Le filtre ne correspond pas au format",sfiltre )
SINON
gsExtCh = sDem
FIN

Explication de [-.\*a-z0-9]+[.][\*a-z0-9]{1,10}

1 - la première partie [-.\*a-z0-9]+ autorise les lettres a à z, les chiffres de 0 à 9 ainsi que les symboles '-', '.' et '*'. le caractère '\' est ici un caractèr d'échapement sinon '*' n'est pas considéré comme le symbole. le '+' signifie que l'on peut avoir plusieurs fois les caractères et symbole défini entre les crochets précédent

2 - la partie [.] indique que ce caractères doit correspondre à un point

3 - la dernière partie [\*a-z0-9]{1,10}. Le contenu entre crochets à la même signification que dans la première partie.
{1,10} signifie que la chaine peut contenir 1 à 10 caractères

Comment ouvrir dans un projet depuis le GDS ?

2006-03-29T13:14:00.000-08:00

Une façon simple et agréable de gérer et développer un projet, a partir de chez soi ou d'ailleurs est d'utiliser le GDS (Gestionnaire de Source).
Facile d'utilisation il permet de développer à plusieurs sur un même projet avec la gestion des versions, de l'historique (code, IHM).

Pour ouvrir un projet depuis le GDS, il faut ouvrir WinDev, WebDev ou WinDev Mobile, puis dans le menu "Fichier...Ouvrir un projet depuis le GDS..."

Cette fenêtre permet de se connecter à une base en local ou en client/serveur. La paramètres utilisateurs sont ceux définis au lancement de WinDev, WebDev ou WinDev Mobile.
Si cet utilisateur n'existe pas, il vous sera proposé de créer le compte dans la base.

Une fois choisi les différents éléments cliquer sur OK.
Dans l'ecran suivant, il faut choisir un projet dans la liste puis selectionner le répertoire local pour permettre le travail sur le projet.

Une fois les choix effectués cliquer sur OK. et c'est fini le projet est ouvert depuis le GDS. Une copie local du projet a été faite. Vous pouvez travailler en mode Connecté ou déconnecté (sur un portable à la plage)

WinDev 10 : Drag&Drop entre deux tables

2006-03-20T15:21:00.000-08:00

Comment faire un Drag&Drop entre deux tables.

Nous souhaitons réaliser un Drag&Drop de la table1 vers la table2.
C'est simple pour gérer le Drag&Drop entre la table1 et la table2, il faut mettre en place trois événements.
Tout d'abord il faut définir la cible et la source :
table1..DndSource = DndProgrammé
table2..DndCible = DndProgrammé

Ensuite il faut mettre en place les évènemets
DnDEvénement("SurDebutGlisser", "table1", dndDébutGlisser)
DnDEvénement("SurSurvol", "table2", dndSurVol)
DnDEvénement("SurLâcher", "table2", dndLâcher)

Définition des procédures :

Procédure SurDebutGlisser()
schaine est une chaine // valeur à copier
// Changement du curseur
DnDCurseur(dndDéplacer)
(... traitement)
// Indique le type des données et les données à copier/déplacer lors du glisser/déplacer.
DnDDonne(CF_TEXT,schaine)

Procédure SurSurvol()
// Acceptation de la cible
DnDAccepte(dndCopier)
DnDCurseur(dndDéplacer)

Procédure SurLâcher()
sChaine est une chaine
// Récupère la chaine copiée
sChaine = DnDRécupère(CF_TEXT)
(... traitement)

Voila le principe du Drag&Drop. Il suffit d'adapter le code au besoin

Comment créer un fichier .htpasswd

2006-03-20T15:15:00.000-08:00

Comment créer un fichier .htpasswd

Ouvrir une invite dos : "Démarrer...executer" taper cmd
1/ entrer le chemin d'accès de apache par défaut :
c:\Program files\Apache Groupe\Apache 2\bin
2/ Saisir la ligne de commande :
htpasswd d:\temp\.htpasswd Robert
3/ saisir le passeword
4/ confirmer

Voila le fichier d:\temp\.htpasswd contient l'utilisateur Robert avec un mot de passe crypté (MD5)
Ce fichier est utile pour restreindre l'acces à un répertoire d'un site web par exemple.

Flux RSS: Simple et Rapide

2006-03-15T08:21:00.000-08:00

Un bon tutorial est présent sur le site www.codewindev.com permettant de mettre en place rapidement et surtout simplement un flux RSS sur sont site. Je vous conseille vivement de consulter la page :

http://www.codewindev.com/fluxrss.htm

WinDev : Fonction ChaineRécupère et fListeRépertoire

2006-03-09T01:03:00.000-08:00

La fonction ChaineRécupère permet de récupérer le contenu d'un pointeur. Son utilisation peut être intéressant dans une callBack par exemple.

Pour passer une chaîne à la callBack de fListeRépertoire il faut utiliser le pointeur:

SCh est une chaîne = "Titre"
Ptr est un entier = &SCh

fListeRepertoire(Chemin,"ListeRep")

Procédure ListeRep( Chemin, NomRep, Change, Pointeur)

ST est une chaîne = ChaineRecupère(Pointeur,crAdresseASCIIZ)
…

Et voilà dans la callback le chaîne "Titre" a été récupérée. C'est un bon moyen de passer des paramètres.
Pour Gagner en temps, il vaut mieux utiliser une variable globale.

WebDev 10 : Utilisation de PHPAffiche

2006-02-21T01:42:00.000-08:00

WebDev 10 : Utilisation de PHPAffiche

Soit un script PHP défini ci-dessous :

**
printf("Affichage d'un script PHP\n");
printf("avec passage d'un Paramètre\n");
// Récupération et affichage de la valeur
printf("La valeur est : %s",$_GET['parametre']);
**

Enregistré ce fichier MonScriptPHP.php dans le répertoire Mon_Site_WEB\fr du projet WebDev.

Ensuite dans le code serveur d'un bouton mettre le code suivant :

PHPAffiche("MonScriptPHP.php","parametre=TestPassage")

si plusieurs paramètres doivent être passés au script alors utiliser la syntaxe suivante :
PHPAffiche("MonScriptPHP.php","parametre=TestPassage¶metre1=2")

dans le script PHP la variable $_GET['NomParamètre'] permet de récupérer la valeur du paramètre.

Comment Intsaller HyperFile Client/Serveur 10 sous linux Mandriva 2006 ?

2006-02-20T04:38:00.000-08:00

Comment Intsaller HyperFile Client/Serveur 10 sous linux Mandriva 2006 ?

Après insertion du DVD, copier les fichiers du Client/serveur dans un dossier sous linux.
Par exemple /home/NomUser/Documents.
Ensuite ouvrir une console. Dans l'explorateur, il y a un menu "Outils..Ouvrir un terminal"
Dans ce terminal il faut taper "su" pui le mot de passe administrateur pour pouvoir faire l'installation.
Ensuite il faut taper la commande :
./manta_install
Suivre les indication de l'assistant.
c'est tout. le serveur est installé en tant que service.

Attention : si vous utiliser le FireWall de Mandriva, il faut ouvrir les ports :
4900/tcp 5002/udp 5002/tcp pour pouvoir utiliser à la fois le centre de controle et le serveur.

WinDev 10 et ORACLE Express Edition BETA3

2006-02-16T02:05:00.000-08:00

Je viens d'effectuer un test avec la Version gratuite d'ORACLE : ORACLE Express Edition (beta3).
La version de WinDev : 40k
Accès Natif ORACLE

J'ai fais un test de cration de table (HCréationSiInexistant) et d'ajout/Modification de données ("Hajoute", "HModifie") Aucun problème constaté.

En fait j'ai pris une petite application qui utilisait Oracle et j'ai modifié la connexion dans l'analyse.
C'est tout simple et ça marche

liens : Oracle Express Edition

WInDev 10 : GDS Comment annuler des extractions ?

2006-02-14T09:32:00.000-08:00

Il m'est arriver de devoir annuler plusieurs extractions sur un projet.
Comment annuler des extractions dans le GDS
1/ se connecter en tant qu'administrateur
Fichier...Connecter à une base source
2/ Saisir le login : admin (pas de mot de passe)
3/selectionner le projet
4/ Mennu "Outils...Administartion....Annuler des extractions"
4/ Selectionner et les extractions et cliquer sur "Annuler l'extractions".

et voila ensuite dans votre projet vous pouvez estraires les fenêtres ou devenir maitre sans difficulter.

WinDev 10 Utilisation De POUR TOUTE CHAINE : parcours d'une chaine

2006-02-10T05:27:00.000-08:00

Grace à cette instruction on peut parcourir une chaine de caractère facilement dans une simple boucle.

Voici un exemple

// Les variables de la boucle
sListeProd est une chaine
sProd est une chaine // chaine de parcours

// chaine à parcourir
sListeProd = "Sel"+TAB+"1"+TAB+"Kg"+RC+"Poivre"+TAB+"100"+TAB+"g"+RC

POUR TOUTE CHAINE sProd DE sListeProd SEPAREE PAR RC
Trace(ExtraitChaine(sProd,1,TAB),ExtraitChaine(sProd,2,TAB),ExtraitChaine(sProd,3,TAB))
FIN

WinDev 10 utilisation du POUR TOUT : parcours d'un Tableau

2006-02-09T10:49:00.000-08:00

Soit un tableau :
gtabTabProDuits est un tableau de 3 chaînes

gtabTabProDuits[1] = "WinDev"
gtabTabProDuits[2] = "WebDev"
gtabTabProDuits[3] = "WinDev Mobile"

Si l'on veut parcourir ce tableau on peut utiliser la boucle classique POUR i=1 A 3 et faire le traitement.
Le plus simple est d'utiliser la nouvelle fonction :

pNomProduit est une chaine
POUR TOUT ELEMENT pNomProduit DE gtabTabProDuits
Trace(pNomProduit) // visualise chaque élément du tableau
FIN

Configurer Apache 2.0.55 pour PHP 4.4.2 et WebDev 10

2006-02-06T06:02:00.000-08:00

Voici les lignes à ajouter à Apache pour configurer PHP. Editer le fichier httpd.conf

#PhP4
ScriptAlias /php/ "c:/php/"
AddType application/x-httpd-php .php
Action application/x-httpd-php "/php/php.exe"

Voci PHP est bien configurer dans Apache. Pour en être persuadé créer un fichier index.php la fonction phpinfo().

Placer le dans le repertoire \htdocs\test\ du repertoire d'installation par défaut d'Apache ensuite depuis le navigateur taper : "http:/localhost/test" clique sur index.php

Pour la configuration de WebDev 10, il suffit de rajouter les lignes suivantes dans le fichier httpd.conf :

#WebDev 10
ScriptAlias /WD100AWP/ "D:/WebDev/WebDev 10/Programmes/Moteur/Windows/AWP/"
AddType application/WebDev10-awp .awp
Action application/WebDev10-awp /WD100AWP/WD100AWP.EXE

NB : lors de l'installation de WebDev 10, si Apache ou IIS est déjà installer la configuration est automatique.

Comment configurer le server MySQL 5.0 pour les clients PhpMyQdmin 2.7.0, MySQlcc ?

2006-02-01T02:18:00.000-08:00

Comment configurer le server MySQL 5.0 pour les clients PhpMyAdmin 2.7.0, MySQlcc ?
(les clients en 4.0 provoque une erreur 1251)

Lorsque l'on veut utiliser des clients tel que PhpMyAdmin ou MySQLcc on peut-être confronté au message d'erreur suivant :
Erreur 1251 "Client does not support authentication protocol requested by server;consider upgrading MySQL client".

Pour pouvoir les utiliser il faut changer le le hasage des mot de passe. Pour plus d'info voir le site de MySQL.

La démarche est décomposée en 3 grandes étapes :

I/Installation du server Mysql 5.0.18

1/ lancement setup.
2/ Choix installation complte
3/ faire suivant aux autres tapes.
Note : laisser le port 3306 par dfaut pour utilisation de l'accs natif MySQL Windev 10
4/ la fin de l'installation lancer la configuration du server
5/ Prendre les infos par défaut et mettre un mot de passe l'utilisateur Root.

II / Installation de MySQL Administrator

1/ la fin de l'install se connecter au server
2/ cliquer sur "Startup Variables"
3/ Dans l'onglet "Security" cocher la case "Use old Passwords"
4/ cliquer sur "Apply"
5/ cliquer sur "User Administration" et cliquer sur "root"
6/ re-saisir le mot de passe et cliquer sur "Apply"
7/ il faudra peut-tre refaire les tapes 5 et 6 avant que le mot de passe soit pris en compte

III/ Configurer PhpMyQdmin 2.7.0

1/ Editer le fichier config.inc.php
2/ mettre : le host et le port
$cfg['Servers'][$i]['host'] = 'localhost'; // MySQL hostname or IP address
$cfg['Servers'][$i]['port'] = '3306'; // MySQL port - leave blank for default port
3/ ensuite le nom utilisateur et mot de passe dfini lors de la configuration du serveur
$cfg['Servers'][$i]['user'] = 'root'; // MySQL user
$cfg['Servers'][$i]['password'] = 'monpassword'; // MySQL password (only needed
4/ enregistrer et fermer

Vous pouvez maintenant lancer phpmyAdmin 2.7.0 et mySQlcc 0.9.4

Wink...présentation freeware en Flash

2006-01-31T10:51:00.000-08:00

Avec Wink vous pouvez créer des présentation ou tutorial de vos application en flash.
très facile d'emploi, il a même des tutoriaux pour expliquer le fonctionnement.
Utile et pratique à essayer

Voir exemple de présentation faite avec WINK.

Debut..

2006-01-31T01:42:00.000-08:00

Ouverture de mon blog. J'aimerais parler de tout ce qui touche au développement. Je mettrais des astuces, des portions de codes (WinDev, WebDev, WinDev Mobile, PHP) et autres. n'hésiter pas à poster des messages. J'aborderai également d'autres sujet qui me tiennent à coeur..