12 svar · 499 visningar · startad av brw
Har ett script för att ladda upp bilder till en databas.
Är nu i behov av ett script eller någon bra (helst gratis) komponent som kan skapa små thumbnails i den storlek man förväljer till exempel.
Någon som har nå tips på en bra komponent eller om det finns nån bättre lösning.
Mycket tacksam för svar!
------------------
Ingenting är omöjligt, bara en utmaning.
Vad innebär thumbnail? Har hört det men glömt av dess betydelse...
en liten bild av den stora bilden
------------------
1 Man, 1 Million dead, The odds are just about even - Ash
Du skapar små bilder som du sedan gör klickbara för att det inte ska ta så lång tid att ladda sidan. Då kan besökaren själv välja den bild som verkar intressant och titta på den i större format.
Ingen som har några förslag?
------------------
Ingenting är omöjligt, bara en utmaning.
Den här artikeln från fenomenala 4guysfromrolla.com kanske kan vara något? Iaf det närmaste du kommer utan en komponent. Om det handlar om att minska laddningstiderna för besökare genom att visa thumbnails krävs det, mig veterligen, en komponent.
------------------
/ jeps0
Ah .. en sån där har jag redan.. den får fan duga om jag inte hittar nå annat.. det vore inte fel med en gratis komponent som fungerar tillfredsställande..
nån som vet nån bra gratis komponent?
------------------
Ingenting är omöjligt, bara en utmaning.
Jag försöker göra något liknande...du får säga till om du finner något sätt...
Jag hittade i alla fall detta inlägget som man kanske kan ändra lite på:
"Hej, det går att kolla bredden och höjden. Har hittat en lösning helt i asp utan någon komponent!
Kanske inte lika smidigt som i php...men det funkar!
Mycket kod är det i alla fall...Har modifierat koden så att det bara går med jpg filer och gif filer. Men det ska även gå med png och bmp filer om man vill det.
Kod:
--------------------------------------------------------------------------------
<%
function GetBytes(flnm, offset, bytes)
Dim objFSO
Dim objFTemp
Dim objTextStream
Dim lngSize
on error resume next
Set objFSO = CreateObject("Scripting.FileSystemObject")
' First, we get the filesize
Set objFTemp = objFSO.GetFile(flnm)
lngSize = objFTemp.Size
set objFTemp = nothing
fsoForReading = 1
Set objTextStream = objFSO.OpenTextFile(flnm, fsoForReading)
if offset > 0 then
strBuff = objTextStream.Read(offset - 1)
end if
if bytes = -1 then ' Get All!
GetBytes = objTextStream.Read(lngSize) 'ReadAll
else
GetBytes = objTextStream.Read(bytes)
end if
objTextStream.Close
set objTextStream = nothing
set objFSO = nothing
end function
function lngConvert(strTemp)
lngConvert = clng(asc(left(strTemp, 1)) + ((asc(right(strTemp, 1)) * 256)))
end function
function lngConvert2(strTemp)
lngConvert2 = clng(asc(right(strTemp, 1)) + ((asc(left(strTemp, 1)) * 256)))
end function
function gfxSpex(flnm, width, height, depth, strImageType)
dim strPNG
dim strGIF
dim strBMP
dim strType
strType = ""
strImageType = "(unknown)"
gfxSpex = False
strPNG = chr(137) & chr(80) & chr(78)
strGIF = "GIF"
strBMP = chr(66) & chr(77)
strType = GetBytes(flnm, 0, 3)
if strType = strGIF then
strImageType = "GIF"
Width = lngConvert(GetBytes(flnm, 7, 2))
Height = lngConvert(GetBytes(flnm, 9, 2))
Depth = 2 ^ ((asc(GetBytes(flnm, 11, 1)) and 7) + 1)
gfxSpex = True
else
strBuff = GetBytes(flnm, 0, -1)
lngSize = len(strBuff)
flgFound = 0
strTarget = chr(255) & chr(216) & chr(255)
flgFound = instr(strBuff, strTarget)
if flgFound = 0 then
exit function
end if
strImageType = "JPG"
lngPos = flgFound + 2
ExitLoop = false
do while ExitLoop = False and lngPos < lngSize
do while asc(mid(strBuff, lngPos, 1)) = 255 and lngPos < lngSize
lngPos = lngPos + 1
loop
if asc(mid(strBuff, lngPos, 1)) < 192 or asc(mid(strBuff, lngPos, 1)) > 195 then
lngMarkerSize = lngConvert2(mid(strBuff, lngPos + 1, 2))
lngPos = lngPos + lngMarkerSize + 1
else
ExitLoop = True
end if
loop
'
if ExitLoop = False then
Width = -1
Height = -1
Depth = -1
else
Height = lngConvert2(mid(strBuff, lngPos + 4, 2))
Width = lngConvert2(mid(strBuff, lngPos + 6, 2))
Depth = 2 ^ (asc(mid(strBuff, lngPos + 8, 1)) * 8)
gfxSpex = True
end if
end if
end function
sub test(flnm)
if right(flnm, 3)="gif" then
Width = lngConvert(GetBytes(flnm, 7, 2))
Height = lngConvert(GetBytes(flnm, 9, 2))
Depth = 2 ^ ((asc(GetBytes(flnm, 11, 1)) and 7) + 1)
else
strBuff = GetBytes(flnm, 0, -1)
lngSize = len(strBuff)
flgFound = 0
strTarget = chr(255) & chr(216) & chr(255)
flgFound = instr(strBuff, strTarget)
strImageType = "JPG"
lngPos = flgFound + 2
ExitLoop = false
do while ExitLoop = False and lngPos < lngSize
do while asc(mid(strBuff, lngPos, 1)) = 255 and lngPos < lngSize
lngPos = lngPos + 1
loop
if asc(mid(strBuff, lngPos, 1)) < 192 or asc(mid(strBuff, lngPos, 1)) > 195 then
lngMarkerSize = lngConvert2(mid(strBuff, lngPos + 1, 2))
lngPos = lngPos + lngMarkerSize + 1
else
ExitLoop = True
end if
loop
if ExitLoop = "False" then
Width = -1
Height = -1
Depth = -1
else
Height = lngConvert2(mid(strBuff, lngPos + 4, 2))
Width = lngConvert2(mid(strBuff, lngPos + 6, 2))
Depth = 2 ^ (asc(mid(strBuff, lngPos + 8, 1)) * 8)
end if
end if
a=width
b=height
response.write("BREDDEN ÄR: " &a &" HÖJDEN ÄR: " &b)
end sub
call test(server.mappath("test/kamel.jpg"))
%>
--------------------------------------------------------------------------------
Man skickar alltså in vilken bild man vill kolla längst ner vid call sub(bild).
------------------
Fredrik Klarqvist
fredrik.klarqvist@swipnet.se <A HREF="http://www.streetwise.se/fredrik/"" TARGET=_blank>www.streetwise.se/fredrik/"</A>
Hittade du något bra tillslut brw? Jag letar jag med...
Jag undrar också....
Det bästa jag kommit på är att kolla bildstorleken och ha thumbnails tex 10 % av de måtten, och ställa in denna storleken med HTML kod när bilden visas. Nackdelen är ju att hela orginalbilden laddas ändå.
Var det någon som hittade en bra komponent tillslut?
