Modifica ad img

**pietro09** · 04-10-2007, 16:07

un esempio fatto al volo
http://web.tiscali.it/archivio_esempi/zip/gdi.zip
in questo indirezzo scarico la dll che metto nella directory bin

codice:

<%@ Page Language="VB" %>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<script runat="server">

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim p_img As String = Me.Request.QueryString("p_img")
        If (Not String.IsNullOrEmpty(p_img)) AndAlso p_img = "1" Then
            returnImg()
        End If
    End Sub
    
    Private Sub returnImg()
        'immagine principale
        Dim bmp As Bitmap = img.ImgLoad("http://web.tiscali.it/archivio_esempi/immagini/h.jpg")
        img.ImgResize(bmp, 500) 'ridimensionata a 500px
        
        'logo da aggiungere
        Dim bmp1 As Bitmap = img.ImgLoad("http://web.tiscali.it/archivio_esempi/immagini/v.jpg")
        img.ImgResize(bmp1, 200) 'ridimensionata a 200px
        
        'merge senza trasparenza
        img.ImgMerge(bmp, bmp1, 0, 0, False, 1.0)
        img.ImgMerge(bmp, bmp1, 50, 50, False, 1.0)
        
        bmp1.Dispose()
        
        img.ImgSaveToResponseOutputStream(bmp)
    End Sub
</script>

<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
    <title>Pagina senza titolo</title>
</head>
<body>
    <form id="form1" runat="server">
        [img]a.aspx?p_img=1[/img]

    </form>
</body>
</html>

**ruttoloruttolo** · 04-10-2007, 16:22

Scusa, ma uso framework 2.0 o 1.1

Con 1.1 mi dà errori a + non posso...

**ruttoloruttolo** · 04-10-2007, 17:35

Ok...ci vuole il 2...

Però la trasparenza non funge...

Se metto

img.ImgMerge(bmpBase, bmpOptional, 0, 0, true, 0);

Vedo solo l'immagine di base

img.ImgMerge(bmpBase, bmpOptional, 0, 0, true, 1);
img.ImgMerge(bmpBase, bmpOptional, 0, 0, true, -1);

vedo l'immagine Optional sovrapposta all'immagine di base senza la trasparenza del colore di fondo (bianco)...

:master:

**pietro09** · 04-10-2007, 21:24

:quote: questo è quello che ottieni dal codice di sotto

è in basic, ma in c# è la stessa cosa.

codice:

<%@ Page Language="VB" %>
<%@ Import Namespace="System.Drawing" %>
<%@ Import Namespace="System.Drawing.Text" %>
<%@ Import Namespace="System.Drawing.Drawing2D" %>
<%@ Import Namespace="System.Drawing.Imaging" %>
<%@ Import Namespace="gdi" %>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<script runat="server">

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim p_img As String = Me.Request.QueryString("p_img")
        If (Not String.IsNullOrEmpty(p_img)) AndAlso p_img = "1" Then
            returnImg()
        End If
    End Sub
    
    Private Sub returnImg()
        'immagine principale
        Dim bmp As Bitmap = img.ImgLoad("http://web.tiscali.it/archivio_esempi/immagini/h.jpg")
        img.ImgResize(bmp, 500) 'ridimensionata a 500px
        
        'logo da aggiungere
        Dim bmp1 As Bitmap = img.ImgLoad("http://web.tiscali.it/archivio_esempi/immagini/v.jpg")
        img.ImgResize(bmp1, 200) 'ridimensionata a 200px
        
       
        'metto un bordo bianco di 4 px
        img.ImgBorder(bmp1, 4, Color.White)
        
        'ne faccio un clone
        Dim bmp2 As Bitmap = DirectCast(bmp1.Clone(), Bitmap)

        'la ruoto di 20°
        img.ImgRotate(bmp2, 20, Color.Transparent)
        
        'merge senza trasparenza di bmp1
        img.ImgMerge(bmp, bmp1, 340, 80, False, 1.0)
        
        'merge con trasparenza di bmp2
        img.ImgMerge(bmp, bmp2, 50, 50, False, 0.5)
        
        bmp1.Dispose()
        bmp2.Dispose()
        
        '//--------------------------------------------------------------------------------------
        '//metto la scritta "RISERVATO" al centro dell'immagine, ruotata di 45°, semitrasparente
        '//--------------------------------------------------------------------------------------
        bmp1 = img.ImgFromText("RISERVATO", Color.Transparent, New SolidBrush(Color.FromArgb(255, 170, 170, 170)), New Font("Courier New", 48, FontStyle.Bold, GraphicsUnit.Point))
        img.ImgRotate(bmp1, 45, Color.Transparent)
        img.ImgMerge(bmp, bmp1, CInt((bmp.Width - bmp1.Width) / 2.0), CInt((bmp.Height - bmp1.Height) / 2.0), False, 1.0)
        bmp1.Dispose()

        img.ImgSaveToResponseOutputStream(bmp)
        'ImgSaveToResponseOutputStream fa il dispose di bmp
    End Sub
</script>

<html xmlns="http://www.w3.org/1999/xhtml" >
<head id="Head1" runat="server">
    <title>Pagina senza titolo</title>
</head>
<body>
    <form id="form1" runat="server">
        [img]a.aspx?p_img=1[/img]

    </form>
</body>
</html>

**cassano** · 04-10-2007, 22:23

ma questa dll dove si può scaricare ???

**pietro09** · 05-10-2007, 05:34

Originariamente inviato da cassano
ma questa dll dove si può scaricare ???

da qui

http://web.tiscali.it/archivio_esempi/zip/gdi.zip

**cassano** · 05-10-2007, 08:51

Grazie....

Discussione: Modifica ad img

Strumenti discussione

Ricerca discussione

Visualizza

Permessi di invio