Estou fazendo uns testes com esse simples programa, estou impressionado com algumas coisas.
Por exemplo eu estava procurando uma maneira simples de programar para WEB, e com isso me livrar do IOs, Androide, etc...
Criar uma aplicação para plataforma "DEDO NA TELA", parece que vai dar praia!
Alguém aqui no forum está usando algo similar para trocarmos figurinhas ?
Código: Selecionar todos
#include "rddleto.ch"
MEMVAR _SERVER, _REQUEST, _GET, _POST, _COOKIE, _SESSION, _HTTP_REQUEST, _HTTP_RESPONSE
REQUEST DBFNTX, DBFCDX, DBFFPT, DBFDBT, LETO
REQUEST HB_LANG_PT,HB_CODEPAGE_PTISO,HB_CODEPAGE_PT850
FUNCTION HRBMAIN(...)
LOCAL cHtml := ""
LOCAL cMesa := _Server["QUERY_STRING"]
HB_CDPSELECT([PTISO])
hb_langselect([PT])
RDDSetDefault("LETO")
cPath := "//localhost:2812/"
//Set AutoPen On
Set Deleted On
if select("me") > 0
FechaDb("me")
endif
...<corte>
cIndex := cPath+"mesas.cdx"
DbUseArea(.t.,'LETO',cPath+"mesas.dbf","me",.T.,.F.,'PTISO')
DBSETINDEX( cIndex )
cHtml += '<html><head>'
cHtml += '<title>Sistema XYZ Web MESAS</title></head>'
cHtml += '<meta http-equiv = "Content-Type" content="text/html; charset=iso-8859-1">'
cHtml += '<STYLE type=text/css>'
Return cHTML
Outra possibilidade é rodar via apache, a extensão .hrb usando hbrun, essa eu não sei se funciona.
Saudações,
Itamar M. Lins Jr.


