arrUzantilar = Array("jpg", "JPG", "jpeg", "JPEG", "gif", "GIF", "png", "PNG")
strAdres = Trim(Request.Form("resim"))
If strAdres = "" Then
Else
blnGecerli_Uzanti = False
For i = 0 To UBound(arrUzantilar)
If arrUzantilar(i) = Right(strAdres, Len(arrUzantilar(i))) Then
blnGecerli_Uzanti = True
strGecerli_Uzanti = arrUzantilar(i)
Exit For
End If
Next
If blnGecerli_Uzanti = False Then
Else
strDosya_Adi = seo(Request.form("baslik"))
strDosya = ""&strDosya_Adi&"."&strGecerli_Uzanti&""
Set XmlHttp = Server.CreateObject("WinHttp.WinHttpRequest.5.1")
XmlHttp.Open "GET", strAdres, false
XmlHttp.Send
dosyam = XmlHttp.ResponseBody
'Response.Write XmlHttp.Status
Set XmlHttp = Nothing
Set BinaryStream = Server.CreateObject("ADODB.Stream")
BinaryStream.Type = 1
BinaryStream.Open
BinaryStream.Write dosyam
BinaryStream.SaveToFile Server.MapPath("/img/"&strDosya&""), 2
Set BinaryStream = Nothing
End If
End If
resim=siteurl&"/img/"&strDosya Asp resim boyutlandırma
3
●340
- 08-06-2019, 15:22:51Merhaba aşağıdaki kod ile başka sunucudaki resmi kendi sunucuma çekebiliyorum ama boyutlandırma yapamıyorum daha önce asp jpg ile boyutlandırma yapıyordum ama sunucu değişikliği yaptım şuan ki sunucuda asp jpg bileşeni yüklü olmadığı için boyutlandırma yapamıyorum aşağıdaki koda ek olarak boyutlandırma yapılabilir mi acaba yardımcı olabilir misiniz?
- 11-06-2019, 23:24:32online apiler var üçretli ve üçretsiz olanları vardır, biraz yavaş olabilir ama iş görebilir. örn: http://developers.pho.to/documentation/sending-requests
ayrıca consol desteği olan resim düzenleme programları da kullanabilirsiniz
denemedim ama olur, muhtemelenhttps://medium.com/@jorinvo/edit-ima...k-fb53bc62d078 bu sitedeki programı kurun exesini WScript.Shell ile çalıştırabilirsiniz. - 12-06-2019, 22:22:26Kimlik doğrulama veya yönetimden onay bekliyor.Sunucuda ilgili bileşenler kurulu olmalı.
Klasik ASP tek başına resim boyutlandırma yapamıyordu bizim zamanımızda.
Şu an da bilesensiz yapabildiğini sanmıyorum.