Código: Selecionar todos
Hi Roberto, Andy
In <drive:>\xampp\apache\conf\httpd.conf make sure the line <AddHandler> contains .prg. So it might look like this:
AddHandler cgi-script .cgi .pl .asp .prg
Then create within xampp\cgi-bin folder DEMO.PRG
Next create folder within xampp: 'hscript' + folder 'bin' in hscript
Within hscript/bin copy HBRUN.EXE + harbour-32.dll from HARBOUR
- start XAMPP
http://localhost/cgi-bin/demo.prg start in your browser
DEMO.PRG
#!"<drive:>:/xampp/hscript/bin/hbrun.exe"
fwrite( 1, "Content-Type: text/html" + chr(10 ) + chr(10) )
fwrite( 1, "<h1>World countries</h1>" + chr(10) )
fwrite( 1, "<body>" + chr(10) )
fwrite( 1, "<table>" + chr(10) )
USE <drive:>:\TEST\LANDEN // CHANGE THIS
GO TOP
DO WHILE .NOT. EOF()
fwrite( 1, "<tr>" + chr(10) )
fwrite( 1, "<td>" + LANDEN->LAND_ISO + "</td>" + chr(10) ) // CHANGE THIS
fwrite( 1, "<td>" + LANDEN->LAND_CD + "</td>" + chr(10) ) // CHANGE THIS
fwrite( 1, "<td>" + LANDEN->LAND_NR + "</td>" + chr(10) ) // CHANGE THIS
fwrite( 1, "<td>" + ALLTRIM(LANDEN->LAND_OMS) + "</td>" + chr(10) ) // CHANGE THIS
fwrite( 1, "</tr>" + chr(10) )
SKIP
ENDDO
fwrite( 1, "</table>" + chr(10) )
fwrite( 1, "</body>" + chr(10) )
fwrite( 1, "</html>" + chr(10) )
CLOSE ALL
RETURN
DECLARE ALL VARS AS LOCAL !!!
<drive:> is C, D, E or where your XAMPP is located
It also works with NETIO and you will have to use HTML5 + CSS
Serge
Itamar M. Lins Jr.


