Java acxImage

INDEX
Image format GIF



Exemple 3 generation image
acxImage Sample use for build a gif image and read data in external file.
Retunr



Source HTML
<img src="acxImage1.asp">
Retour Index



Source ASP
<%
	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 
%>
Return



Copyright © 1996..2002, R. BERTHOU. Tous droits réservés.
Dernière modification le 09 Aout 2002 09H26