FiveTech Software tech support forums

Code: Select all | Expand

// Get your API key from https://aistudio.google.com

#include "FiveWin.ch"
#include "c:\harbour\contrib\hbcurl\hbcurl.ch"

//----------------------------------------------------------------------------//

CLASS TGemini
    
    DATA   cKey   INIT ""
    DATA   cModel INIT "gemini-2.0-flash"
    DATA   cResponse
    DATA   cUrl
    DATA   hCurl
    DATA   nError INIT 0
    DATA   nHttpCode INIT 0
    DATA   nTemperature INIT 0

    METHOD New( cKey, cModel )
    METHOD Send( cPrompt )    
    METHOD End()    
    METHOD GetValue()    

ENDCLASS        

//----------------------------------------------------------------------------//

METHOD New( cKey, cModel ) CLASS TGemini

    if Empty( cKey )
       ::cKey = GetEnv( "GEMINI_API_KEY" )
    else
       ::cKey = cKey   
    endif

    if ! Empty( cModel )
       ::cModel = cModel
    endif
    
    ::cUrl = "https://generativelanguage.googleapis.com/v1beta/models"
    ::hCurl = curl_easy_init()
    
return Self    

//----------------------------------------------------------------------------//

METHOD End() CLASS TGemini

    curl_easy_cleanup( ::hCurl )
    ::hCurl = nil

return nil    

//----------------------------------------------------------------------------//

METHOD GetValue() CLASS TGemini

   local uValue := hb_jsonDecode( ::cResponse )

   TRY 
      uValue = uValue[ "candidates" ][ 1 ][ "content" ][ "parts" ][ 1 ][ "text" ]
   CATCH
      uValue = uValue[ "error" ][ "message" ]
   END   

return uValue

//----------------------------------------------------------------------------//

METHOD Send( cPrompt ) CLASS TGemini 

   local aHeaders, cJson, hRequest, hContents := { => }, hGenerationConfig

   curl_easy_setopt( ::hCurl, HB_CURLOPT_POST, .T. )
   curl_easy_setopt( ::hCurl, HB_CURLOPT_URL, ::cUrl + "/" + ::cModel + ":generateContent?key=" + ::cKey )

   aHeaders := { "Content-Type: application/json" }

   curl_easy_setopt( ::hCurl, HB_CURLOPT_HTTPHEADER, aHeaders )
   curl_easy_setopt( ::hCurl, HB_CURLOPT_USERNAME, "" )
   curl_easy_setopt( ::hCurl, HB_CURLOPT_DL_BUFF_SETUP )
   curl_easy_setopt( ::hCurl, HB_CURLOPT_SSL_VERIFYPEER, .F. )

   hContents[ "role" ]  = "user"
   hContents[ "parts" ] = { { "text" => cPrompt } }
   hGenerationConfig = { "temperature" => ::nTemperature,;
                         "topK" => 40, "topP" => 0.95, "maxOutputTokens" => 8192,;
                         "responseMimeType" => "text/plain" }  
   hRequest = { "contents" => hContents, "generationConfig" => hGenerationConfig }

   cJson = hb_jsonEncode( hRequest )
   curl_easy_setopt( ::hCurl, HB_CURLOPT_POSTFIELDS, cJson )
   ::nError = curl_easy_perform( ::hCurl )
   curl_easy_getinfo( ::hCurl, HB_CURLINFO_RESPONSE_CODE, @::nHttpCode )

   if ::nError == HB_CURLE_OK
      ::cResponse = curl_easy_dl_buff_get( ::hCurl )
   else
      ::cResponse := "Error code " + Str( ::nError )
   endif
    
return ::cResponse

//----------------------------------------------------------------------------//

Code: Select all | Expand

// Get your API key from https://aistudio.google.com
// from cmd: set GEMINI_API_KEY=your_api_key

#include "FiveWin.ch"

//----------------------------------------------------------------------------//

function Main()

   local oChat := TGemini():New()

   oChat:Send( "cuantas 'r's hay en 'strawberry' ?" )
   ? oChat:GetValue() 

   oChat:End()

return nil   

//----------------------------------------------------------------------------//

Code: Select all | Expand

Sí, conozco Harbour.  Es un lenguaje de programación de propósito general, un dialecto de xBase,  que es compatible con la mayoría del código Clipper.  Se caracteriza por ser:

* **Open source:**  Su código fuente está disponible públicamente.
* **Multiplataforma:**  Puede compilarse para diferentes sistemas operativos, incluyendo Windows, Linux, macOS y otros.
* **Orientado a bases de datos:**  Aunque puede usarse para otras tareas, su fortaleza reside en el desarrollo de aplicaciones que interactúan con bases de datos, especialmente aquellas compatibles con el formato DBF (dBase).
* **Compilado:**  A diferencia de lenguajes interpretados, Harbour genera código ejecutable, lo que resulta en aplicaciones más rápidas.
* **Compatible con Clipper:**  Gran parte del código escrito en Clipper puede ser compilado con Harbour con mínimas o ninguna modificación.  Esto facilita la migración de aplicaciones antiguas.

Sin embargo, es importante destacar que Harbour no es tan popular como otros lenguajes de programación modernos.  Su comunidad es más pequeña y la documentación puede ser menos extensa que la de lenguajes como Java, Python o C#.  Su uso se centra principalmente en la migración y mantenimiento de aplicaciones legacy basadas en xBase.

Code: Select all | Expand

Para darte un ejemplo de código, necesito saber qué tipo de código quieres.  Por favor, especifica:

* **Lenguaje de programación:** (ej. Python, JavaScript, C++, Java, etc.)
* **Propósito del código:** ¿Qué debería hacer el código? (ej. calcular el factorial de un número, imprimir "Hola, mundo!", leer un archivo, etc.)
* **Nivel de complejidad:** ¿Algo simple o algo más avanzado?

Una vez que me des esta información, podré proporcionarte un ejemplo de código relevante.