FiveTech Support Forums

//============================================================================//
//                                                                            //
//                       HARBOUR MICROSERVICE – HTTP JSON                     //
//                                                                            //
//    Ziel:                                                                  //
//      - Microservice, der eine DBF-Datei (KUNDEN.DBF) mit CDX-Index       //
//        über einen lokalen HTTP-Endpunkt abfragt                          //
//      - Bei GET-Request wie                                                //
//          http://localhost:9090/search?name=ABCD                          //
//        werden alle Kunden geliefert, deren Name mit "ABCD" beginnt      //
//                                                                            //
//    Sicherheit:                                                            //
//      - Der Server bindet NUR auf 127.0.0.1 (localhost)                   //
//        → keine Verbindung von außen möglich                              //
//                                                                            //
//============================================================================//

#include "hbcompat.ch"
#include "fileio.ch"
#include "hbjson.ch"

REQUEST DBFCDX
REQUEST HB_INET
REQUEST HB_SOCKET

FUNCTION Main()
   LOCAL oSocket, oListen, cRequest, cName, hResult, aResult := {}
   LOCAL cLine, cParam, aParam, cKey
   LOCAL cDBF := "x:\xwhdaten\DATAWIN\KUNDEN.dbf"

   // Starte Server: lausche NUR auf 127.0.0.1:9090 → nur lokal erreichbar!
   oListen := hb_inetCreate()
   IF ! hb_inetBind(oListen, 9090, "127.0.0.1")
      ? "Fehler: Port 9090 ist nicht verfügbar oder bereits belegt."
      RETURN
   ENDIF
   ? "Microservice läuft lokal auf http://127.0.0.1:9090"

   // Datenbank vorbereiten (KUNDEN.DBF mit Index KU_NAME)
   USE (cDBF) ALIAS kunden NEW SHARED VIA "DBFCDX"
   SET INDEX TO x:\xwhdaten\DATAWIN\KUNDEN.CDX
   ORDSETFOCUS("KU_NAME")  // Suchindex

   // Endlosschleife: Anfragen verarbeiten
   DO WHILE .T.
      oSocket := hb_inetAccept(oListen)
      IF oSocket == NIL
         LOOP
      ENDIF

      cRequest := hb_inetRecvLine(oSocket)  // z. B. "GET /search?name=ABCD HTTP/1.1"
      IF cRequest == NIL
         hb_inetClose(oSocket)
         LOOP
      ENDIF

      IF "GET /search?" $ cRequest
         // ==== Anfrage parsen ====
         cParam := StrToken(cRequest, "?", 2)                 // hole "name=ABCD HTTP/1.1"
         aParam := hb_aTokens(StrToken(cParam, " ", 1), "&")  // zerlege in name=ABCD, ...

         cName := ""  // Suche nach Name initialisieren
         FOR EACH cLine IN aParam
            a := hb_aTokens(cLine, "=")
            IF Lower(a[1]) == "name"
               cName := Upper(UrlDecode(a[2]))
            ENDIF
         NEXT

         // ==== Suche starten ====
         IF !Empty(cName)
            DBSEEK(cName)
            DO WHILE !EOF() .AND. Left(Upper(TRIM(kunden->name)), Len(cName)) == cName
               AAdd(aResult, { ;
                  "name" => kunden->name, ;
                  "plz"  => kunden->plz, ;
                  "ort"  => kunden->ort ;
               })
               DBSKIP()
            ENDDO
         ENDIF

         // ==== Ergebnis vorbereiten ====
         hResult := { ;
            "status"  => "ok", ;
            "query"   => cName, ;
            "results" => aResult }

         // ==== JSON-Antwort senden ====
         hb_inetSend(oSocket, "HTTP/1.1 200 OK" + CRLF )
         hb_inetSend(oSocket, "Content-Type: application/json" + CRLF + CRLF )
         hb_inetSend(oSocket, hb_jsonEncode(hResult) + CRLF )
      ELSE
         // 404 bei nicht unterstütztem Request
         hb_inetSend(oSocket, "HTTP/1.1 404 Not Found" + CRLF + CRLF )
      ENDIF

      // Verbindung schließen und Daten zurücksetzen
      hb_inetClose(oSocket)
      aResult := {}  // Ergebnisse für nächsten Request leeren
   ENDDO

   CLOSE kunden
RETURN NIL

// Hilfsfunktion: URL-Parameter dekodieren (z. B. %20 → Leerzeichen)
STATIC FUNCTION UrlDecode( c )
   LOCAL i, cOut := "", nLen := Len(c), nChar
   i := 1
   DO WHILE i <= nLen
      IF SubStr(c, i, 1) == "%"
         nChar := Val( "0x" + SubStr(c, i+1, 2) )
         cOut += Chr(nChar)
         i += 3
      ELSE
         cOut += SubStr(c, i, 1)
         i++
      ENDIF
   ENDDO
RETURN cOut

┌────────────────────────────────────────────────────────────────────────────┐
?FiveWin for xHarbour 25.01 64bits - Jan. 2025   Harbour development power  │▄
?(c) FiveTech 1993-2025 for Microsoft Windows 9X/NT/200X/ME/XP/Vista/7/8/10 │█
└────────────────────────────────────────────────────────────────────────────┘?
  ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀?
Compiling...
C:\xHar2501_64\bin\harbour leandro7 /n /d__64__ /iC:\fwh64_2501\include;C:\xHar2501_64\include /w /p
xHarbour 1.3.1 Intl. (SimpLex) (Build 20250219)
Copyright 1999-2024, http://www.xharbour.org http://www.harbour-project.org/
Compiling 'leandro7.prg' and generating preprocessed output to 'leandro7.ppo'...
leandro7.prg(20) Error F0029  Can't open #include file: 'hbjson.ch'
* Compiling errors *