<html><head><title>Image Mod</title></head>
<body>
<div align="center">
<h2>Image Modification Demo</h2>
<!--- Create AspImage Object --->
<cfobject type="COM"
name="Image"
class="AspImage.Image"
action="CREATE">
<cfscript>
vbRed="255"; vbBlue="16711680"; vbBlack="0"; vbWhite="16777215";
vbGreen="65280"; vbYellow="65535"; vbCyan="16776960"; vbMagenta="16711935";
// rem ********************************************************************
// rem *
// rem * Note: This demo uses the lanmannt.bmp file. You can change to
// rem * another BMP if you like but you'll have to modify the XY
// rem * values to fit within your BMP image or set AutoSize = true
// rem *
// rem ********************************************************************
// rem **********************************************************************
// rem * If AutoSize is false then any text that exceeds the current image
// rem * will be clipped.
// rem **********************************************************************
Image.AutoSize = false;
// rem **********************************************************************
// rem * Load a BMP. You can load JPG and BMP files
// rem **********************************************************************
Image.LoadImage("#expandpath(".")#\lanmannt.bmp");
// rem **********************************************************************
// rem * Set some font properties, set the X and Y location and write some
// rem * text out to the loaded image
// rem **********************************************************************
Image.FontName = "MS Sans Serif";
Image.FontColor = vbRed;
Image.FontSize = 6;
Image.TextOut("SteveG's Demo", 370, 57, false);
// rem **********************************************************************
// rem * Set some font properties, set the X and Y location and write some
// rem * 3D'd text out to the loaded image
// rem **********************************************************************
Image.Bold = True;
Image.FontSize = 12;
Image.X = 160;
Image.Y = 230;
Image.TextOut("ASP Improved Version", Image.X, Image.Y, true);
// rem **********************************************************************
// rem * Demostrate the fact that X has been moved forward beyond the
// rem * original 160. Just add 20 to bump it over a little
// rem **********************************************************************
Image.TextOut("X =" & Image.X, Image.X + 14, Image.Y, true);
// rem **********************************************************************
// rem * Show how to calculate the next Y value. We'll take the previous Y value
// rem * of 230 and add the TextHeight of the string XYZ to determine what our
// rem * new Y starting value should be
// rem **********************************************************************
Image.X = 160;
Image.Y = Image.Y + Image.TextHeight("XYZ");
Image.FontSize = 10;
Image.TextOut(Now, Image.X, Image.Y, false);
// rem **********************************************************************
// rem * Set the physical path for the FileName we are going to save
// rem * NOTE: You should gen the filename dynamically for multiuser usage
// rem **********************************************************************
Image.FileName = "#expandpath(".")#\lman.jpg";
// rem **********************************************************************
// rem * Save the image
// rem **********************************************************************
Image.SaveImage;
// rem **********************************************************************
// rem * Now write the <img src> tag out for the browser to pick up
// rem **********************************************************************
WriteOutput("<img src=""/images/lman.jpg""><br>");
// rem **********************************************************************
// rem * These properties give eval/registration information for the component
// rem **********************************************************************
// rem WriteOutPut("<p>Expires: " & Image.Expires);
// rem WriteOutPut("<br>Version: " & Image.Version);
// rem WriteOutPut("<br>Registered To: " & Image.RegisteredTo);
</cfscript>
</div>
</body>
</html>