Initial commit of the source code in the repository.

DeepLAPI.wdg

@@ -0,0 +1,107 @@
+#To edit and compare internal_properties, use WINDEV integrated tools.
+#Internal properties refer to the properties of controls in windows, reports, etc.
+info :
+ name : DeepLAPI
+ major_version : 30
+ minor_version : 0
+ type : 7
+ description : ""
+ subtype : 0
+ options : 256
+procedure_set :
+ identifier : 0x180fe10f00622c0e
+ internal_properties : HwAAAB4AAADjksEavC8JwuEiHc63C+ul0ggS/BOiC8PJfOp/6aEkSKX4qEWcBw==
+ code_elements :
+  type_code : 31
+  p_codes :
+   -
+     code : |1+
+      /* Copyright 2025 Alexandre Leclerc. MPL 2.0. See https://mozilla.org/MPL/2.0/. */
+      
+      STDeepLLanguages est une structure
+      	language est une chaîne
+      	name est une chaine
+      	supportsFormality est un booléen
+      fin
+     type : 720896
+  procedures :
+   -
+     name : GetLanguages
+     internal_properties : HwAAAB4AAABbhvlnMqBipoYbs5BgJZVTuML70ljr/4dqsYCJvaaixeFzJQzW2iFhN8/rJRhqDBEzPWArwC8vKj0UgShjGaLOXw==
+     procedure_id : 1733851982149627907
+     type_code : 15
+     code : |1+
+      // Résumé : <indiquez ici ce que fait la procédure>
+      // Paramètres :
+      //	t (tableau (STDeepLLanguages)) : Combo to fill
+      //	sType (chaîne ANSI) : Can be "source" or "target".
+      // Valeur de retour :
+      // 	Aucune
+      //
+      procédure GetLanguages(t est un tableau de STDeepLLanguages, sType est une chaine)
+      
+      // Build the HTTP request
+      cDeepL est un httpRequête
+      cDeepL.URL						= ChargeParamètre(C_DeepL_Server) + "/languages?type="+sType
+      cDeepL.Entête["Authorization"]	= ChaîneConstruit("DeepL-Auth-Key %1",ChargeParamètre(C_DeepL_APIKey))
+      
+      // Send the request
+      cRes est un httpRéponse = HTTPEnvoie(cDeepL)
+      SI ErreurDétectée ALORS
+      	Erreur(ErreurInfo(errComplet))
+      	RETOUR
+      FIN
+      
+      // Get results
+      lang est un JSON
+      lang..FormatJSON = cRes.Contenu
+      POUR i = 1 _À_ lang..Occurrence
+      	TableauAjoute( t, [lang[i].language, lang[i].name, lang[i].supports_formality] )
+      FIN
+     type : 458752
+   -
+     name : GetUsage
+     internal_properties : HwAAAB4AAACSB/quWMdBwE/+OZebRZ7WEteNEF90HAHycTEqsTIvTKew2SLCgsA9uJjAuqlgD+N2vMvtaAI/+MSaGfnkCaPfoUfGW9iQq7f6x+eC25fd
+     procedure_id : 1733852003634758180
+     type_code : 15
+     code : |1+
+      // Résumé : Calls the API to get the account total character usage and limit for the API.
+      // Paramètres :
+      //	nCount (entier) : Returns character_count from the API.
+      //	nLimit (entier - valeur par défaut=0) : Returns character_limit from the API.
+      // Valeur de retour :
+      // 	booléen : If the API call succeded.
+      //
+      procédure GetUsage(nCount est un entier, nLimit est un entier = 0) : boolean
+      
+      // Build the HTTP request
+      cDeepL est un httpRequête
+      cDeepL.URL						= ChargeParamètre(C_DeepL_Server) + "/usage"
+      cDeepL.Entête["Authorization"]	= ChaîneConstruit("DeepL-Auth-Key %1",ChargeParamètre(C_DeepL_APIKey))
+      
+      // Send the request
+      cRes est un httpRéponse = HTTPEnvoie(cDeepL)
+      SI ErreurDétectée ALORS
+      	Erreur(ErreurInfo(errComplet))
+      	renvoyer faux
+      FIN
+      
+      // Get results
+      lang est un JSON
+      lang..FormatJSON = cRes.Contenu
+      nCount = lang.character_count
+      nLimit = lang.character_limit
+      
+      renvoyer vrai
+     type : 458752
+  procedure_templates : []
+  property_templates : []
+ code_parameters :
+  internal_properties : HwAAAB4AAAB7MB8NZB5rGUbyk77+IjQnJ74vm430Ar3yq0zmP05sGBBw0ur17uG6ZWry
+  original_name : COL_SansNom1
+resources :
+ string_res :
+  identifier : 0x180fe1010060f435
+  internal_properties : HwAAAB4AAAA809Qj/IAi+r8QXyrnW7sarQeYORCUjKBkmMeTFexSj5AuvTfTUpN0Eg==
+custom_note :
+ internal_properties : HwAAAB4AAADnl3uxgA6ylw4vtqUKEOJQD3VAAOKeNUmhPNojcRFoDpHEcUyYAw==