Merhaba, tekrar hoş geldiniz!

Bilgi sahibi olanlarla ihtiyaç duyanları buluşturmak, farklı bakış açılarına sahip insanları bir araya getirerek birbirlerini daha iyi anlamalarını sağlamak ve herkesin bilgisini paylaşmasını sağlamak istiyoruz.

Resim Boyutu Öğrenme hk.

Admin

S.E.O
Administrator
Katılım
30 Eki 2016
Mesajlar
6,910
Beğeniler
12
Puanları
18,020
Konum
Zonguldak
Ad Soyad
Turhan Karabulut
Meslek
Emlak
Yaş
45
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
erotik film izle sex filmleri izle hdd dolum çaycuma satılık daire çaycuma satılık daire - filyos satılık daire