ASP image demo

Her er et der laver et \"counter\" image...

Set Image = Server.CreateObject(\"AspImage.Image\")
    Image.PadSize = 0
    Image.MaxX = 90
    Image.MaxY = 20
   
    xCoordinate = 0
   
    for i = 1 to countEmpty
        path = Server.MapPath(\"/pictures/digits/0.jpg\")
        retval = Image.AddImage(path, xCoordinate, 0)
        xCoordinate = xCoordinate + 15
    next
   
    for i = 1 to countHits
        theNumber = left(hits,1)
        path = Server.MapPath(\"/pictures/digits/\" & theNumber & \".jpg\")
        retval = Image.AddImage(path, xCoordinate, 0)
        xCoordinate = xCoordinate + 15
       
        tempCount = len(hits)
        tempCount = tempCount - 1
        hits = right(hits,tempCount)
    next
   
    Image.FileName = Server.MapPath(\"pictures/count.jpg\")
 
    Response.ContentType = \"image/jpeg\"
    Response.BinaryWrite Image.Image

tdaugaard > Kigger lige på det....

En lille forklaring.

.AddImage tilføjer et billede til dit \"billede\" som ASPImage laver. .lidt ligesom CTRL+SHIFT+E i PSP (indsætter i eksisterende bilelde) på #, # koords.

Du skal lige huske på at det eksempel her kræver at du har de små billeder der danner hvert tal, men det vidste du nok godt ;-)

hm, og hvis man så skal fixe et billede hva skal stien så være ?

fixe ? (jeg er ikke helt med..)

\' Stien hvor den gemmer billedet
Image.FileName = Server.MapPath(\"pictures/count.jpg\")

Image.Save mener jeg bruges til at gemme det, men hvis du bruger .BinaryWrite Image.Image så smider den bare billedet videre til browseren (hvor du f.eks har brugt <img src=\"noget.asp\">

tdaugaard -> Hm, fatter ikke så meget af det eksempel der.....:-/ Kan du ikke lige lave et mere \"simpelt\" et.....og sende det til bjarke@bekhoj.dk

hmm .. hvad er det du skal bruge det til ? det er lidt svært bare at lave en demo

tdaugaard -> Aner stort set intet om asp image....men er det ikke noget med at du kan f. eks <img src=\"image.asp?Overskrift\"> også kan du så ændre overskrift til noget andet.....

Jo .. jeg prøver lige at lave et eksempel.

Det her er et af de eksempler der følger med ASPImage 2.0:

<%

  rem **********************************************************************
  rem *
  rem * Simple Image creation that demos using BinaryWrite to write
  rem *  the image directly to the client
  rem *
  rem **********************************************************************


  rem **********************************************************************
  rem * Instantiate the object
  rem **********************************************************************
  Response.ContentType = \"image/jpeg\"
  \'Response.ContentType = \"image/png\"


  rem **********************************************************************
  rem * Instantiate the object
  rem **********************************************************************
  Set Image = Server.CreateObject(\"AspImage.Image\")

  rem **********************************************************************
  rem * Set various font parameters
  rem **********************************************************************
  Image.FontColor = vbYellow
  Image.Italic = True
  Image.Bold = True
  Image.FontName = \"Arial\"
  Image.FontSize = 12
  Image.PadSize = 10

  rem **********************************************************************
  rem * Calculate the size of the text info is and set the image to this size
  rem * (this has to be done since we want to fill the area with a gradient)
  rem * This demonstrates a multi-line text string
  rem **********************************************************************
  strMessage = \"Steve\'s Widget Factory\" & vbCrLf & \"123 Park Avenue\" & _
              VbCrLf & \"Anytown, USA 012345\"

  Image.MaxX = Image.TextWidth (strMessage)
  Image.MaxY = Image.TextHeight (strMessage)

  rem **********************************************************************
  rem * Create a one way gradient that starts with Red and ends with White
  rem **********************************************************************
  Image.GradientOneWay vbRed, vbWhite, 0

  rem **********************************************************************
  rem * Print our text to the image at the current X,Y position using 3D
  rem **********************************************************************
  Image.TextOut strMessage, Image.X, Image.Y, true

  \'Image.ImageFormat = 3 \' For PNG

  Response.BinaryWrite Image.Image

  Set Image = nothing
%>

Takker :-)

Det var så lidt :-)

Der er også en del point til den der kan give mig et eksempel på hvordan man kan tegne en graf ( kurvediagram, søjeldiagram eller andet statistik )ved hjælp af aspimage.

Syntes lige jeg ville nævne det her, nu når der snakkes om aspimage.

jens:>
sådan noget her ? (et eksempel fra ASPImage 2.0)

<html>
<head>
<title>Welcome</title>
</head>
<body bgcolor=white>
<center>
<h2>4th Quarter Widget Sales Results<br>by Region</h2>
<p><br></p><p><br></p>
<%
  rem **********************************************************************
  rem * Instantiate the object
  rem **********************************************************************
  Set Image = Server.CreateObject(\"AspImage.Image\")


  Image.AntiAliasText = True
 
  rem **********************************************************************
  rem * Set the extents of the image
  rem **********************************************************************
  Image.MaxX = 210
  Image.MaxY = 200

  rem **********************************************************************
  rem * Now fill it with a gradient
  rem **********************************************************************
  Image.GradientTwoWay vbBlue / 2, vbWhite, 0, 1

  rem **********************************************************************
  rem * Create a hollow frame around the image
  rem **********************************************************************
  Image.BackgroundColor = vbBlue
  Image.FrameRect 15, 15, Image.MaxX - 15, Image.MaxY -20

  rem **********************************************************************
  rem * Create some graph bars
  rem **********************************************************************
  Image.BackgroundColor = vbGreen
  Image.Rectangle 30, 35, 60, 100
  Image.BackgroundColor = vbYellow
  Image.Rectangle 70, 35, 100, 130
  Image.BackgroundColor = vbBlue
  Image.Rectangle 110, 35, 140, 150
  Image.BackgroundColor = vbRed
  Image.Rectangle 150, 35, 180, 170

  rem **********************************************************************
  rem * Set the font properties up
  rem **********************************************************************
  Image.FontColor = vbBlack
  Image.Italic = False
  Image.Bold = True
  Image.FontName = \"Arial\"
  Image.FontSize = 8
  Image.PadSize = 10

  rem **********************************************************************
  rem * Put some labels on the bars
  rem **********************************************************************
  Image.TextOut \"NE\", 27, 11, false
  Image.TextOut \"NW\", 65, 11, false
  Image.TextOut \"SE\", 107, 11, false
  Image.TextOut \"SW\", 145, 11, false

  Image.FontColor = vbBlack
  Image.TextOut \"100\", 25, 90, false
  Image.TextOut \"130\", 65, 120, false
  Image.TextOut \"150\", 105, 140, false
  Image.TextOut \"170\", 145, 160, false


  rem **********************************************************************
  rem * Place a label at the bottom and center it
  rem **********************************************************************
  Image.Italic = True
  Image.FontColor = vbRed
  Image.PadSize = 0
  Image.FontSize = 10
  Image.Bold = True
  strLabel = \"Widget Sales by Region\"
  Image.TextOut strLabel, (Image.MaxX / 2) - (Image.TextWidth(strLabel) / 2), Image.MaxY - 18, false

  rem **********************************************************************
  rem * Set the filename and save
  rem *  NOTE: You should gen the filename dynamically for multiuser usage
  rem **********************************************************************
  Image.FileName = \"d:\\inetpub\\wwwroot\\images\\graph1.jpg\"
  Image.SaveImage

  Set Image = nothing

  rem **********************************************************************
  rem * Write the <img src> tag out for the browser to pick up
  rem **********************************************************************
  Response.Write \"<img src=\"\"/images/graph1.jpg\"\"><br>\"

  rem **********************************************************************
  rem * These properties give eval/registration information for the component
  rem **********************************************************************
  rem Response.Write \"<p>Expires: \" & Image.Expires
  rem Response.Write \"<br>Version: \" & Image.Version
  rem Response.Write \"<br>Registered To: \" & Image.RegisteredTo


%>
</center>
</body>
</html>

flg. viser et søjlediagram.
det ser lidt overkill ud, men man kan nok lave noget SUb sjov til at lave en søjle hvor man siger at f.eks. MAX højde skal være 100 pixels, men kun 37% af den skal vises (dvs. 37 pixels her.)