• 1
• 2
• 3
• 4
• 5

ASP çok sıkıntılı bir dil canım herşey içinde eklenti gerekmez mi? İşte PHP'de bu sıkıntı yok herşey hazır yaz kodu çalıştır sistemi. Anlatacağım bu konunun içeriği uzak sunucudaki resmi yada sizin zevkinize kalmış herhangi bir dosyayı kendi sunucunuzda istediğiniz bir klasöre çekmek. Eğer çekeceğiniz resim ise size ücretli bir bileşen olan Persits gerekecektir. Yok ben sadece dosya kaydedeceğim derseniz eklentiye ihtiyacınız yok sadece XMLHTTP desteği sunucunuzda varsa işiniz görülmüştür. 

Function DosyaAdi(hane) 'Karmaşık dosya adı oluşturuyoruz
	For i = 1 To (hane/2) 
		randomize  
		mkodu = mkodu + Chr(Int((10) * Rnd + 48))
		mkodu = mkodu + Chr(Int((26) * Rnd + 65))
		DosyaAdi=ind&"-"&mkodu
	Next  
End Function

Yol = Server.MapPath("Buyukler")&"\"
YeniDosya = DosyaAdi(8)&".jpg"
adres=Request.Form("ResimAdres") 'Resmin uzak sunucudaki adresini formdan post etmiştik
Dim XmlHttp
Dim BinaryStream
Dim Resim
Set XmlHttp = Server.CreateObject("MSXML2.ServerXMLHTTP")
XmlHttp.Open "GET", ""&adres&"", False
XmlHttp.send
Resim = XmlHttp.ResponseBody
Set XmlHttp = Nothing
Set BinaryStream = Server.CreateObject("ADODB.Stream")
BinaryStream.Type = 1 'Binarydata için 1
BinaryStream.Open
BinaryStream.Write Resim
BinaryStream.SaveToFile Yol & YeniDosya, 2 '< üstüne yazmak için 2
Set BinaryStream = Nothing
'---------------------------------------------------------- resize image
Set JpegDegistir = Server.CreateObject("Persits.Jpeg") 
JpegDegistir.Open Yol & YeniDosya 
YeniBoyut = 250 'resim bu boyutta kaydedilecek
JpegDegistir.Width = YeniBoyut 
JpegDegistir.Height = JpegDegistir.OriginalHeight * YeniBoyut / JpegDegistir.OriginalWidth 
Yol2 = Server.MapPath("Ortalar")&"\" 'Klasör adı
JpegDegistir.Save Yol2 & YeniDosya 
JpegDegistir.close