login register Sysop! about ME  

2020년 04월 01일 18시 44분 00초,     조회수 : 274
  제목 : 외부서버에 파일(바이너리 변환) 저장하는법~
SEQ : 164262 글쓴이 : violin79j

작성 포맷 : TEXT 모드, 자동 줄바꿈 사용

안녕하세요~
외부서버에 파일 저장하는법을 찾아봤는데 답이 없어서요~ 
서버에 저장된 이미지파일을 어떻게 바이너리로 변환해서 보낼수가 있는지요?

httpBody = httpBody & "content-disposition: form-data; name=""file""; filename=""" & sis_binary & """" & 
vbCrLf

Server.MapPath("/image") & "\1.jpg" 를 변환해서 보내면 빈 파일이라고 메세지가 뜨네여 


Server.CreateObject("Microsoft.XMLHTTP")

Server.CreateObject("MSXML2.ServerXMLHTTP") 에 따라 전송이 달라질수가 있나요?

찾아본 내용

1.

function BinaryGetURL(URL)

'Create an Http object, use any of the four objects
 Dim Http
 'Set Http = CreateObject("Microsoft.XMLHTTP")
 'Set Http = CreateObject("MSXML2.ServerXMLHTTP")
 Set Http = CreateObject("WinHttp.WinHttpRequest.5.1")
 'Set Http = CreateObject("WinHttp.WinHttpRequest")
 'Send request To URL
 Http.Open "GET", URL, False
 Http.Send
 'Get response data As a string
 BinaryGetURL = Http.ResponseBody

End Function

Response.ContentType="image/jpg"
 binaryImage=BinaryGetURL("http://xxxxx.com/image/1.jpg")
 Response.BinaryWrite binaryImage


2. 

 '-- image 파일오픈 ---------------------------------------------
 arg_datafile = "c:\00832_001_4.sis"
 set stream = Server.CreateObject("ADODB.Stream")
 stream.Type = 1
 stream.Open()
 stream.LoadFromFile(arg_datafile)
 arg_binary = trim(getString(stream.Read))
 stream.Close()

 Function getString(byVal StringBin)
  dim intCount
  getString =""
  For intCount = 1 to LenB(StringBin)
   getString = getString & AscB(MidB(StringBin, intCount, 1))
  Next
 End Function

3.

Function BinaryToXML( strFileName )

    Dim xmlDoc

    Dim xmlNode

    Dim xmlElement

    

    Dim obj_stream

    

    Set obj_stream   = Server.CreateObject("ADODB.Stream")

        obj_stream.Type = 1

        obj_stream.Open()

        obj_stream.LoadFromFile strFileName 

    

    

    Set xmlDoc = Server.CreateObject( "MSXML.DOMDocument" )

    Set xmlElement = xmlDoc.createElement("blob")

    Set xmlDoc.documentElement = xmlElement

        xmlElement.dataType = "bin.base64"

        xmlElement.nodeTypedValue = obj_stream.Read

        BinaryToXML = xmlDoc.xml

    Set xmlElement = Nothing

    Set xmlDoc = Nothing

    obj_stream.Close()

    Set obj_stream = Nothing

End Function



제목 작성자 날짜 조회
외부서버에 파일(바이너리 변환) 저장하는법~ violin79j 2020-04-01 274

 
 
.NET과 Java 동영상 기반의 교육사이트

로딩 중입니다...

서버 프레임워크 지원 : NeoDEEX
based on ASP.NET 3.5
Creative Commons License
{5}
{2} 읽음   :{3} ({4})