Information Technology Tips & Tricks
+32 475 23 19 91

Archives par auteur : Christian Dercq

Etat externe

Posté le Par Publié dans Windev

Vous souhaitez disposer d’un état modifiable externe au programme
(Pas encapsulé dans l’exe)

Voici la procédure

1. Description de l’état / Détail  cocher : Intégrer le code compilé
2. Le sauver dans le folder Exe
3. L’ajouter au projet
4. Le supprimer du projet. (PAS du disque)

Ouverture d’une connexion Hyperfile

Posté le Par Publié dans Windev

Tous les paramètres sont dans un fichier Config.ini

sConfig=frepexe("Config.ini")
gsTypeConnexion = INILit("CONNECTION","TypeConnexion","HF",sConfig)
gsCompressionTrames=INILit("CONNECTION","CompressionTrames","O",sConfig) // Oui si Réseau lent (Internet)
SI gsTypeConnexion="CS" ALORS
  MaConnexion est une Connexion
  MaConnexion..Utilisateur = INILit("CONNECTION","User","",sConfig)
  MaConnexion..MotDePasse = Décrypte(INILit("CONNECTION","Password","",sConfig),"Clé d'encrypage")
  //info(Décrypte(INILit("CONNECTION","Password","",sConfig),"igc"))
  MaConnexion..BaseDeDonnées = INILit("CONNECTION","Database","",sConfig)
  MaConnexion..Source = INILit("CONNECTION","Server","",sConfig)+":"+INILit("CONNECTION","Port","",sConfig)
  MaConnexion..Provider = hAccèsHFClientServeur
  MaConnexion..Accès = hOLectureEcriture
  MaConnexion..Cryptage = hCryptageNon
  MaConnexion..OptionsCurseur = hCurseurClient
  gsCompressionTrames=Majuscule(INILit("CONNECTION","Compression","O",sConfig))
  SI gsCompressionTrames="O"
    MaConnexion..Compression = Vrai
  SINON
    MaConnexion..Compression = Faux
  FIN
  SI HOuvreConnexion(MaConnexion) ALORS
    Info("Connecté au Serveur de données")
     HChangeConnexion("*",MaConnexion)
     gnConnexion = 1 //connexion CS établie
  SINON
     SI gEnModeTest() ALORS
        Info("Serveur introuvable","Utilisation Hyperfile Classique")
        gsEntêteConnexion="Mode Hyperfile - Fichiers locaux"
        gnConnexion = 2 //connexion HF établie
    SINON
        Info("Serveur introuvable","Programme terminé")
      FinProgramme()
     FIN
  FIN
SINON
  Info("Utilisation HyperfileClassique (Fichiers locaux)")
  gsEntêteConnexion="Hyperfile - Fichiers locaux"
FIN

Adresser une commande CPL

Posté le Par Publié dans Windev, Windows 7

Les Fichiers CPL sont des fichiers qui lancent les Applications du Panneau de Configuration.

Vous pouvez donc en passant par Démarrer ensuite Exécuter et en tapant la commande associe ouvrir une application sans passer par le panneau de Configuration.

Exemple:
control.exe timedate.cpl,,0

Vous permet d’atteindre directement la fenêtre Date et Heure qui vous permettra entre autres de changer la Date et l’Heure de votre PC

le 0 à la fin de la commande vous permet d’arriver directement sur l’Onglet Date et Heure, si vous tapez cette commande control.exe timedate.cpl,,1 vous arriverez directement sur l’Onglet Horloges supplémentaires. Voyons ci dessous la liste des fichiers *.CPL disponibles

Liste des commandes CPL

Pour démarrer une application CPL depuis windev :

Lanceappli(« control.exe /name Microsoft.SpeechRecognitionOptions »)
ou (alternative)

SI SysVersionWindows() = "7" ET SysVersionWindows(sysProcesseur) = 64 ALORS
  LanceAppli("control.exe /name Microsoft.TextToSpeech")
FIN
SI SysVersionWindows() = "7" ET SysVersionWindows(sysProcesseur) = 32 ALORS
  LanceAppli("control.exe /name Microsoft.TextToSpeech")
FIN

Prendre l’heure sur un serveur Hyperfile SQL

Posté le Par Publié dans Windev

Récupérer la date et l’heure du serveur

2 fonctions servant à remplacer DateSys() et HeureSys().

PROCEDURE Serveur_DateSys()
  RENVOYER gauche(DateHeureUTCVersLocale(HInfoServeur("Maconnexion",hInfoDate)),8)
PROCEDURE Serveur_HeureSys()
  RENVOYER Gauche(Droite(DateHeureUTCVersLocale(HInfoServeur("Maconnexion",hInfoDate)),9),6)

Il faut qu’une connexion nommée « Maconnexion » soit établie vers un Serveur HyperFile.

Vous  pouvez remplacer vos fonctions DateSys et HeureSys par Serveur_DateSys() et Serveur_HeureSys.

Garnir un arbre

Posté le Par Publié dans Windev

Windev Webdev Astuces

Procédure récursive

PROCEDURE ChargeGroup(LOCAL nIDCatégorie = 0, LOCAL sNoeudParent = "Famille")
nPosition est un entier
POUR TOUT Group AVEC IDGroupParent = nIDCatégorie 
  // Ajoute dans l'arbre 
  ArbreAjoute(ARBRE_Group, sNoeudParent + TAB +Group.Name1,aDéfaut,aDéfaut,Group.IDGroup,aTriAlpha,Group.Name1) 
  // Sauvegarde de la position en cours dans le parcours 
  nPosition = HSauvePosition(Group) 
  // On rempli les enfants de cette catégorie 
  ChargeGroup(Group.IDGroup, sNoeudParent + TAB + Group.Name1) 
  // Une fois, qu'on a rempli les enfants, on revient au parcours initial 
  HRetourPosition(nPosition) 
FIN
ArbreDérouleTout(ARBRE_Group)

Envoyer un SMS via VoipBuster

Posté le Par Publié dans Windev 
// Url
sUrlRequete = "https://www.voipbuster.com/myaccount/sendsms.php?"
// Paramètres Post
sParametrePost = ChaîneConstruit("username=%1&password=%2&from=%3&to=%4&text=%5", sSMS_Login, sSMS_Password, sExpéditeur, sDestinataire, sMessage )
// Requête
sToSend=sUrlRequete+sParametrePost
SI HTTPRequête(sToSend) = Faux ALORS
  gsResultatSMS =ErreurInfo()
SINON
  gsResultatSMS = HTMLVersTexte(HTTPDonneRésultat(httpRésultat))
  gsResultatSMS = Remplace(gsResultatSMS, Caract(34), "")
  SI ChaîneOccurrence(gsResultatSMS, "success 1") ALORS
    gsResultatSMS=""
  SINON
    gsResultatSMS="Echec"
  FIN
FIN