- 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.
şö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:
<%
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)
%>