simplet eks. på aspimage

Nu kan ASPImage jo mange ting, så kunne du uddybe lidt nærmere hvad det er du ønsker ?

/Goose

Hvordan jeg simplet, kan tag et billed en som baggrund.. så lig 2 andre små billeder oven på.. plus lidt tekst??

Okay, det ville jeg ikke betegne som simpelt, så jeg er smuttet igen :o/

/Goose

Lol... jeg kigger lige på det

er der en bestemt måde det hele skal sættes op på ?

okay... jeg skal vide :

1. hvor stort er det totale færdige billede billede (xxx * yyy)
2. hvad hedder billede 1, og hvor skal det placeres img1 (0,0) ==> slutIMG (x,y)
3. hvad hedder billede 2, og hvor skal det placeres img2 (0,0) ==> slutIMG (x,y)
4. hvad skal der stå, og hvor ? text (0,0) ==> slutIMG (x,y)

desuden... kommer det nok til at koste flere point end 15 !!!!!!!!!!!!!!

ca. 180x200.. ved jeg ik.. cirka midt på..

tjae

jeg roder lige med det.... at indsætte de 2 pics er ikke svært...

oki... det her indsætter 2 billeder

<%
    Set pip1 = Server.CreateObject("AspImage.Image")
    pip1.LoadImage Server.MapPath("img1.jpg")
    pip1.GetImageFileSize Server.MapPath("img1.jpg") , pip1_maxX, pip1_maxY
    pip1_x = 50
    pip1_y = 0
   
    Set pip2 = Server.CreateObject("AspImage.Image")
    pip2.LoadImage Server.MapPath("img2.jpg")
    pip2.GetImageFileSize Server.MapPath("img2.jpg") , pip2_maxX, pip2_maxY
    pip2_x = 400
    pip2_y = 0

    Set Image = Server.CreateObject("AspImage.Image")
    Image.MaxY = 300
    Image.MaxX = 800
   

    For X = pip1_x to pip1_maxX + pip1_x
        For Y = pip1_y to pip1_maxY + pip1_y
            x_pos = X - pip1_x
            y_pos = Y - pip1_y
            intColor = pip1.GetPixel( x_pos , y_pos )
            Image.Setpixel X,Y,intColor
        Next
    Next
   
    For X = pip2_x to pip2_maxX + pip2_x
        For Y = pip2_y to pip2_maxY + pip2_y
            x_pos = X - pip2_x
            y_pos = Y - pip2_y
            intColor = pip2.GetPixel( x_pos , y_pos )
            Image.Setpixel X,Y,intColor
        Next
    Next   
   
   
    Image.ImageFormat = 1 'JPG = 1, BMP = 2, PNG = 3
    Response.BinaryWrite Image.Image
%>

Med Text:

<%
    Set pip1 = Server.CreateObject("AspImage.Image")
    pip1.LoadImage Server.MapPath("img1.jpg")
    pip1.GetImageFileSize Server.MapPath("img1.jpg") , pip1_maxX, pip1_maxY
    pip1_x = 50
    pip1_y = 0
   
    Set pip2 = Server.CreateObject("AspImage.Image")
    pip2.LoadImage Server.MapPath("img2.jpg")
    pip2.GetImageFileSize Server.MapPath("img2.jpg") , pip2_maxX, pip2_maxY
    pip2_x = 400
    pip2_y = 0

    Set Image = Server.CreateObject("AspImage.Image")
    Image.MaxY = 300
    Image.MaxX = 800
   

    For X = pip1_x to pip1_maxX + pip1_x
        For Y = pip1_y to pip1_maxY + pip1_y
            x_pos = X - pip1_x
            y_pos = Y - pip1_y
            intColor = pip1.GetPixel( x_pos , y_pos )
            Image.Setpixel X,Y,intColor
        Next
    Next
   
    For X = pip2_x to pip2_maxX + pip2_x
        For Y = pip2_y to pip2_maxY + pip2_y
            x_pos = X - pip2_x
            y_pos = Y - pip2_y
            intColor = pip2.GetPixel( x_pos , y_pos )
            Image.Setpixel X,Y,intColor
        Next
    Next   
   
    'TEXT, TEXT, TEXT, TEXT, TEXT, TEXT, TEXT,
    Image.FontColor = vbGreen
    Image.Italic = True
    Image.Bold = True
    Image.FontName = "Arial"
    Image.FontSize = 25
    Image.PadSize = 10
    strMessage = "SPASSSSERRRRRR"
   
    TextLengde = Image.TextWidth (strMessage)
    TextHojde  = Image.TextHeight (strMessage)
   
    Text_X_Nulpunkt = 400 - TextLengde/2
    Text_Y_Nulpunkt = 150 - TextHojde/2
   
    Image.TextOut strMessage, Text_X_Nulpunkt, Text_Y_Nulpunkt, true
   
    Image.ImageFormat = 1 'JPG = 1, BMP = 2, PNG = 3
    Response.ContentType = "image/jpeg"
    Response.BinaryWrite Image.Image
%>

tjek evt...

http://www.mdk-photo.com/pip

hehe... den der "SPASSSSERRRRRR" text er kun for sjov.... :-)

man skulle jo skrive et eller andet

Jeg kan vel ik få dig til at sæt kommentarer ved det hele.. for, forstår ik meget af, hvad de forskellige gør.. eller hvordan de virker.. :(

jo... skriver lige nogle comments

Hvis du vil "kalde" scriptet ude fra... fx <img src="pip.asp">
kan du evt. bruge Querystring til at indsætte elementerne

<img src="pip.asp? img1=img1.jpg & img1x=50 & img2x=0 & text=HEJSA">
inde i scriptet erstatter du så de definerede værdier jeg har sat...
fx
pip1_x = 50 med
pip1_x = request.querystring("img1x")

og

strMessage = "SPASSSSERRRRRR" med
strMessage = request.querystring("text")


på den måde kan du lave et mere dynamisk billede...
hvis ikke du gør det... kan du jo ligså godt lave det hele i paint !!!
<%

    ' pip = picture in picture
    ' start komponenten, og åben billede 1
    Set pip1 = Server.CreateObject("AspImage.Image")
    pip1.LoadImage Server.MapPath("img1.jpg")
   
    'get the dimmensions of pip 1,
    ' img1.jpg kan erstattes med reqeust("img1")
    pip1.GetImageFileSize Server.MapPath("img1.jpg") , pip1_maxX, pip1_maxY
   
    'definer indsættelses placering af pip1
    pip1_x = 50
    pip1_y = 0
   
    ' SAMME -----------------------------------------
    Set pip2 = Server.CreateObject("AspImage.Image")
    pip2.LoadImage Server.MapPath("img2.jpg")
    pip2.GetImageFileSize Server.MapPath("img2.jpg") , pip2_maxX, pip2_maxY
    pip2_x = 400
    pip2_y = 0

    Set Image = Server.CreateObject("AspImage.Image")
    Image.MaxY = 300
    Image.MaxX = 800
    ' SAMME -----------------------------------------

    ' Løb alle X igennem hvis billedet fx er 300 bred med offset pip1_x
    For X = pip1_x to pip1_maxX + pip1_x
        ' Løb alle Y igennem hvis billedet fx er 300 højt med offset pip1_y
        For Y = pip1_y to pip1_maxY + pip1_y
            ' x_pos og y_pos er koordinater i pip1 0,0 til fx 300,300
            x_pos = X - pip1_x
            y_pos = Y - pip1_y
           
            ' hent farven som står skrevet på koordinatet i pip1
            intColor = pip1.GetPixel( x_pos , y_pos )
            Image.Setpixel X,Y,intColor
        Next
    Next
   
    ' SAMME ------------------
    For X = pip2_x to pip2_maxX + pip2_x
        For Y = pip2_y to pip2_maxY + pip2_y
            x_pos = X - pip2_x
            y_pos = Y - pip2_y
            intColor = pip2.GetPixel( x_pos , y_pos )
            Image.Setpixel X,Y,intColor
        Next
    Next   
    ' SAMME -------------------
   
   
    'TEXT, TEXT, TEXT, TEXT, TEXT, TEXT, TEXT,
    Image.FontColor = vbGreen
    Image.Italic = True
    Image.Bold = True
    Image.FontName = "Arial"
    Image.FontSize = 25
    Image.PadSize = 10
    strMessage = "SPASSSSERRRRRR"
   
    ' find ud af hvor stort område som skal bruges til text
    TextLengde = Image.TextWidth (strMessage)
    TextHojde  = Image.TextHeight (strMessage)
   
    ' beregn et nulpunkt sådan at 150,400 er centrum af teksten
    Text_X_Nulpunkt = 400 - TextLengde/2
    Text_Y_Nulpunkt = 150 - TextHojde/2
   
    ' indsæt teksten
    Image.TextOut strMessage, Text_X_Nulpunkt, Text_Y_Nulpunkt, true
   
    ' bestem filformat
    Image.ImageFormat = 1 'JPG = 1, BMP = 2, PNG = 3
   
    ' indstil TCP headeren til at sende et billede til brugeren
    Response.ContentType = "image/jpeg"
   
    ' print billedet til brugeren direkte til browseren
    Response.BinaryWrite Image.Image
%>

nu var det mere for at lære det at kende.. da jeg skal kører lidt fra database, lidt fra browser.. og lidt mere på et senere tidspunkt.. derfor :)

(*_*)

men du må sku gerne give en ordentlig slat for al den kode ;-)