Billed komponent

AspSmartImage kan snildt klare den opgave :)
http://www.aspsmart.com/aspSmartImage/

Eller AspImage :-)

http://www.serverobjects.com/comp/Aspimage.htm

Jeg har ASPimage, men kan ikke se hvordan det skulle virke?

undskyld, det er ASPJpeg jeg har.

ASPJpeg og også forholdsvis simpelt at få til at smide et logo på ved upload. Men leder du efter et eksempel, eller?

Fordi så skulle det nok kunne lade sig gøre at jeg kunne hjælpe dig med det :)

ASPJpeg er også*

Ja gerne et eksempel på koden der skal sættet ind i ASPJpeg. Det vil være perfekt :-)

Hey, så er jeg her igen, sorry jeg lige skriver så sent, men havde en masse arbejde. Men hvis du ville have et eksempel på hvordan du sætter et logo indover et andet billede, så kommer det her. Jeg bruger det selv og det virker glimrende :)

Men spørg endelig hvis du er i tvivl om noget.

<%
Response.Expires = 0
strPath = "C:\Inetpub\wwwroot\isoShop\productimages\product.jpg"
strPath2 = "C:\Inetpub\wwwroot\isoShop\images\logo.gif"

Set jpg = Server.CreateObject("Persits.Jpeg")
Set jpg2 = Server.CreateObject("Persits.Jpeg")

jpg.Open(strPath)
jpg2.Open(strPath2)

jpg.Interpolation = 1
jpg.Sharpen 1, 130

Jpg.Canvas.DrawImage 0, 0, Jpg2, , &HFFFFFF
jpg.SendBinary
%>

Kan du vise lidt mere kode og evt. give en forklaring på det? jeg kan ikke få det til at virke.

Hvilket upload komponent bruger du? Og kan du evt. vise mig lidt kode. Så kan jeg hurtigt strikke et eksempel sammen, som passer præcis til dig :)

Jeg bruger komponenterne ASPUpload og ASPJpeg

Ingen forslag så lukker jeg spg.

Jeg har nu prøvet en masse forskelligt, komponenten lader til at virke, jeg kan godt sætte et logo ind over et billed, men filen gemmes bare ikke.
Hvis jeg sætter response.end lige efter komandoen, vises et billed med et logo, fint nok.

Linien jpg.Sendbinary har jeg prøvet at udskifte med jpg.savebinary, men den går ikke, hvad gør jeg forkert?

<%
Response.Expires = 0
strPath = "C:\Inetpub\wwwroot\test/" & File.Filename & ""
strPath2 = "C:\Inetpub\wwwroot\testlogo/logo.jpg"

Set jpg = Server.CreateObject("Persits.Jpeg")
Set jpg2 = Server.CreateObject("Persits.Jpeg")

jpg.Open(strPath)
jpg2.Open(strPath2)

jpg.Interpolation = 1
jpg.Sharpen 1, 130

Jpg.Canvas.DrawImage 0, 0, Jpg2, , &HFFFFF
jpg.SendBinary

response.end
%>

Okay, havde overset en lille ting. save.jgep skal naturligvis rettes til save.jpg :-)

Men er det muligt med ASPJPEG at ligge et foto oveni med transparent eller et gif billed måske?

Sorry jeg ikke har skrevet, men jeg har haft travlt hele weekenden.

Ang. det med at gemme billedet, skal du bare udskifte

jpg.SendBinary

til

jpg.Save "C:\Inetpub\wwwroot\test\thumbnail.jpg"

Hvis du vil have at det skal være transparent kan du f.eks. lave et billede/logo med hvid baggrund og ændre følgende linie:

Jpg.Canvas.DrawImage 0, 0, Jpg2, , &HFFFFFF

De sidste 6 tegn, F'erne, er farvekoden for hvid. De vil sige at komponentet fjerner alt hvidt(gør dem gennemsigtige) på det billede du ligger øverst. Du kan også have et logo/billede med sort baggrund, så skal du bare ændre linien til:

Jpg.Canvas.DrawImage 0, 0, Jpg2, , &H000000

Håber det giver mening. Ellers må du lige skrive igen ;)

Det hjælper alt sammen, men synes ikke billed kvalliteten er god nok. Kan man sætte JPEG kvalliteten?

Umiddelbart kan jeg ikke ændre kvaliteten. Jeg synes også at mit logo bliver en smule pixeleret, du kan dog sætte Jpg.Quality = 100, men jeg synes ikke at kunne se en ændring.

Løsningen er nok at du laver en transparent gif, hvis komponentet kan finde ud af det.

Hvis du evt. skulle finde en løsning på dette, må du gerne skrive den her ;)

ok fint :)

...