Neler yeni
Hoşgeldin WMLİZ Takipçisi

Tüm özelliklerimizi kullanmak için şimdi bize katılın. Kayıt olduktan sonra, konu oluştur, mevcut konulara cevaplar gönder ve üyelere itibar verebilirsiniz hızlı ve tamamen ücretsizdir, peki ne bekliyorsunuz?

Resim Boyutu Öğrenme hk.

Admin

Administrator
Yönetici
Katılım
30 Eki 2016
Mesajlar
485
Beğeniler
14
Puanları
18
Konum
Zonguldak
Web sitesi
www.facebook.com
#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)
%>