0

canvgを使用してSVGをキャンバスに変換してから、vb.netクライアント側で画像をbytearray()に変換し、サーバー上のフォルダーに保存して、メールで添付できるようにします。

 Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
    Dim path = Server.MapPath("PDFs\")
    Dim fileNameWithPath As String = path + DateTime.Now.ToString().Replace("/", "-").Replace(" ", "-").Replace(":", "") + ".jpeg"
    Dim fs As FileStream = New FileStream(fileNameWithPath, FileMode.Create)
    Dim bw As BinaryWriter = New BinaryWriter(fs)
    Dim ByteArray() As Byte = Convert.FromBase64String(hfChartImg.Value)
    bw.Write(ByteArray)
    bw.Close()

    Dim file As String = fileNameWithPath
    Dim message As New MailMessage()
    message.From = New MailAddress("****************")
    message.To.Add(New MailAddress("***************"))
    message.Subject = "new image "
    message.Body = "this is the apak chart img"
    Dim data As New Attachment(file)
    message.Attachments.Add(data)
    Dim client As New SmtpClient()
    client.Host = "smtp.gmail.com"
    client.Credentials = New NetworkCredential("***************", "*******")
    client.EnableSsl = True
    client.Port = 587
    client.Send(message)
End Sub

このコードは正常に動作し、画像を送信します。

実際には、この画像をサーバーに保存する必要はありません。保存せずに送信したかっただけです。これが私がこれまで行ってきたことです。

 Protected Sub emailSend_Click(ByVal sender As Object, ByVal e As EventArgs) Handles emailSend.Click
    Dim customerChoice As String = DropDownList1.Text
    Select Case customerChoice
        Case "pdf"
            MsgBox("select pdf ")
        Case "image"
            Dim imageFile As MemoryStream = New MemoryStream()
            Dim bw As BinaryWriter = New BinaryWriter(imageFile)
            Dim bytearray() As Byte = Convert.FromBase64String(hfChartImg.Value)
            bw.Write(bytearray)

私は自分がしたいことをするのにとても遠いですか???

4

1 に答える 1

0

あなたは書こうとしている

Dim data As New Attachment(New MemoryStream(ByteArray), "SomeName")
于 2012-05-24T19:05:47.047 に答える