oliveiros junior wrote: Olá, bom dia a todos!PayPal to alinares@fivetechsoft.com
Ainda dá para fazer inscrição?
Att.,
Oliveiros Junior
100 euros => webinar IA Harbour plus FWH 32 nd 64 bits
50 euros => just webinar IA
oliveiros junior wrote: Olá, bom dia a todos!PayPal to alinares@fivetechsoft.com
Ainda dá para fazer inscrição?
Att.,
Oliveiros Junior
Compuin wrote:Si, correcto :)Maestro Antonio, por 100 € es el FWH ENERO 2025 ?+1
SALUDOS !!
Olá Antônio,
Inscrição realizada.
100 euros.
Aguardo orientações como proceder. Obrigado!
Att.
Oliveiros Junior
Antonio Linares wrote: Estimado Oliveiros,+1
Muchas gracias por tu apoyo al webinar :)
Por favor envÃame un whatsapp al +34 722461100 para darnos tu ID en Skype y entregarte el software :!:
El webinar comienza el próximo miercoles 26 y jueves 27 a las 17 pm hora española en Skype!
FWH 25.12
Harbour/Hbmk2
Microsoft Visual C++
MySql 8.0
Antigravity
leandro wrote: Si deseas a alguno de mis correos, están al final del los POST.Estimado Leandro, correo enviado con los contactos.
o también puede ser a mi WhatsApp +573003957875
Estimado Leandro, correo enviado con los contactos.Amigo, ya quedaron agregados los colegas al grupo.
Saludos,
Lautaro
Buenos dÃas,
Acabo de remitir justificante de pago a Antonio.
Ruego me incluyas en la lista Leandro.
Saludos.
Por si hacemos alguna prueba real, propongo instalar la última versión de FW en la misma carpeta todos, para no perder el tiempo durante el seminario en fallos digamos tontorrones:
C:\FW64IA
Si os parece bien.
buenas tardes ya lo puse asi
saludos
Wilson
buena idea

#include "FiveWin.ch"
function Main()
local oWnd, oWebView
local oGemini := TGemini():New()
fw_SetUnicode( .F. )
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