Xampp, apache + Harbour como CGI.

[Itamar M. Lins Jr.]

Ola!

É o que eu ouvi um programador WEB falar,

https://forum.imasters.com.br/topic/330 ... or/?page=4

Olha a questão 2. Seu servidor de PHP e Apache foi instalado...

Saudações,
Itamar M. Lins Jr.

[fladimir]

Obrigado Itamar por compartilhar como fez e seu exemplo.

Espero testar assim q possível e tb contribuir.

[] 's

[aedurocha]

Olá para todos do forum

Seguindo os arquivo exemplo postado aqui neste tópico consegui colocar o exemplo para funcionar e consegui até mais algum progresso, só ainda não entendi direito foi os detalhes do funcionamento, por exemplo:
o acesso ao servidor acontece através do apache, por sua vez ao digitar no navegado o ip do servidor + demo.prg (no meu caso programa que esta na pasta cgi-bin do xampp) 127.0.0.1/demo.prg o mesmo será executado através do hbrun.exe que está na pasta hscrip\bin do xampp, até ai tudo bem o prg abaixo é executado sem problemas so que quando coloco uma condição detro do laço do .. while dá erro.

ex. #!C:\hb32\bin\hbrun.exe
Function main
local cHbVer := hb_Version()
outstd( "Content-Type: text/html" + hb_eol() + hb_eol() )
outstd( "<h1>" + cHbVer + "</h1>" + hb_eol() )
outstd( "" + hb_eol() )
outstd( "<pre>" + hb_eol() )
outstd( hb_dtoc(date()) + hb_eol() )
outstd(" Diretorio " + curdir() + hb_eol() )
use funci alias funci
go top
do while !eof()
outstd("Funcionario "+funci->codigo+"-"+funci->descricao + hb_eol() )
skip
enddo
outstd( "</pre>" + chr(10) )
return nil
assim funciona
mas se colocar as seguintes linhas:
IF FUNCI->CODIGO < 10
skip
loop
ENDIF

dentro do do while da erro!
existe uma sintaxe diferente para o hbrun?
Agradeço qualquer ajuda

[Vlademiro]

O seu código tem um erro, pois o campo CODIGO é um campo caractere. Vc não pode comparar diretamente caractere com numérico.

[aedurocha]

Vlademiro obrigado pela a atenção mas o problema não é só esse, o campo código na verdade e string com zeros a esquerda e mesmo colocando "if val(codigo) < 10 " o erro permacece! , gostaria de saber se a forma que entendi o funcionamento está correto e se exite outra sintaxe para o hbrun.exe

[aedurocha]

O prg acima produz o seguinte resultado no navegador;
Harbour 3.2.0dev (r1603011511)

2017-03-15
Diretorio xampp\cgi-bin
Funcionario 00001-VENDAS OPTICA HALLINE
Funcionario 00002-VENDA A VISTA A RECEBER
Funcionario 00003-A VISTA æ RECEBER
Funcionario 00004-LACQUA DI FIORI
Funcionario 00005-VENDA OP.FOCCUS IGUATU
Funcionario 00002-VENDAS RELOGIOS HALLINE
Funcionario 00006-VENDAS OP.EURO OPTICA
Funcionario 00007-VENDA OP.FOCCUS CAJAZEIRAS
Funcionario 00008-VENDAS OP.CRISTAL ACOPIARA
Funcionario 00009-VENDAS OP.CRISTAL IGUATU
Funcionario 00010-VENDAS EXTRA HALLINE
Funcionario 00011-PROMO€OES
Funcionario 00004-LACQUA
Funcionario 00012-VENDAS P/GRACILEIDE
Funcionario 00013-BRINDES
Funcionario 13001-VENDAS PARA GRACILEIDE
Funcionario 00014-V.EXTERNA HALLINE
Funcionario 00015-V.EXTRA VANIA
Funcionario 00003-VENDAS OUTROS HALLINE
Funcionario 00004-VENDAS OP.CRISTAL MOMBA€A
Funcionario 00016-VENDAS SOUZA
Funcionario 00017-VENDAS OPTICAS JULIANNE
Funcionario 00018-VENDAS RELOGIOS JULIANNE
Funcionario 00019-VENDAS OUTROS JULIANNE
Funcionario 00099-TROCA DE PRODUTOS
Funcionario 00020-PROGRAMA
Funcionario 00021-LORENA LOJA


São dados fcticios somente para testes, esta é uma tabela de vendedores, Na verdade preciso gerar consultas simples via web de tabelas DBF e está ferramenta parece ser a solução, mas se alguem tiver outra opção e poder me orientar ficarei grato, Sei que com PHP ou javascript é cossivel , mas gostaria de fazer usando apenas harbour se for possível.

Eduardo Rocha
skype aedurocha
email aedurocha@yahoo.com.br

[fladimir]

e se vc testar sem passar o Alias antes tipo assim (por ser rodado for do natural digamos assim)

Código: Selecionar todos

DBSELECTAREA('FUNCI')
IF CODIGO < 10
   skip
   loop
ENDIF

[aedurocha]

ok , funcionou sem problemas, obrigado! vou continuar com meu projeto

[fladimir]

Q bom q deu certo

Depois posta um exemplo de como preparou o ambiente, fonte e procedimento dos testes, logicamente se possivel, para nos auxiliar caso necessário.

[Itamar M. Lins Jr.]

Ola!
Uma dica!
O teste tem que funcionar fora, sem uso do apache.
Só o prg com hbrun.exe

O HBRUN é uma ferramenta muito poderosa, cheia de recursos.

Saudações,
Itamar M. Lins Jr.

[fladimir]

Ótima dica, isso elimina hipóteses de onde estaria o problema... obrigado Itamar.

[aedurocha]

Continuo com os testes, vou demorar um pouco pq vi a necessidade de estudar um pouco de HTML e nunca tinha desenvolvido para web obrigado pelo apoio de todos, postarei aqui os resultados!

[marcosgambeta]

Continuo com os testes, vou demorar um pouco pq vi a necessidade de estudar um pouco de HTML e nunca tinha desenvolvido para web obrigado pelo apoio de todos, postarei aqui os resultados!

Não apenas HTML, mas o trio abaixo:

HTML + CSS + JavaScript

Quando mais dominá-los, mas recursos terá para desenvolver suas aplicações WEB.

JQuery é uma biblioteca JavaScript que vale a pena aprender a usar:

https://jquery.com/
https://jqueryui.com/
https://jquerymobile.com/

Tem livros da série "Use a Cabeça" (Head First, em inglês) muito bons, abordando estes assuntos.

E se gosta de aprender através de aulas em vídeo, segue um canal do Youtube para começar:

https://www.youtube.com/user/canalfessorbruno/videos

Mas tem muito mais no Youtube. Basta pesquisar. O problema é arrumar tempo para assistir tantas aulas.