FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Ejemplo chatptg
Posts: 29
Joined: Mon Jan 14, 2019 11:43 AM
Ejemplo chatptg
Posted: Tue Apr 22, 2025 10:54 AM

Buenas tardes

Alguien tiene alg煤n ejemplo, funcionando con chatptg y chat.html ?

Un nsaludo y gracias

Borland bc77 - fwh 25.01 32 bits

Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Ejemplo chatptg
Posted: Tue Apr 22, 2025 02:23 PM
En este ejemplo, reemplaza TGemini con TOpenAI

webia.prg
#include "FiveWin.ch"

REQUEST HB_CODEPAGE_ESWIN

function Main()

    local oWnd, oWebView
    local oGemini := TGemini():New()

    fw_SetUnicode( .F. )
    hb_SetCodePage( "ESWIN" )

    DEFINE WINDOW oWnd TITLE "Chat AI" SIZE 650, 800

    oWebView = TWebView2():New( oWnd )

    oWebView:SetHtml( hb_memoRead( "chat.html" ) )
    oWebView:bOnBind = { | aInfo, cAnswer | oGemini:Send( aInfo[ 1 ] ),;
                                            cAnswer := "sendResponse('" + hb_Utf8ToStr( oGemini:getValue() ) + "')",;
                                            cAnswer := StrTran( cAnswer, Chr( 10 ), "" ),;
                                            oWebView:Eval( cAnswer ) }

    ACTIVATE WINDOW oWnd CENTER ;
       ON RESIZE oWebView:SetSize( nWidth, nHeight )

    oGemini:End()

return nil
regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 29
Joined: Mon Jan 14, 2019 11:43 AM
Re: Ejemplo chatptg
Posted: Tue Apr 22, 2025 08:29 PM
Mil gracias 🫂
Posts: 851
Joined: Sun Nov 09, 2014 05:01 PM
Re: Ejemplo chatptg
Posted: Sat Apr 26, 2025 12:23 PM

Saludos Master Antonio,

Disculpe mi total desconocimiento sobre este tema:

El c贸digo que muestra es para llamar a la IA desde nuestras aplicaciones? el llamado es de forma general o se puede adaptar a lo nuestro? o sea alimentar a la IA para que responda a los usuarios sus inquietudes sobre nuestra app? a partir de que version de FW se incluye?

Gracias!.

"Los errores en programaci贸n, siempre est谩n entre la silla y el teclado..."



Fwh 19.06 32 bits + Harbour 3.2 + Borland 7.4 + MariaDB + TDolphin



Carora, Estado Lara, Venezuela.
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Ejemplo chatptg
Posted: Sat Apr 26, 2025 02:13 PM

Estimado Jose,

Las Clases de inteligencia artificial TOpenAI, TGemini y TOllama est谩n disponibles desde FWH 25.01

Puedes hacerles cualquier tipo de preguntas o por ejemplo darle los datos de un balance de situaci贸n y pedirle que lo analice, que valore la evoluci贸n de ventas, que traduzca, que resuma, etc.

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 851
Joined: Sun Nov 09, 2014 05:01 PM
Re: Ejemplo chatptg
Posted: Sat Apr 26, 2025 07:34 PM

Muchas gracias Master.

Excelente.

Toca actualizar!

"Los errores en programaci贸n, siempre est谩n entre la silla y el teclado..."



Fwh 19.06 32 bits + Harbour 3.2 + Borland 7.4 + MariaDB + TDolphin



Carora, Estado Lara, Venezuela.
Posts: 29
Joined: Mon Jan 14, 2019 11:43 AM
Re: Ejemplo chatptg
Posted: Mon Apr 28, 2025 08:34 AM
Hola
脕nimo a todos los grupos actualizar a 煤ltima versi贸n de fwh, fivewin no ha dado mucho y ahora tenemos que estar m谩s unidos y avanzar.

Un saludo y mil gracias 🫂😊

Continue the discussion