Page 1 of 1
Ejemplo chatptg
Posted: Tue Apr 22, 2025 10:54 am
by jgabri
Buenas tardes
Alguien tiene algún ejemplo, funcionando con chatptg y chat.html ?
Un nsaludo y gracias
Borland bc77 - fwh 25.01 32 bits
Re: Ejemplo chatptg
Posted: Tue Apr 22, 2025 2:23 pm
by Antonio Linares
En este ejemplo, reemplaza TGemini con TOpenAI
webia.prg
Code: Select all | Expand
#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
Re: Ejemplo chatptg
Posted: Tue Apr 22, 2025 8:29 pm
by jgabri
Mil gracias
Re: Ejemplo chatptg
Posted: Sat Apr 26, 2025 12:23 pm
by JoseAlvarez
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!.
Re: Ejemplo chatptg
Posted: Sat Apr 26, 2025 2:13 pm
by Antonio Linares
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.
Re: Ejemplo chatptg
Posted: Sat Apr 26, 2025 7:34 pm
by JoseAlvarez
Muchas gracias Master.
Excelente.
Toca actualizar!
Re: Ejemplo chatptg
Posted: Mon Apr 28, 2025 8:34 am
by jgabri
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
