Servera Web den URL adresinden resim nasıl kaydedilir

[Safirmedya]

MSXML2.ServerXMLHTTP ve ADODB.Stream kullanarak yapılabilir.

Kod Seç Genişlet

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1254"%>
<%
Dim XmlHttp
Dim BinaryStream
Dim Resim

Set XmlHttp = Server.CreateObject("MSXML2.ServerXMLHTTP")

XmlHttp.Open "GET", "http://www.samanalevi.net/images/samanalevi_egaleri.jpg", 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 Server.MapPath("resim/resim.gif"), 2 '< üstüne yazmak için 2

Set BinaryStream = Nothing

%>

Ekrana yazdırmak içinse;

Kod Seç Genişlet


<%@LANGUAGE="VBSCRIPT" CODEPAGE="1254"%>
<%
Dim XmlHttp
Dim BinaryStream
Dim Resim

Response.ContentType = "image/gif"

Set XmlHttp = Server.CreateObject("MSXML2.ServerXMLHTTP")

XmlHttp.Open "GET", "http://www.samanalevi.net/images/samanalevi_egaleri.jpg", False

XmlHttp.send

Resim = XmlHttp.ResponseBody

Response.BinaryWrite(Resim)

Set XmlHttp = Nothing
%>


[Safirmedya]