resim boyutu öğrenme hk.

arkadaşlar resim boyutlarını nasıl öğrenebilirim? en-boy olarak.

<%
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.

Bildigimiz resim ise, paintle aç solda köşede yazıyor boyut

İnternetteki herhangi bir linkin boyutunu öğreneme bilmek için kod var mıdır?

ASP ile mi öğrenmek istiyorsunuz?

Evet

hocam internet kötü kod veremiyorumm direkt
asp de xmlhttp ile dosya çekme diye aratırsanız örnek kodlar bulursunuz.

örneğin resmi çektiğinizde resmi
resim=xmlhttp.responsebody ile resim değişkenine atayın daha sonra sizin verdiğiniz kodlarda
jpeg.open yerine jpeg.binaryopen resim yapın olacaktır

harf hataları yapmış olabilir koplaya yapıştır yapmayıın

Yukardaki kodu biraz düzenledim. Umarım işini görür.

<%
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)
%>