Ouverture d’une connexion Hyperfile

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