f6c08520e4
+ tests/stripeol.hb
+ added script to strip spaces at EOL
* contrib/gtalleg/tests/test.prg
* contrib/gtwvg/tests/demoxbp.prg
* contrib/gtwvg/tests/wvgactivex.prg
* contrib/gtwvg/tests/wvgxbp.prg
* contrib/gtwvg/wvgclass.prg
* contrib/hbamf/tests/tstendin.prg
* contrib/hbbz2/tests/test.prg
* contrib/hbcairo/tests/fancytxt.prg
* contrib/hbcairo/tests/table.prg
* contrib/hbct/ctrand.prg
* contrib/hbct/doc/en/addascii.txt
* contrib/hbct/doc/en/atadjust.txt
* contrib/hbct/doc/en/count.txt
* contrib/hbct/doc/en/ct.txt
* contrib/hbct/doc/en/ctc.txt
* contrib/hbct/doc/en/ctmath.txt
* contrib/hbct/doc/en/ctmath2.txt
* contrib/hbct/doc/en/ctpad.txt
* contrib/hbct/doc/en/ctstr.txt
* contrib/hbct/doc/en/datetime.txt
* contrib/hbct/doc/en/dattime2.txt
* contrib/hbct/doc/en/exponent.txt
* contrib/hbct/doc/en/finan.txt
* contrib/hbct/doc/en/ftoc.txt
* contrib/hbct/doc/en/justify.txt
* contrib/hbct/doc/en/keyset.txt
* contrib/hbct/doc/en/misc1.txt
* contrib/hbct/doc/en/num1.txt
* contrib/hbct/doc/en/numat.txt
* contrib/hbct/doc/en/numconv.txt
* contrib/hbct/doc/en/pos1.txt
* contrib/hbct/doc/en/pos2.txt
* contrib/hbct/doc/en/posdiff.txt
* contrib/hbct/doc/en/print.txt
* contrib/hbct/doc/en/range.txt
* contrib/hbct/doc/en/relation.txt
* contrib/hbct/doc/en/remove.txt
* contrib/hbct/doc/en/replace.txt
* contrib/hbct/doc/en/screen1.txt
* contrib/hbct/doc/en/strdiff.txt
* contrib/hbct/doc/en/strswap.txt
* contrib/hbct/doc/en/token1.txt
* contrib/hbct/doc/en/token2.txt
* contrib/hbct/doc/en/trig.txt
* contrib/hbct/doc/en/video.txt
* contrib/hbct/doc/en/wordtoch.txt
* contrib/hbct/getinfo.prg
* contrib/hbfimage/tests/fitest.prg
* contrib/hbgd/gdimage.prg
* contrib/hbgd/tests/counter.prg
* contrib/hbgd/tests/gdtest.prg
* contrib/hbgd/tests/gdtestcl.prg
* contrib/hbgd/tests/test_out.prg
* contrib/hbide/idetags.prg
* contrib/hblzf/tests/test2.prg
* contrib/hbmisc/doc/en/ht_conv.txt
* contrib/hbmisc/fcomma.prg
* contrib/hbmisc/fileread.prg
* contrib/hbmisc/hbedit.prg
* contrib/hbnf/anomatch.prg
* contrib/hbnf/calendar.prg
* contrib/hbnf/clrsel.prg
* contrib/hbnf/dispmsg.prg
* contrib/hbnf/doc/en/aading.txt
* contrib/hbnf/doc/en/aavg.txt
* contrib/hbnf/doc/en/acctadj.txt
* contrib/hbnf/doc/en/acctmnth.txt
* contrib/hbnf/doc/en/acctqtr.txt
* contrib/hbnf/doc/en/acctweek.txt
* contrib/hbnf/doc/en/acctyear.txt
* contrib/hbnf/doc/en/adessort.txt
* contrib/hbnf/doc/en/aemaxlen.txt
* contrib/hbnf/doc/en/aeminlen.txt
* contrib/hbnf/doc/en/amedian.txt
* contrib/hbnf/doc/en/anomatch.txt
* contrib/hbnf/doc/en/any2any.txt
* contrib/hbnf/doc/en/aredit.txt
* contrib/hbnf/doc/en/asum.txt
* contrib/hbnf/doc/en/at2.txt
* contrib/hbnf/doc/en/bitclr.txt
* contrib/hbnf/doc/en/bitset.txt
* contrib/hbnf/doc/en/blink.txt
* contrib/hbnf/doc/en/byt2bit.txt
* contrib/hbnf/doc/en/byt2hex.txt
* contrib/hbnf/doc/en/byteand.txt
* contrib/hbnf/doc/en/byteneg.txt
* contrib/hbnf/doc/en/bytenot.txt
* contrib/hbnf/doc/en/bytexor.txt
* contrib/hbnf/doc/en/calendar.txt
* contrib/hbnf/doc/en/chdir.txt
* contrib/hbnf/doc/en/cntryset.txt
* contrib/hbnf/doc/en/color2n.txt
* contrib/hbnf/doc/en/d2e.txt
* contrib/hbnf/doc/en/datecnfg.txt
* contrib/hbnf/doc/en/dayofyr.txt
* contrib/hbnf/doc/en/daytobow.txt
* contrib/hbnf/doc/en/dfile.txt
* contrib/hbnf/doc/en/diskfunc.txt
* contrib/hbnf/doc/en/dispc.txt
* contrib/hbnf/doc/en/dispmsg.txt
* contrib/hbnf/doc/en/dosver.txt
* contrib/hbnf/doc/en/e2d.txt
* contrib/hbnf/doc/en/easter.txt
* contrib/hbnf/doc/en/elapsed.txt
* contrib/hbnf/doc/en/findith.txt
* contrib/hbnf/doc/en/floptst.txt
* contrib/hbnf/doc/en/ftattr.txt
* contrib/hbnf/doc/en/ftidle.txt
* contrib/hbnf/doc/en/ftisprn.txt
* contrib/hbnf/doc/en/ftround.txt
* contrib/hbnf/doc/en/fttext.txt
* contrib/hbnf/doc/en/gcd.txt
* contrib/hbnf/doc/en/getenvrn.txt
* contrib/hbnf/doc/en/hex2dec.txt
* contrib/hbnf/doc/en/iamidle.txt
* contrib/hbnf/doc/en/isbit.txt
* contrib/hbnf/doc/en/isbiton.txt
* contrib/hbnf/doc/en/isshare.txt
* contrib/hbnf/doc/en/kspeed.txt
* contrib/hbnf/doc/en/linked.txt
* contrib/hbnf/doc/en/madd.txt
* contrib/hbnf/doc/en/menutonf.txt
* contrib/hbnf/doc/en/metaph.txt
* contrib/hbnf/doc/en/miltime.txt
* contrib/hbnf/doc/en/month.txt
* contrib/hbnf/doc/en/netpv.txt
* contrib/hbnf/doc/en/nooccur.txt
* contrib/hbnf/doc/en/ntow.txt
* contrib/hbnf/doc/en/nwlstat.txt
* contrib/hbnf/doc/en/nwsem.txt
* contrib/hbnf/doc/en/nwuid.txt
* contrib/hbnf/doc/en/ontick.txt
* contrib/hbnf/doc/en/origin.txt
* contrib/hbnf/doc/en/page.txt
* contrib/hbnf/doc/en/pchr.txt
* contrib/hbnf/doc/en/peek.txt
* contrib/hbnf/doc/en/pending.txt
* contrib/hbnf/doc/en/poke.txt
* contrib/hbnf/doc/en/popadder.txt
* contrib/hbnf/doc/en/proper.txt
* contrib/hbnf/doc/en/prtesc.txt
* contrib/hbnf/doc/en/putkey.txt
* contrib/hbnf/doc/en/qtr.txt
* contrib/hbnf/doc/en/rand1.txt
* contrib/hbnf/doc/en/savearr.txt
* contrib/hbnf/doc/en/scregion.txt
* contrib/hbnf/doc/en/setdate.txt
* contrib/hbnf/doc/en/setkeys.txt
* contrib/hbnf/doc/en/setlastk.txt
* contrib/hbnf/doc/en/settime.txt
* contrib/hbnf/doc/en/sinkey.txt
* contrib/hbnf/doc/en/sleep.txt
* contrib/hbnf/doc/en/sqzn.txt
* contrib/hbnf/doc/en/sysmem.txt
* contrib/hbnf/doc/en/tbwhile.txt
* contrib/hbnf/doc/en/tempfile.txt
* contrib/hbnf/doc/en/vertmenu.txt
* contrib/hbnf/doc/en/vidcur.txt
* contrib/hbnf/doc/en/vidmode.txt
* contrib/hbnf/doc/en/wda.txt
* contrib/hbnf/doc/en/week.txt
* contrib/hbnf/doc/en/workdays.txt
* contrib/hbnf/doc/en/woy.txt
* contrib/hbnf/doc/en/xbox.txt
* contrib/hbnf/doc/en/year.txt
* contrib/hbnf/ftround.prg
* contrib/hbnf/metaph.prg
* contrib/hbnf/nwsem.prg
* contrib/hbnf/nwuid.prg
* contrib/hbnf/pending.prg
* contrib/hbnf/popadder.prg
* contrib/hbnf/scregion.prg
* contrib/hbnf/tbwhile.prg
* contrib/hbnf/workdays.prg
* contrib/hbodbc/browodbc.prg
* contrib/hbqt/tests/browqt.prg
* contrib/hbqt/tests/dbfbrowserclass.prg
* contrib/hbqt/tests/testbrow.prg
* contrib/hbsqlit3/tests/blob.prg
* contrib/hbsqlit3/tests/sl3_test.prg
* contrib/hbxbp/tests/demoxbp.prg
* contrib/hbxbp/tests/dialogqt.prg
* contrib/hbxbp/xbpdataref.prg
* contrib/hbxbp/xbpmenubar.prg
* contrib/hbxbp/xbpprintdialog.prg
* contrib/hbxbp/xbpprinter.prg
* contrib/hbxbp/xbprtf.prg
* contrib/hbxbp/xbpscrollbar.prg
* contrib/xhb/cstruct.prg
* contrib/xhb/hblog.prg
* contrib/xhb/hterrsys.prg
* contrib/xhb/htjlist.prg
* contrib/xhb/sprintf.prg
* contrib/xhb/stream.prg
* contrib/xhb/tcgi.prg
* contrib/xhb/tedit.prg
* contrib/xhb/tfile.prg
* contrib/xhb/thtm.prg
* contrib/xhb/trpc.prg
* contrib/xhb/trpccli.prg
* contrib/xhb/ttable.prg
* contrib/xhb/txml.prg
* contrib/xhb/xcstr.prg
* contrib/xhb/xhberr.prg
* contrib/xhb/xhbmt.prg
* doc/cmpopt.txt
* doc/en/dbstrux.txt
* examples/hbapollo/array.prg
* examples/hbvpdf/hbvpdf.prg
* examples/hbvpdf/hbvpdft.prg
* examples/hbxlsxml/xlsxml_s.prg
* examples/hbxlsxml/xlsxml_y.prg
* examples/httpsrv/cgifunc.prg
* examples/httpsrv/cookie.prg
* examples/httpsrv/modules/cookie.prg
* examples/httpsrv/modules/info.prg
* examples/httpsrv/modules/showcounter.prg
* examples/httpsrv/modules/tableservletdb.prg
* examples/httpsrv/modules/testajax.prg
* examples/httpsrv/session.prg
* examples/httpsrv/uhttpd.prg
* include/hbclass.ch
* include/hbtrace.ch
* src/debug/dbgtinp.prg
* src/debug/debugger.prg
* src/debug/tbrwtext.prg
* src/rdd/usrrdd/rdds/hscdx.prg
* src/rtl/hbi18n2.prg
* src/rtl/valtoexp.prg
* formatting, fixed indentation, cleanups, deleting system specific information,
optimizing out platform dependent code, using hb_ntos()
358 lines
8.1 KiB
Plaintext
358 lines
8.1 KiB
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
/*
|
|
* Copyright 2004-2005 Francesco Saverio Giudice <info@fsgiudice.com>
|
|
*
|
|
* Windows CGI test application
|
|
*/
|
|
|
|
#include "gd.ch"
|
|
|
|
#command WRITE <c> => FWrite( 1, <c> + CHR( 13 ) + CHR( 10 ) )
|
|
#command OutHTML <c> => WRITE <c>
|
|
|
|
PROCEDURE Main( ... )
|
|
|
|
LOCAL cPar
|
|
LOCAL aParams := hb_aParams()
|
|
LOCAL cQuery := GetEnv( "QUERY_STRING" )
|
|
LOCAL hParams := { => }
|
|
|
|
LOCAL cImg, nPt, nWidth, nHeight, cPhoto
|
|
|
|
// LOCAL cText
|
|
|
|
IF Empty( aParams )
|
|
IF ! Empty( cQuery )
|
|
hParams := GetVars( cQuery )
|
|
ENDIF
|
|
ELSE
|
|
hParams := GetParams( aParams )
|
|
ENDIF
|
|
|
|
//-----------------------------------------------------------------------------------------
|
|
|
|
// Gestione parametri
|
|
IF ! Empty( hParams )
|
|
FOR EACH cPar IN hParams:Keys
|
|
|
|
DO CASE
|
|
CASE cPar == "txt"
|
|
// cText := hb_hGet( hParams, cPar )
|
|
|
|
CASE cPar == "img"
|
|
cImg := hb_hGet( hParams, cPar )
|
|
|
|
CASE cPar == "photo"
|
|
cPhoto := hb_hGet( hParams, cPar )
|
|
|
|
CASE cPar == "width"
|
|
nWidth := Val( hb_hGet( hParams, cPar ) )
|
|
|
|
CASE cPar == "height"
|
|
nHeight := Val( hb_hGet( hParams, cPar ) )
|
|
|
|
CASE cPar == "pt"
|
|
nPt := Val( hb_hGet( hParams, cPar ) )
|
|
|
|
ENDCASE
|
|
NEXT
|
|
ENDIF
|
|
|
|
//__OutDebug( cQuery, ValToPrg( hParams ) )
|
|
|
|
//-----------------------------------------------------------------------------------------
|
|
//hb_default( @cText, "Testo di Prova" )
|
|
hb_default( @nPt, 30 )
|
|
|
|
IF cImg != NIL
|
|
//OutJpg( cImg, nPt )
|
|
OutPhoto( cImg, nWidth, nHeight )
|
|
|
|
ELSEIF cPhoto != NIL
|
|
StartHTML()
|
|
//OutHTML ValToPrg( hParams ) + "<br>"
|
|
//OutHTML ValToPrg( cParams ) + "<br>"
|
|
//OutHTML ValToPrg( cQuery ) + "<br>"
|
|
//OutHTML "<img src='test_out.exe?img=" + cPhoto + "&width=" + hb_ntos( nWidth ) + "&height=" + hb_ntos( nHeight ) + "'>" + "<br>"
|
|
OutHTML "<table border=1>"
|
|
OutHTML "<tr><td align='center'>"
|
|
OutHTML "<img src='test_out.exe?img=" + cPhoto + "'>" + "<br>"
|
|
OutHTML "</td></tr>"
|
|
OutHTML "<tr><td align='center'>"
|
|
OutHTML "<img src='test_out.exe?img=" + cPhoto + ;
|
|
iif( nWidth != NIL , "&width=" + hb_ntos( nWidth ) , "" ) + ;
|
|
iif( nHeight != NIL, "&height=" + hb_ntos( nHeight ), "" ) + ;
|
|
"'>" + "<br>"
|
|
OutHTML "</td></tr>"
|
|
OutHTML "<tr><td align='center'>"
|
|
OutHTML cPhoto
|
|
OutHTML "</td></tr>"
|
|
OutHTML "</table>"
|
|
OutHTML "<br>"
|
|
//OutHTML "<img src='test_out.exe?img=" + cText + "_2&pt=" + hb_ntos( nPt ) + "'>" + "<br>"
|
|
//OutHTML OS() + "<br>"
|
|
//OutHTML iif( OS_ISWINNT(), "WIN NT", "NON WIN NT" ) + "<br>"
|
|
EndHTML()
|
|
ELSE
|
|
StartHTML()
|
|
EndHTML()
|
|
ENDIF
|
|
|
|
RETURN
|
|
|
|
PROCEDURE StartHTML( cTitle )
|
|
|
|
hb_default( @cTitle, "" )
|
|
|
|
WRITE 'content-type: text/html'
|
|
WRITE 'Pragma: no-cache'
|
|
WRITE Chr( 13 ) + Chr( 10 )
|
|
WRITE "<html>"
|
|
WRITE "<head>"
|
|
WRITE "<title>" + cTitle + "</title>"
|
|
WRITE "</head>"
|
|
WRITE "<body>"
|
|
|
|
RETURN
|
|
|
|
PROCEDURE EndHTML()
|
|
|
|
WRITE "</body>"
|
|
WRITE "</html>"
|
|
|
|
RETURN
|
|
|
|
// per windows: SET GDFONTPATH=%WINDIR%\fonts
|
|
// per linux : export GDFONTPATH=/usr/share/fonts/default/TrueType
|
|
|
|
PROCEDURE OutPhoto( cPhoto, nWidth, nHeight )
|
|
|
|
LOCAL cType
|
|
|
|
LOCAL oImage := GDImage():LoadFromFile( cPhoto )
|
|
|
|
IF nWidth != NIL .AND. nHeight != NIL
|
|
oImage:Resize( nWidth, nHeight )
|
|
ELSEIF nWidth != NIL .AND. nHeight == NIL
|
|
nHeight := oImage:Height() * ( nWidth / oImage:Width() )
|
|
oImage:Resize( nWidth, nHeight )
|
|
ELSEIF nWidth == NIL .AND. nHeight != NIL
|
|
nWidth := oImage:Width() * ( nHeight / oImage:Height() )
|
|
oImage:Resize( nWidth, nHeight )
|
|
ENDIF
|
|
|
|
//__OutDebug( hb_dumpvar( oImage ) )
|
|
|
|
WRITE 'content-type: ' + oImage:cMime + Chr( 13 ) + Chr( 10 )
|
|
cType := oImage:cType
|
|
|
|
DO CASE
|
|
CASE cType == "jpeg"
|
|
oImage:OutputJpeg()
|
|
CASE cType == "gif"
|
|
oImage:OutputGif()
|
|
CASE cType == "png"
|
|
oImage:OutputPng()
|
|
ENDCASE
|
|
|
|
RETURN
|
|
|
|
PROCEDURE OutJpg( cText, nPitch )
|
|
|
|
LOCAL cPath := GetEnv( "WINDIR" ) + "\fonts\"
|
|
LOCAL oI
|
|
|
|
// LOCAL cyan
|
|
LOCAL blue
|
|
LOCAL aSize, nWidth, nHeight, nX, nY
|
|
LOCAL cFont := cPath + "verdana.ttf"
|
|
|
|
hb_default( @cText , "Sample TEXT" )
|
|
hb_default( @nPitch, 30 )
|
|
|
|
/* Create an image in memory */
|
|
oI := GDImage( 400, 100 )
|
|
|
|
/* Allocate background */
|
|
// cyan := oI:SetColor( 0, 255, 255 )
|
|
|
|
/* Allocate drawing color */
|
|
// blue := oI:SetColor( 0, 0, 200 )
|
|
|
|
//oI:SetTransparent( blue )
|
|
oI:SetFontName( cFont )
|
|
oI:SetFontPitch( nPitch )
|
|
//__OutDebug( oI:GetFTFontHeight() )
|
|
aSize := oI:GetFTStringSize( cText )
|
|
nWidth := aSize[ 1 ]
|
|
nHeight := aSize[ 2 ]
|
|
nX := aSize[ 3 ]
|
|
nY := aSize[ 4 ]
|
|
oI:Resize( nWidth, nHeight )
|
|
|
|
|
|
/* Allocate drawing color */
|
|
blue := oI:SetColor( 0, 0, 200 )
|
|
oI:SetFontName( cPath + "verdana.ttf" )
|
|
oI:SetFontPitch( nPitch )
|
|
oI:SayFreeType( 0 - nX, 0 + nHeight - nY, cText, , , 0, blue )
|
|
//oI:SayFreeType( 0, 0, cText, , , 0, blue )
|
|
|
|
//oI:Resize( nWidth, nHeight )
|
|
//__OutDebug( "prima", oI:Width(), oI:Height() )
|
|
//oI:Resize( 60, 40 )
|
|
//__OutDebug( "dopo", oI:Width(), oI:Height() )
|
|
|
|
//oI:SetFontLarge()
|
|
//oI:SetColor( blue )
|
|
//oI:Say( 0, 0, cText )
|
|
|
|
WRITE 'content-type: image/jpeg' + Chr( 13 ) + Chr( 10 )
|
|
|
|
oI:OutputJpeg()
|
|
|
|
RETURN
|
|
|
|
FUNCTION GetVars( cFields, cSeparator )
|
|
|
|
LOCAL hHashVars := { => }
|
|
LOCAL aField, cField, aFields
|
|
LOCAL cName, xValue
|
|
|
|
hb_default( @cSeparator, "&" )
|
|
|
|
aFields := HB_RegExSplit( cSeparator, cFields )
|
|
|
|
FOR EACH cField in aFields
|
|
aField := HB_RegexSplit( "=", cField, 2 )
|
|
IF Len( aField ) != 2
|
|
LOOP
|
|
ENDIF
|
|
|
|
cName := LTrim( aField[ 1 ] )
|
|
xValue := UrlDecode( aField[ 2 ] )
|
|
|
|
// Tracelog( "cName, xValue", cName, xValue )
|
|
|
|
// is it an array entry?
|
|
IF SubStr( cName, Len( cName ) - 1 ) == "[]"
|
|
cName := SubStr( cName, 1, Len( cName ) - 2 )
|
|
|
|
hHashVars[ cName ] := { xValue }
|
|
|
|
ELSE
|
|
|
|
hHashVars[ cName ] := xValue
|
|
|
|
ENDIF
|
|
//Tracelog( "hHashVars, cName, xValue", DumpValue( hHashVars ), cName, xValue )
|
|
NEXT
|
|
//__OutDebug( hHashVars )
|
|
|
|
RETURN hHashVars
|
|
|
|
FUNCTION GetParams( aParams )
|
|
|
|
LOCAL hHashVars := { => }
|
|
LOCAL aField, cField, aFields
|
|
LOCAL cName, xValue
|
|
|
|
aFields := aParams
|
|
|
|
FOR EACH cField in aFields
|
|
aField := HB_RegexSplit( "=", cField, 2 )
|
|
IF Len( aField ) != 2
|
|
LOOP
|
|
ENDIF
|
|
|
|
cName := LTrim( aField[ 1 ] )
|
|
xValue := UrlDecode( aField[ 2 ] )
|
|
|
|
// Tracelog( "cName, xValue", cName, xValue )
|
|
|
|
// is it an array entry?
|
|
IF SubStr( cName, Len( cName ) - 1 ) == "[]"
|
|
cName := SubStr( cName, 1, Len( cName ) - 2 )
|
|
|
|
hHashVars[ cName ] := { xValue }
|
|
|
|
ELSE
|
|
|
|
hHashVars[ cName ] := xValue
|
|
|
|
ENDIF
|
|
//Tracelog( "hHashVars, cName, xValue", DumpValue( hHashVars ), cName, xValue )
|
|
NEXT
|
|
//__OutDebug( hHashVars )
|
|
|
|
RETURN hHashVars
|
|
|
|
//***********************************************************
|
|
// Decoding URL
|
|
// Can return both a string or a number
|
|
//
|
|
|
|
FUNCTION URLDecode( cStr )
|
|
|
|
LOCAL cRet := "", i, cCar
|
|
|
|
// LOCAL lNumeric := .T.
|
|
|
|
FOR i := 1 TO Len( cStr )
|
|
cCar := cStr[ i ]
|
|
|
|
DO CASE
|
|
CASE cCar == "+"
|
|
cRet += " "
|
|
|
|
CASE cCar == "%"
|
|
i++
|
|
cRet += Chr( hb_HexToNum( SubStr( cStr, i, 2 ) ) )
|
|
i++
|
|
|
|
OTHERWISE
|
|
cRet += cCar
|
|
|
|
ENDCASE
|
|
|
|
// IF (cRet[ i ] > "9" .or. cRet[ i ] < "0") .and. cRet[ i ] != "."
|
|
// lNumeric := .F.
|
|
// ENDIF
|
|
NEXT
|
|
|
|
// IF lNumeric
|
|
// cRet := Val( cRet )
|
|
// ENDIF
|
|
|
|
RETURN cRet
|
|
|
|
FUNCTION URLEncode( cStr )
|
|
|
|
LOCAL cRet := "", i, nVal, cCar
|
|
|
|
FOR i := 1 TO Len( cStr )
|
|
cCar := cStr[ i ]
|
|
DO CASE
|
|
CASE cCar == " "
|
|
cRet += "+"
|
|
|
|
CASE cCar >= "A" .AND. cCar <= "Z"
|
|
cRet += cCar
|
|
|
|
CASE cCar >= "a" .AND. cCar <= "z"
|
|
cRet += cCar
|
|
|
|
CASE cCar >= "0" .AND. cCar <= "9"
|
|
cRet += cCar
|
|
|
|
OTHERWISE
|
|
nVal := Asc( cCar )
|
|
cRet += "%" + hb_NumToHex( nVal )
|
|
ENDCASE
|
|
NEXT
|
|
|
|
RETURN cRet
|