Re: Webview 2 + Html + ChatGPT !
Posted: Fri Sep 27, 2024 6:44 am
buildit.prg
Code: Select all | Expand
#include "FiveWin.ch"
REQUEST DbfCdx
// REQUEST HB_CODEPAGE_ESWIN
// REQUEST HB_LANG_ESWIN
// get your OpenAI key from https://platform.openai.com/api-keys
static cKey := "sk-proj-..."
static oChatgpt
static oTree
static cCategory := " "
static oWebView
static cContext := " "
static oExplBar, oExplPanel
//----------------------------------------------------------------------------//
function Main()
local oWnd, oAppPanel
oChatgpt = TChatgpt():New( cKey )
DEFINE WINDOW oWnd TITLE "Build it"
oExplBar = TExplorerBar():New( 0, 82, 480, 100, oWnd:oLeft, CLR_WHITE, RGB( 31, 31, 31 ) )
oWnd:oLeft = oExplBar
oExplPanel = oExplBar:AddPanel( "AI assistant" )
oExplPanel:AddLink( "what is this app about ?",;
{ || If( MsgGet( "App category", "Please specify it", @cCategory ), AddOptions( cCategory, oExplBar ),) } )
oExplPanel:AddLink( "Add options to selected item", { || AddSubOptions() } )
oExplPanel:AddLink( "Generate HTML for selected item", { || MsgRun( "Building the GUI", "Please wait", { || GenerateHTML() } ) } )
oExplPanel:AddLink( "Modify HTML for selected item", { || ModifyHTML() } )
oExplPanel:AddLink( "Overall context", { || Context() } )
oExplPanel:AddLink( "Save App", { || SaveApp() } )
oExplPanel:AddLink( "Load App", { || LoadApp() } )
oWnd:oClient = TPanel():New( 0, 0, 100, 100, oWnd )
oWebView = TWebView2():New( oWnd:oClient )
oWebView:Navigate( "https://www.google.com" )
ACTIVATE WINDOW oWnd MAXIMIZED ;
ON RESIZE ( oWebView:SetSize( nWidth - oExplBar:nWidth, nHeight ), oExplBar:SetSize( 480, nHeight ) )
return nil
//----------------------------------------------------------------------------//
function AddOptions( cCategory, oExplBar )
local cOptions, aOptions, cOption, oAppPanel, oItem
oChatgpt:cPrompt := "genera una lista separada por comas con las opciones de una aplicación de " + ;
hb_StrToUtf8( AllTrim( cCategory ) ) + ". No des ninguna explicación"
MsgRun( "Asking ChatGPT", "Please wait", { || oChatgpt:Send() } )
cOptions = oChatgpt:GetValue( "choices", "message", "content" )
aOptions = hb_ATokens( cOptions, "," )
oAppPanel = oExplBar:AddPanel( cCategory,, 700 )
cCategory = hb_Utf8ToStr( AllTrim( cCategory ) )
oTree = TTreeView():New( 2.5, 2, oAppPanel,,,,, 423, 675 )
oTree:bChanged = { || oItem := oTree:GetSelected(), oWebView:SetHtml( If( ! Empty( oItem:Cargo ), oItem:Cargo, "" ) ) }
for each cOption in aOptions
oItem = oTree:Add( cOption )
oItem:Cargo = HtmlDefault()
next
return nil
//----------------------------------------------------------------------------//
function AddSubOptions()
local oItem
local cOption := If( ( oItem := oTree:GetSelected() ) != nil, oItem:cPrompt, "" )
local cOptions, cSubOption, aOptions, oSubItem
if ! Empty( cOption )
oChatgpt:cPrompt := "genera una lista separada por comas con las opciones de " + hb_StrToUtf8( cOption ) + ;
" para una aplicación de " + hb_StrToUtf8( cCategory ) + ". No des ninguna explicación"
MsgRun( "Asking ChatGPT", "Please wait", { || oChatgpt:Send() } )
cOptions = oChatgpt:GetValue( "choices", "message", "content" )
aOptions = hb_ATokens( cOptions, "," )
for each cSubOption in aOptions
oSubItem = oItem:Add( cSubOption )
oSubItem:Cargo = HtmlDefault()
next
oItem:Expand()
endif
return nil
//----------------------------------------------------------------------------//
function GenerateHTML()
local oItem, cHTML
local cOption := If( ( oItem := oTree:GetSelected() ) != nil, oItem:cPrompt, "" )
if ! Empty( cOption )
oChatgpt:cPrompt := "genera el código HTML usando bootstrap para la opción " + hb_StrToUtf8( cOption ) + ;
" para una aplicación de " + hb_StrToUtf8( AllTrim( cCategory ) ) + ;
". Que se vea muy profesional y elegante. No des ninguna explicación. " + ;
cContext
oChatgpt:Send()
cHTML = oChatgpt:GetValue( "choices", "message", "content" )
oItem:Cargo = SubStr( cHTML, 8, Len( cHTML ) - 10 )
oWebView:SetHTML( oItem:Cargo )
endif
return nil
//----------------------------------------------------------------------------//
function ModifyHTML()
local oItem, cHTML
local cOption := If( ( oItem := oTree:GetSelected() ) != nil, oItem:cPrompt, "" )
local cChange := Space( 50 )
if fw_memoEdit( @cChange, "What do you want to change ?" )
cChange = AllTrim( cChange )
endif
if ! Empty( cOption )
oChatgpt:cPrompt := "modifica este código HTML usando bootstrap para la opción " + hb_StrToUtf8( cOption ) + ;
" para una aplicación de " + hb_StrToUtf8( AllTrim( cCategory ) ) + ;
". Que se vea muy profesional y elegante. No des ninguna explicación. " + ;
cContext + ". Y aplica _ exactamente: " + hb_StrToUtf8( cChange ) + ;
oItem:Cargo
MsgRun( "Asking ChatGPT", "Please wait", { || oChatgpt:Send() } )
cHTML = oChatgpt:GetValue( "choices", "message", "content" )
oItem:Cargo = SubStr( cHTML, 8, Len( cHTML ) - 10 )
oWebView:SetHTML( oItem:Cargo )
endif
return nil
//----------------------------------------------------------------------------//
function Context()
if fw_memoEdit( @cContext, "Overall context for HTML generation" )
cContext = AllTrim( cContext )
endif
return nil
//----------------------------------------------------------------------------//
function CreateDBF( cFileName )
DbCreate( cFileName + ".dbf", { { "prompt", "C", 80, 0 },;
{ "level", "N", 3, 0 },;
{ "html", "M", 10, 0 } }, "DBFCDX" )
USE ( cFileName )
return nil
//----------------------------------------------------------------------------//
function SaveApp()
if ! File( cCategory + ".dbf" )
CreateDBF( StrTran( AllTrim( cCategory ), " ", "_" ) )
else
if MsgYesNo ("App already exists", "Do you want to overwrite it?" )
CreateDBF( StrTran( AllTrim( cCategory ), " ", "_" ) )
else
return nil
endif
endif
oTree:Scan( { | oItem, nPos, nLevel | DbAppend(), field->prompt := oItem:cPrompt,;
field->level := nLevel, field->html := oItem:Cargo, .F. } )
GO TOP
XBrowse()
USE
return nil
//----------------------------------------------------------------------------//
function LoadApp()
local cFileName := cGetFile( "DBF file| *.dbf", "Please select a DBF" )
local oAppPanel, oItem, oLastItem, nLevel := 1, aLevels := {}
USE ( cFileName )
oAppPanel = oExplBar:AddPanel( cFileNoExt( cFileName ),, 700 )
oTree = TTreeView():New( 2.5, 2, oAppPanel,,,,, 423, 675 )
while ! EoF()
IF field->level > nLevel
// Aumenta el nivel, guarda el elemento actual y crea una nueva rama
AADD(aLevels, oLastItem)
nLevel++
oItem := oLastItem:Add(field->prompt)
oLastItem := oItem
ELSEIF field->level < nLevel
// Disminuye el nivel, recupera el elemento del nivel anterior
WHILE nLevel > field->level .AND. !EMPTY(aLevels)
nLevel--
oLastItem := ATAIL(aLevels)
ADEL(aLevels, LEN(aLevels))
ENDDO
if oLastItem != nil
oItem := oLastItem:Add( field->prompt )
endif
ELSE
// Mismo nivel, añade un nuevo elemento al nivel actual
oItem := oTree:Add( field->prompt )
oLastItem := oItem
ENDIF
oItem:Cargo := field->html
SKIP
end
USE
return nil
//----------------------------------------------------------------------------//
function HtmlDefault()
local cHtml
TEXT INTO cHtml
<!DOCTYPE html>
<html lang="es">
<head>
<style>
body {
background-color: rgb(31, 31, 31);
}
</style>
</head>
<body>
</body>
</html>
ENDTEXT
return cHtml
//----------------------------------------------------------------------------//