需要打开一个图像在网络浏览器中打开

Question

byte.eml文件是有图像base64编码值..我打算在浏览器中打开它...但这不是填充图像文件.... plz帮助我出..

这是代码...
昏暗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”。

下面是相关SO question让你开始

UPDATE：

好了，让我们假设你实际上有一个形象的有效表示为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 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电子邮件64基部分？

<%@ 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>