웹 브라우저에서 이미지를 열어야합니다.

Question

byte.eml 파일에 base64 인코딩 값이 있습니다 .. 브라우저에서 열려고합니다 ...하지만 이미지 파일을 채우지 못합니다 .... plz help me 밖으로 ..

이 코드는 ...
희미한 oFile하는 System.IO.File 희미한 산의 요정으로 System.IO.StreamReader는

orEAD = oFile.OpenText("E:\mailbox\P3_hemantd.mbx\byte.eml") 
Dim content As String 
content = "" 

''Dim intsinglechr As Integer 
''Dim csinglechr As String 

While orEAD.Peek <> -1 
    content = content & Chr(orEAD.Read) 
    content = Replace(content, vbCrLf, "") 
    content = Replace(content, vbTab, "") 
    content = Replace(content, " ", "") 

End While 
Response.ContentType = "image/jpeg" 
Response.BinaryWrite(Convert.FromBase64String(content)) 

Answer 1

기능 Convert.FromBase64String (내용이) 올바른 작동합니까으로? 파일 쓰기를 시도하십시오.

Answer 2

byte.eml의 내용이 base64로 인코딩 된 이미지가 아니므로 MIME 문서입니다.

MIME 문서를 구문 분석해야하고 다음 이미지를 가져와야합니다.

"C# MIME MAIL PARSING"을 (를) 검색 할 수 있습니다. ...

좋아, 그래서 당신이 실제로 base64로 문자열로 이미지의 유효한 표현을 할 수 있다고 가정하자 : 여기

는

UPDATE를 시작하는 관련 SO question입니다

<%@ Page Language="VB" %> 

<%@ Import Namespace="System.IO" %> 

<script runat="server"> 
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load 


     Dim bytes As Byte() = File.ReadAllBytes(Server.MapPath("Chrysanthemum.jpg")) 
     Dim base64 As String = Convert.ToBase64String(bytes) 

     '' base64 is what you say you have 


     Dim newBytes As Byte() = Convert.FromBase64String(base64) 
     Response.ClearContent() 
     Response.ClearHeaders() 
     Response.ContentType = "image/jpeg" 
     Response.BinaryWrite(newBytes) 
     Response.End() 

    End Sub 

</script> 

이 코드는 사용할 텍스트를 base64으로 대체하고 작동하지 않는다면 이미지의 유효한 base64 문자열 표현이 아닙니다.

업데이트 2는 :

이것은 당신이 base64로이 들어 말을하고 응답에 기록 텍스트 파일을 읽습니다.

을 어떻게 제대로 MIME 이메일에서 base64로 섹션을 추출 할 : 여전히 다음 작동하지 않는 경우

물어 또 다른 질문이?

<%@ Page Language="VB" %> 
<%@ Import Namespace="System.IO" %> 
<script runat="server"> 
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load 

     Dim base64 As String = File.ReadAllText("E:\mailbox\P3_hemantd.mbx\byte.eml") 

     Dim newBytes As Byte() = Convert.FromBase64String(base64) 
     Response.ClearContent() 
     Response.ClearHeaders() 
     Response.ContentType = "image/jpeg" 
     Response.BinaryWrite(newBytes) 
     Response.End() 
    End Sub 
</script>