Resim Boyutu Öğrenme hk.

Admin

Administrator
Yönetici
Administrator
Katılım
30 Eki 2016
Mesajlar
543
Beğeniler
15
Konum
Zonguldak
#1
arkadaşlar resim boyutlarını nasıl öğrenebilirim? en-boy olarak.

Kod:
<% 
Set Jpeg = Server.CreateObject("Persits.Jpeg" ) 
Path = Server.MapPath("imgs" ) & "/delivered.jpg" 
Jpeg.Open Path 
iResimWidth = Jpeg.OriginalWidth 
iResimHeight = Jpeg.OriginalHeight 
Set Jpeg = Nothing 
%> 

<%=iResimWidth%><br>
<%=iResimHeight%><br>
şöyle bir kod var ama bu sadece hostta olan resimlerin boyutunu gösteriyor. ben internetteki herhangi bir resmin boyutunu öğrenmek istiyorum.


-----------------------------

Yukarıdaki kodun düzenlenmiş hali ihtiyacı olanların işini görebilir.

Kod:
<%
ImgURL = "http://www.pvplog.com/Resimler/OyunBanner/gw2.jpg"
 
    ON ERROR RESUME NEXT
    Dim xmlhttp
    Set xmlhttp = Server.CreateObject("MSXML2.ServerXMLHTTP")
    xmlhttp.open "GET", ImgURL, False
    xmlhttp.send
    
    If(Err.Number<>0) then
        Response.Write "Resim tespit edilemedi."
    end if
    
    ON ERROR GOTO 0
    
Set Jpeg = Server.CreateObject("Persits.Jpeg") 
   Jpeg.OpenBinary(xmlhttp.responseBody)
    
   iResimWidth = Jpeg.OriginalWidth 
   iResimHeight = Jpeg.OriginalHeight 
Set Jpeg = Nothing 
 
 
Response.Write(iResimWidth)
Response.Write("<br>")
Response.Write(iResimHeight)
%>
 
Üst Alt