watermark per immagine

[andgio76]

Ciao ragazzi sto impazzendo, devo fare un immagine e successivamente devo aggiungere un logo in alto a dx, mi potete aiutare.

ho cercato sulla rete ma ho trovato molto su php e poco su asp o asp.net, qualcuno di voi ha realizzato o usato qualche script del genere??

ciaooo

[andgio76]

nessuno mi puo dare un aiuto

grazie

[deleted_b]

sicuramente devi usare asp.net... con asp classico non ci sono funzioni per lavorare sulle immagini

[andgio76]

grazie mille, ma non sai qualche script in asp.net?

[Santino83_02]

Originariamente inviato da andgio76
grazie mille, ma non sai qualche script in asp.net?

esisterebbe il forum di asp.net

[LulaMae]

Puoi farlo con ASP classico se hai la disponibilità del componente aspjpeg (disponibile su un noto provider). Esempio con una PNG 256x256:

Jpeg.Open Path
If stamp_img = 1 Then ' In alto a sinistra
X = 0
Y = 0
Elseif stamp_img = 2 Then ' In alto a destra
X = Jpeg.Width - 256 ' Larghezza
Y = 0
Elseif stamp_img = 3 Then ' In basso a sinistra
X = 0
Y = Jpeg.Height - 256 ' Altezza
Elseif stamp_img = 4 Then ' In basso a destra
X = Jpeg.Width - 256 ' Larghezza
Y = Jpeg.Height - 256 ' Altezza
End If
Jpeg.Canvas.DrawPNG X, Y, (Server.MapPath("/tua_cartella_immagine_watermark/tua_immagine_watermark.png"))
Jpeg.Save (percorso_dove_salvare & "/" & nome_immagine)

[andgio76]

dimenticavo, io ho un server dedicato, ma questo componente che mi dici tu dove lo trovo è gratis?

[LulaMae]

Copia il codice sotto in un file nomechetipare.asp:

######################################

<%
' Creiamo la lista dei componenti da controllare !
' Potete aggiungere tutti quelli che volete nel formato
' ListaCOM(x) = Array("nome_componente","nome_componente.chiamata_ componente")

Dim ListaCOM(41)
ListaCOM(0) = Array( "AB Mailer","ABMailer.Mailman" )
ListaCOM(1) = Array( "ABC Upload","ABCUpload4.XForm" )
ListaCOM(2) = Array( "ActiveFile","ActiveFile.Post" )
ListaCOM(3) = Array( "ActiveX Data Object","ADODB.Connection" )
ListaCOM(4) = Array( "Adiscon SimpleMail","ADISCON.SimpleMail.1" )
ListaCOM(5) = Array( "ASP HTTP","AspHTTP.Conn" )
ListaCOM(6) = Array( "ASP Image","AspImage.Image" )
ListaCOM(7) = Array( "ASP Mail","SMTPsvg.Mailer" )
ListaCOM(8) = Array( "ASP Simple Upload","ASPSimpleUpload.Upload" )
ListaCOM(9) = Array( "ASP Smart Cache","aspSmartCache.SmartCache" )
ListaCOM(10) = Array( "ASP Smart Mail","aspSmartMail.SmartMail" )
ListaCOM(11) = Array( "ASP Smart Upload","aspSmartUpload.SmartUpload" )
ListaCOM(12) = Array( "ASP Tear","SOFTWING.ASPtear" )
ListaCOM(13) = Array( "ASP Thumbnailer","ASPThumbnailer.Thumbnail" )
ListaCOM(14) = Array( "ASP WhoIs","WhoIs2.WhoIs" )
ListaCOM(15) = Array( "ASPSoft NT Object","ASPSoft.NT" )
ListaCOM(16) = Array( "ASPSoft Upload","ASPSoft.Upload" )
ListaCOM(17) = Array( "CDO NTS","CDONTS.NewMail" )
ListaCOM(18) = Array( "Chestysoft Image","csImageFile.Manage" )
ListaCOM(19) = Array( "Chestysoft Upload","csASPUpload.Process" )
ListaCOM(20) = Array( "Dimac JMail","JMail.Message" )
ListaCOM(21) = Array( "Distinct SMTP","DistinctServerSmtp.SmtpCtrl" )
ListaCOM(22) = Array( "Dundas Mailer","Dundas.Mailer" )
ListaCOM(23) = Array( "Dundas Upload","Dundas.Upload.2" )
ListaCOM(24) = Array( "Dynu Encrypt","Dynu.Encrypt" )
ListaCOM(25) = Array( "Dynu HTTP","Dynu.HTTP" )
ListaCOM(26) = Array( "Dynu Mail","Dynu.Email" )
ListaCOM(27) = Array( "Dynu Upload","Dynu.Upload" )
ListaCOM(28) = Array( "Dynu WhoIs","Dynu.Whois" )
ListaCOM(29) = Array( "Easy Mail","EasyMail.SMTP.5" )
ListaCOM(30) = Array( "File System Object","Scripting.FileSystemObject" )
ListaCOM(31) = Array( "Ticluse Teknologi HTTP","InteliSource.Online" )
ListaCOM(32) = Array( "Last Mod","LastMod.FileObj" )
ListaCOM(33) = Array( "Microsoft XML Engine","Microsoft.XMLDOM" )
ListaCOM(34) = Array( "Persits ASP JPEG","Persits.Jpeg" )
ListaCOM(35) = Array( "Persits ASPEmail","Persits.MailSender" )
ListaCOM(36) = Array( "Persits ASPEncrypt","Persits.CryptoManager" )
ListaCOM(37) = Array( "Persits File Upload","Persits.Upload.1" )
ListaCOM(38) = Array( "SMTP Mailer","SmtpMail.SmtpMail.1" )
ListaCOM(39) = Array( "Soft Artisans File Upload","SoftArtisans.FileUp" )
ListaCOM(40) = Array( "Image Size", "ImgSize.Check" )
ListaCOM(41) = Array( "Microsoft XML HTTP", "Microsoft.XMLHTTP" )

' Creiamo la funzione per vedere quali di questi sono attivi

Function attiva( comIdentity )
On Error Resume Next
attiva = False
Err = 0
Set xTestObj = Server.CreateObject( comIdentity )
If Err = 0 Then attiva = True
Set xTestObj = Nothing
Err = 0
End Function

' Creiamo la funzione per controllare i componenti e per stampare i risultati

Public Function controllaCOM()

disponibile = 0
strTxt = "<table cellpadding=3 cellspacing=3 border=0 align=center width=400>" & vbNewLine
For indice = LBound( ListaCOM ) To UBound( ListaCOM )
Provider = indice
strTxt = strTxt & vbTab & "<tr><td width=200><font face=Verdana size=2>" & ListaCOM(indice)(0) & "</font></td>"
strTxt = strTxt & "<td align=right width=20><font face=Verdana size=2>[</font></td>"

If attiva( ListaCOM(indice)(1) ) Then
strTxt = strTxt & "<td align=center><font face=Verdana size=2 color=blue>Disponibile</font></td>"
disponibile = disponibile + 1
Else
strTxt = strTxt & "<td align=center><font face=Verdana size=2>No</font></td>"
End If

strTxt = strTxt & "<td align=left width=20><font face=Verdana size=2>' target=_blank></font></td></tr>" & vbNewLine
Next

strTxt = strTxt & vbTab & "<tr><td colspan=4 height=30><center><font face=Verdana size=2><font color=blue>" & disponibile & "</font> dei "
strTxt = strTxt & UBound( ListaCOM ) + 1 & " componenti della lista sono supportati.</font></center></td></tr>" & vbNewLine
controllaCOM = strTxt & "</table>" & vbNewLine
End Function

' E adesso vediamo di visualizzare il tutto
Response.Write( controllaCOM() )
%>


#################################

Fallo girare e controlla i componenti disponibili.

LulaMae

[andgio76]

disponibili ho

ActiveX Data Object

CDO NTS

File System Object

Microsoft XML Engine

Microsoft XML HTTP

come e dove posso trovare l'altro componente