--- title: "ASPSmartImage" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/94780-aspsmartimage" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "danieleinad" published: "2004-01-14T14:06:10.000Z" updated: "2004-01-19T00:18:27.000Z" replies: 16 views: 608 page: 1 pages: 1 language: "sv-SE" site: "webForum — webforum.nu" rights: "Upphovsrätten till varje inlägg tillhör dess författare." attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/94780-aspsmartimage" --- # ASPSmartImage ## #1 — danieleinad, 2004-01-14T14:06Z Jag vill lägga en kort textsnutt på uppladdad bild, kolla om den är över 100kB och om så är fallet komprimera den till 100kB, samt avslutningsvis skapa en 50pxl hög thumbnail. Jag har aldrig pysslat med ASP och får inte ordning på det, någon som har en kodsnutt att bidra med? Tack på förhand! MVH Daniel Permalänk: https://www.webforum.nu/p/94780 ## #2 — Observer, 2004-01-14T14:11Z Finns bra dokumentation och exempel på deras website: Dokumentationen finns här: Permalänk: https://www.webforum.nu/p/1251988 ## #3 — danieleinad, 2004-01-14T14:18Z Tack! Jag får dock inte till det, jag sparar nedanstående i filen bild.asp \<% mySmartImage.OpenFile "/images/minbild.jpg" mySmartImage.FontFace = "Arial" mySmartImage.FontBold = true mySmartImage.FontItalic = true mySmartImage.FontColor = "FFFFFF" mySmartImage.AddText "Mintext", "CENTER", "CENTER" mySmartImage.SaveFile "/images/minbild2.jpg" %\> men när jag kör filen får jag felmeddelande: Körningsfel i Microsoft VBScript fel '800a01a8' Objekt krävs.: 'mySmartImage' /bild.asp, rad 3 Permalänk: https://www.webforum.nu/p/1251990 ## #4 — @nders, 2004-01-14T14:39Z Har du verkligen instansierat objektet? Permalänk: https://www.webforum.nu/p/1252001 ## #5 — danieleinad, 2004-01-14T14:48Z Vet inte riktigt, allt jag har gjort finns mellan \<% %\> Permalänk: https://www.webforum.nu/p/1252009 ## #6 — @nders, 2004-01-14T14:50Z Läs det som står precis under **Syntax** här: Permalänk: https://www.webforum.nu/p/1252012 ## #7 — danieleinad, 2004-01-14T16:15Z Funkar fint! Men det gör inte det här; OriginalWidth = mySmartImage.OriginalWidth OriginalHeight = mySmartImage.OriginalHeight xx = OriginalWidth-20 yy = OriginalHeight-20 mySmartImage.AddText "Mintext", "xx", "yy" Hur ska jag skriva för att göra xx och yy till variabler med ett värde på 20 mindre än bildens bredd resp höjd? Jag vill alltså placera texten i nedre högra hörnet, och vill inte använda RIGHT resp BOTTOM då jag vill placera vit text på en pixels avstånd från samma text fast i svart. Tack! Permalänk: https://www.webforum.nu/p/1252082 ## #8 — @nders, 2004-01-14T16:45Z Jag är inte helt säker på vad du menar, men: ``` mySmartImage.AddText "Boning.se", xx, yy ``` Permalänk: https://www.webforum.nu/p/1252108 ## #9 — danieleinad, 2004-01-14T16:48Z WOW! Jag hade ju nästan gjort rätt själv! Permalänk: https://www.webforum.nu/p/1252114 ## #10 — @nders, 2004-01-14T16:55Z Japp, nästan! :) Nästa gång blir det helt rätt? :) Mvh Permalänk: https://www.webforum.nu/p/1252117 ## #11 — danieleinad, 2004-01-14T17:00Z Mitt webbhotell bjuder varken på gd eller imagemagick, så det är därför jag tvingas ut i asp-skogen för att kunna lägga till text och storleksändra bilder. Men, när bilden har kopierats till min server i php-filen, hur kallar jag då på denna bild.asp-fil för att få bilderna modiferade? Det borde finnas något bättre sätt än att META-refresha till bild.asp väl? Permalänk: https://www.webforum.nu/p/1252120 ## #12 — @nders, 2004-01-14T17:06Z Din fråga är alltså, hur du med php kallar på asp-filen? I så fall; sök gärna på *location* i php-forumet. Du kan sedan med **response.redirect** kasta dig vidare från asp-filen när du är klar. Mvh Permalänk: https://www.webforum.nu/p/1252124 ## #13 — Danielkun, 2004-01-15T04:27Z danieleinad, Hur fick du ditt webhotel att installera AspSmartImage? ahde dom det redan installerat? Permalänk: https://www.webforum.nu/p/1252390 ## #14 — danieleinad, 2004-01-15T09:12Z De hade det redan installerat, och webbhotellet ifråga är WA-data. Jag ville iofs hellre ha GD i php, men AspSmartImage kanske är bättre? Permalänk: https://www.webforum.nu/p/1252474 ## #15 — Asa, 2004-01-15T11:15Z **sidan.asp** ```
``` **thumb.asp** ``` <% Set oSmartImage = Server.CreateObject("aspSmartImage.SmartImage") oSmartImage.OpenFile (Request("pic")) oSmartImage.Quality = 100 If Request("hojd") <> "" Then oSmartImage.Resample Request("bredd"),Request("hojd") Else oSmartImage.Resample Request("bredd"),0 End If oSmartImage.Download Set oSmartImage = Nothing %> ``` Man måste inte han med både höjd och bredd i exemplet sidan.asp. Kanske inte det du sökte men denna koden funkar iallafall. Permalänk: https://www.webforum.nu/p/1252556 ## #16 — danieleinad, 2004-01-18T21:58Z Den här filen kallas genom \ och den skapar thumbnails som den ska, och förminskar även bilder till max 960 pixlars vidd, men den begränsar inte storleken till 100kB, någon som ser varför? Tack! \<% Dim Size, komp Set oSmartImage = Server.CreateObject("aspSmartImage.SmartImage") oSmartImage.OpenFile (Request("bilden")) oSmartImage.Resample 70,0 oSmartImage.Quality = 99 oSmartImage.SaveFile (Request("bildensm")) oSmartImage.Download Set oSmartImage = Nothing Set xSmartImage = Server.CreateObject("aspSmartImage.SmartImage") xSmartImage.OpenFile (Request("bilden")) OriginalWidth = xSmartImage.OriginalWidth If OriginalWidth \> 960 Then xSmartImage.Resample 960, 0 End If xSmartImage.AddImage "bonstamp.gif", "RIGHT", "BOTTOM" komp = 100 Size = xSmartImage.Size Do While Size \> 102400 xSmartImage.Quality = komp komp = komp - 1 Loop xSmartImage.SaveFile (Request("bilden")) %\> Permalänk: https://www.webforum.nu/p/1254461 ## #17 — danieleinad, 2004-01-19T00:18Z Ser nu att xSmartImage.Size inte ändras när man ändrar xSmartImage.Quality, sår jag får resampla bilden istället, men varför funkar inte: \<% Dim sizy, komp Set oSmartImage = Server.CreateObject("aspSmartImage.SmartImage") oSmartImage.OpenFile (Request("bilden")) oSmartImage.Resample 70,0 oSmartImage.Quality = 99 oSmartImage.SaveFile (Request("bildensm")) oSmartImage.Download Set oSmartImage = Nothing Set xSmartImage = Server.CreateObject("aspSmartImage.SmartImage") xSmartImage.OpenFile (Request("bilden")) xSmartImage.Quality=99 OriginalWidth = xSmartImage.OriginalWidth OriginalHeight = xSmartImage.OriginalHeight If OriginalWidth \> OriginalHeight Then If OriginalWidth \> 960 Then xSmartImage.Resample 960, 0 komp = 959 Do While sizy \> 102400 sizy = xSmartImage.Size xSmartImage.Resample komp, 0 komp - 1 Loop Else Do While sizy \> 102400 sizy = xSmartImage.Size xSmartImage.Resample OriginalWidth, 0 OriginalWidth -1 Loop End If Else If OriginalHeight \> 960 Then xSmartImage.Resample 960, 0 komp = 959 Do While sizy \> 102400 sizy = xSmartImage.Size xSmartImage.Resample 0,komp komp - 1 Loop Else Do While sizy \> 102400 sizy = xSmartImage.Size xSmartImage.Resample 0,OriginalHeight OriginalHeight -1 Loop End If End If xSmartImage.AddImage "bonstamp.gif", "RIGHT", "BOTTOM" xSmartImage.SaveFile (Request("bilden")) %\> Permalänk: https://www.webforum.nu/p/1254503 --- Tråden på webben: https://www.webforum.nu/amne/asp/94780-aspsmartimage