<%
sScriptDir = Request.ServerVariables("SCRIPT_NAME")
sScriptDir = StrReverse(sScriptDir)
sScriptDir = Mid(sScriptDir, InStr(1, sScriptDir, "/"))
sScriptDir = StrReverse(sScriptDir)
' Set the virtual Directory
sPath = Server.MapPath(sScriptDir) & "\"
Set h = Server.CreateObject("javaside.Rbl.acxImage")
h.init 350, 230
' h.newImage()
' lecture du fichier
' le fichier contient la definition du fond, de l'image et le texte
h.readFile sPath & "acxImage.txt"
' chemin absolue
' actuellement il n est pas possible de placer cela dans le fichier
h.loadImage sPath & "javaside.gif", 0
' dessin du cercle
h.setColor 255, 255, 0
h.fillArc 20, 35, 170, 170, -50, 50
h.setColor 240, 240, 55
h.fillArc 20, 35, 170, 170, 0, 60
h.setColor 210, 210, 55
h.fillArc 20, 35, 170, 170, 60, 80
h.setColor 180, 180, 75
h.fillArc 20, 35, 170, 170, 140, 60
h.setColor 160, 160, 85
h.fillArc 20, 35, 170, 170, 200, 50
h.setColor 250, 10, 20
h.fillArc 21, 42, 170, 170, 250, 60
' fin du cercle
' On construit l image (paint suivant les donnees lu)
h.build()
' on genere l image 0 => GIF 1 => PNG
img = h.getArray(iFormat)
' h.saveAs( sPath & "cook2.gif")
' ---- Response format -----------
Response.Expires = 0
Response.Buffer = TRUE
Response.Clear
Response.contenttype = "image/" & imgFormat
Response.BinaryWrite img
Response.End
' ----- End Response -------------
h.clear()
Set h = nothing
%> |
|