comenzi

utils.prg

@@ -0,0 +1,174 @@
+*-- utils.prg - Utilitare pentru GoMag API
+*-- Functii pentru citirea/scrierea fisierelor INI si alte utilitare
+*-- Autor: Claude AI
+*-- Data: 27.08.2025
+
+*-- Functie pentru citirea fisierelor INI private
+*-- Returneaza valoarea din sectiunea si intrarea specificata sau blank daca nu e gasita
+FUNCTION ReadPini
+PARAMETERS cSection, cEntry, cINIFile
+LOCAL cDefault, cRetVal, nRetLen
+
+cDefault = ""
+cRetVal = SPACE(255)
+nRetLen = LEN(cRetVal)
+
+DECLARE INTEGER GetPrivateProfileString IN WIN32API ;
+    STRING cSection, ;
+    STRING cEntry, ;
+    STRING cDefault, ;
+    STRING @cRetVal, ;
+    INTEGER nRetLen, ;
+    STRING cINIFile 
+
+nRetLen = GetPrivateProfileString(cSection, ;
+    cEntry, ;
+    cDefault, ;
+    @cRetVal, ;
+    nRetLen, ;
+    cINIFile)
+
+RETURN LEFT(cRetVal, nRetLen)
+ENDFUNC
+
+*-- Functie pentru scrierea in fisierele INI private
+*-- Returneaza .T. daca e successful, .F. daca nu
+FUNCTION WritePini
+PARAMETERS cSection, cEntry, cValue, cINIFile
+LOCAL nRetVal
+
+DECLARE INTEGER WritePrivateProfileString IN WIN32API ;
+    STRING cSection, ;
+    STRING cEntry, ;
+    STRING cValue, ;
+    STRING cINIFile 
+
+nRetVal = WritePrivateProfileString(cSection, ;
+    cEntry, ;
+    cValue, ;
+    cINIFile)
+
+RETURN nRetVal = 1
+ENDFUNC
+
+*-- Functie pentru incarcarea tuturor setarilor din fisierul INI
+FUNCTION LoadSettings
+PARAMETERS cINIFile
+LOCAL loSettings
+
+*-- Cream un obiect pentru toate setarile
+loSettings = CREATEOBJECT("Empty")
+
+*-- Sectiunea API
+ADDPROPERTY(loSettings, "ApiBaseUrl", ReadPini("API", "ApiBaseUrl", cINIFile))
+ADDPROPERTY(loSettings, "OrderApiUrl", ReadPini("API", "OrderApiUrl", cINIFile))
+ADDPROPERTY(loSettings, "ApiKey", ReadPini("API", "ApiKey", cINIFile))
+ADDPROPERTY(loSettings, "ApiShop", ReadPini("API", "ApiShop", cINIFile))
+ADDPROPERTY(loSettings, "UserAgent", ReadPini("API", "UserAgent", cINIFile))
+ADDPROPERTY(loSettings, "ContentType", ReadPini("API", "ContentType", cINIFile))
+
+*-- Sectiunea PAGINATION
+ADDPROPERTY(loSettings, "Limit", VAL(ReadPini("PAGINATION", "Limit", cINIFile)))
+
+*-- Sectiunea OPTIONS
+ADDPROPERTY(loSettings, "GetProducts", ReadPini("OPTIONS", "GetProducts", cINIFile) = "1")
+ADDPROPERTY(loSettings, "GetOrders", ReadPini("OPTIONS", "GetOrders", cINIFile) = "1")
+
+*-- Sectiunea FILTERS
+ADDPROPERTY(loSettings, "OrderDaysBack", VAL(ReadPini("FILTERS", "OrderDaysBack", cINIFile)))
+
+RETURN loSettings
+ENDFUNC
+
+*-- Test conectivitate internet
+FUNCTION TestConnectivity
+LOCAL loHttp, llResult
+
+llResult = .T.
+
+TRY
+    loHttp = CREATEOBJECT("WinHttp.WinHttpRequest.5.1")
+    loHttp.Open("GET", "https://www.google.com", .F.)
+    loHttp.SetTimeouts(5000, 5000, 5000, 5000)
+    loHttp.Send()
+    
+    IF loHttp.Status != 200
+        llResult = .F.
+    ENDIF
+    
+CATCH
+    llResult = .F.
+ENDTRY
+
+loHttp = NULL
+RETURN llResult
+ENDFUNC
+
+*-- Functie pentru codificare URL
+FUNCTION UrlEncode
+PARAMETERS tcString
+
+LOCAL lcResult, lcChar, lnI
+
+lcResult = ""
+
+FOR lnI = 1 TO LEN(tcString)
+    lcChar = SUBSTR(tcString, lnI, 1)
+    
+    DO CASE
+        CASE ISALPHA(lcChar) OR ISDIGIT(lcChar) OR INLIST(lcChar, "-", "_", ".", "~")
+            lcResult = lcResult + lcChar
+        OTHERWISE
+            lcResult = lcResult + "%" + RIGHT("0" + TRANSFORM(ASC(lcChar), "@0"), 2)
+    ENDCASE
+ENDFOR
+
+RETURN lcResult
+ENDFUNC
+
+*-- Functie pentru verificarea existentei fisierului INI
+FUNCTION CheckIniFile
+PARAMETERS cINIFile
+LOCAL llExists
+
+TRY
+    llExists = FILE(cINIFile)
+CATCH
+    llExists = .F.
+ENDTRY
+
+RETURN llExists
+ENDFUNC
+
+*-- Functie pentru crearea unui fisier INI implicit cu setari de baza
+FUNCTION CreateDefaultIni
+PARAMETERS cINIFile
+LOCAL llSuccess
+
+llSuccess = .T.
+
+TRY
+    *-- Sectiunea API
+    WritePini("API", "ApiBaseUrl", "https://api.gomag.ro/api/v1/product/read/json?enabled=1", cINIFile)
+    WritePini("API", "OrderApiUrl", "https://api.gomag.ro/api/v1/order/read/json", cINIFile)
+    WritePini("API", "ApiKey", "YOUR_API_KEY_HERE", cINIFile)
+    WritePini("API", "ApiShop", "https://yourstore.gomag.ro", cINIFile)
+    WritePini("API", "UserAgent", "Mozilla/5.0", cINIFile)
+    WritePini("API", "ContentType", "application/json", cINIFile)
+    
+    *-- Sectiunea PAGINATION
+    WritePini("PAGINATION", "Limit", "100", cINIFile)
+    
+    *-- Sectiunea OPTIONS
+    WritePini("OPTIONS", "GetProducts", "1", cINIFile)
+    WritePini("OPTIONS", "GetOrders", "1", cINIFile)
+    
+    *-- Sectiunea FILTERS
+    WritePini("FILTERS", "OrderDaysBack", "7", cINIFile)
+    
+CATCH
+    llSuccess = .F.
+ENDTRY
+
+RETURN llSuccess
+ENDFUNC