O Harbour está cada vez melhor...Ainda é recente mais já é uma realidade.
https://docs.google.com/document/d/1GC1 ... dwpv9lmixe
Moderador: Moderadores
sygecom escreveu:O Harbour está cada vez melhor...Ainda é recente mais já é uma realidade.
https://docs.google.com/document/d/1GC1 ... dwpv9lmixe
Máquina virtual Dalvik
Aplicações escritas em Java são compiladas em bytecodes Dalvik e executadas usando a Máquina virtual Dalvik, que é uma máquina virtual especializada desenvolvida para uso em dispositivos móveis, o que permite que programas sejam distribuídos em formato binário (bytecode) e possam ser executados em qualquer dispositivo Android, independentemente do processador utilizado. Apesar das aplicações Android serem escritas na linguagem Java, ela não é uma máquina virtual Java, já que não executa bytecode JVM.
Itamar M. Lins Jr. escreveu:Eu fiquei preso nisso ai!
Achei complicado demais, parti para o HTML+CGI com o servidor uHttpd.exe do Harbour, um micro servidor que entende os códigos do Harbour.
Saudações,
Itamar M. Lins Jr.
Itamar voce tem um passo-a-passo desta solução ?
Podemos misturar Harbour com HTML.
#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"]
LOCAL nConnect, cPATH := "//localhost:2812/"
If XXXWebConetar(@cHtml,cPATH,@nConnect)
Else
Return cHtml
EndIf
If select("me") > 0
Else
cIndex := cPATH+"mesas.cdx"
DbUseArea(.t.,'LETO',cPATH+"mesas.dbf","me",.T.,.F.,'PTISO')
DBSETINDEX( cIndex )
EndIf
If me->(DbSeek(cMesa))
TravaRegistro('me')
me->status := 'U'
cAchou := "SIM"
Else
me->(DbAppend())
me->mesa := cMesa
me->status := 'U'
cAchou := "NAO"
EndIf
me->(dbCloseArea())
cIndex := cPATH+"vendedor.cdx"
DbUseArea(.t.,'LETO',cPATH+"vendedor.dbf","vd",.T.,.F.,'PTISO')
DBSETINDEX( cIndex )
vd->(OrdSetFocus(2)) //Vendedor
aNomeGar := {}
Do While vd->(!Eof())
AAdd(aNomeGar,{vd->vendedor,vd->cod_vended})
vd->(DbSkip())
EndDo
vd->(dbCloseArea())
Leto_Disconnect(nConnect)
cHtml := ""
cHtml += '<html><head>'
cHtml += '<title>Sistema XXX Web Mesas</title></head>'
cHtml += '<meta http-equiv = "Content-Type" content="text/html; charset=iso-8859-1">'
cHtml += '<div align="center">'
cHtml += '<h1>Sistema XXXX Web Mesas</h1>'
cHtml += '<form name=comanda action="/info" method="post">'
cHtml += '<BLOCKQUOTE>'
cHtml += 'Garçon: <SELECT autofocus NAME="login" >'
For n := 1 to Len(aNomeGar)
cHtml += '<OPTION> '+aNomeGar[n][1]
Next
cHtml += '</SELECT>'
cHtml += '<br><br>'
cHtml += 'Senha.: <INPUT TYPE=PASSWORD NAME="senha">'
cHtml += '</BLOCKQUOTE>'
cHtml += '<input type="submit">'
cHtml += '</FORM></div></html>'
RETURN cHtml
Usuários vendo este fórum: Google [Bot], Google Adsense [Bot] e 6 visitantes