把图象文件转换成XML文件

2023-10-20 06:50
文章标签 xml 转换成 图象

本文主要是介绍把图象文件转换成XML文件，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！

Public   Class Form2
    Inherits System.Windows.Forms.Form

Windows 窗体设计器生成的代码

    Private MyFile As String = ""
    Private MyFileExt As String = ""
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
      Handles Button2.Click
        Dim pic As String
        Dim MyXml As System.Xml.XmlDocument = New System.Xml.XmlDocument
        MyXml.Load("c:Photo.xml")
        Dim picNode As System.Xml.XmlNode
        picNode = MyXml.SelectSingleNode("/pic/photo")
        pic = picNode.InnerText
        Dim memoryStream As System.IO.MemoryStream
        memoryStream = New System.IO.MemoryStream(Convert.FromBase64String(pic))
        Me.PictureBox1.Image = New System.Drawing.Bitmap(memoryStream)
        memoryStream.Close()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
      Handles Button1.Click
        If MyFile = "" Then
            MessageBox.Show("请选择一个图片！", "错误", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            Exit Sub
        End If
        Dim MyImg As System.Drawing.Image = MyImg.FromFile(MyFile)
        Dim memoryStream As System.IO.MemoryStream = New System.IO.MemoryStream
        MyImg.Save(memoryStream, GetImageType(MyFileExt))
        Dim b() As Byte
        b = memoryStream.GetBuffer()
        Dim pic As String = Convert.ToBase64String(b)
        memoryStream.Close()
        Dim MyXml As System.Xml.XmlDocument = New System.Xml.XmlDocument
        MyXml.LoadXml("<pic><name>photo</name><photo>" + pic + "</photo></pic>")
        MyXml.Save("c:MyPhoto.xml")
        Label1.Text = "文件被保存到了：" + Microsoft.VisualBasic.ChrW(13) + "c:MyPhoto.xml"
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
      Handles Button3.Click
        Dim openFileDialog1 As New OpenFileDialog
        openFileDialog1.InitialDirectory = "c:"
        openFileDialog1.Filter = "PNG(*.png)|*.png|Gif(*.gif)|*.gif|Jpg(*.jpg)|*.jpg|所有图象文件(*.*)|*.*"
        openFileDialog1.FilterIndex = 2
        openFileDialog1.RestoreDirectory = True
        If openFileDialog1.ShowDialog() = DialogResult.OK Then
            MyFile = openFileDialog1.FileName()
            MyFileExt = MyFile.Substring(MyFile.LastIndexOf(".") + 1)
        End If
    End Sub

    Public Function GetImageType(ByVal str As String) As System.Drawing.Imaging.ImageFormat
        Select Case str.ToLower()
            Case "jpg"
                Return System.Drawing.Imaging.ImageFormat.Jpeg
            Case "gif"
                Return System.Drawing.Imaging.ImageFormat.Gif
            Case "tiff"
                Return System.Drawing.Imaging.ImageFormat.Tiff()
            Case "icon"
                Return System.Drawing.Imaging.ImageFormat.Icon
            Case "image/png"
                Return System.Drawing.Imaging.ImageFormat.Png
            Case Else
                Return System.Drawing.Imaging.ImageFormat.MemoryBmp
        End Select
    End Function
End Class

 

这篇关于把图象文件转换成XML文件的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！


http://www.chinasem.cn/article/245421。

相关文章

webm怎么转换成mp4？这几种方法超多人在用！

webm怎么转换成mp4？这几种方法超多人在用！

webm怎么转换成mp4？WebM作为一种新兴的视频编码格式，近年来逐渐进入大众视野，其背后承载着诸多优势，但同时也伴随着不容忽视的局限性，首要挑战在于其兼容性边界，尽管WebM已广泛适应于众多网站与软件平台，但在特定应用环境或老旧设备上，其兼容难题依旧凸显，为用户体验带来不便，再者，WebM格式的非普适性也体现在编辑流程上，由于它并非行业内的通用标准，编辑过程中可能会遭遇格式不兼容的障碍，导致操
阅读更多...
多重背包转换成0-1背包

多重背包转换成0-1背包

http://acm.hdu.edu.cn/showproblem.php?pid=2191 多重背包特点: 一种物品有C个（既不是固定的1个，也不是无数个） 优化的方法： 运用神奇的二进制,进行物品拆分,转化成01背包 物品拆分,把13个相同的物品分成4组(1,2,4,6) 用这4组可以组成任意一个1~13之间的数! 原理:一个数总可以用2^
阅读更多...
intellij idea generatorConfig.xml

intellij idea generatorConfig.xml

generatorConfig.xml <?xml version="1.0" encoding="UTF-8"?><!DOCTYPE generatorConfigurationPUBLIC "-//mybatis.org//DTD MyBatis Generator Configuration 1.0//EN""http://mybatis.org/dtd/mybatis-ge
阅读更多...
Prompt - 将图片的表格转换成Markdown

Prompt - 将图片的表格转换成Markdown

Prompt - 将图片的表格转换成Markdown 0. 引言1. 提示词2. 原始版本 0. 引言 最近尝试将图片中的表格转换成Markdown格式，需要不断条件和优化提示词。记录一下调整好的提示词，以后在继续优化迭代。 1. 提示词 英文版本： You are an AI assistant tasked with extracting the content of
阅读更多...
xml概论

xml概论

以下内容摘录自W3School 一、XML的特性 xml是用来传输和存储数据的，本身对数据没有任何操作。在这里要区别一下html，html是用来显示数据的。xml的焦点是数据内容，html的焦点是数据外观。 下面是xml的定义： •XML 指可扩展标记语言（EXtensible Markup Language） •XML 是一种标记语言，很类似 HTML
阅读更多...
XML的创建

XML的创建

这里使用的是org.dom4j的jar包来完成xml格式数据的创建。 import java.io.IOException;import java.io.StringWriter;import org.dom4j.Document;import org.dom4j.DocumentHelper;import org.dom4j.Element;import org.dom4j.
阅读更多...
Spring下自定义xml标签

Spring下自定义xml标签

dubbo自定义了很多xml标签，例如<dubbo:application>，那么这些自定义标签是怎么与spring结合起来的呢？我们先看一个简单的例子。 一 编写模型类 1 package com.hulk.testdubbo.model;2 3 public class Hero {4 private String name;5 private int
阅读更多...
xml reader

xml reader

// TODO Auto-generated method stub
阅读更多...
spring事务属性的xml格式配置

spring事务属性的xml格式配置

实际是使用代理做的事务优化 <!--配置事务的属性--><tx:advice id="txAdvice" transaction-manager="transactionManager"> <tx:attributes> <!--匹配所有以add开头的方法--><tx:method name="add*" propagation="REQUIRED" /> <tx:metho
阅读更多...
将浮点型算式的中缀表达式转换成后缀表达式并算出式子结果

将浮点型算式的中缀表达式转换成后缀表达式并算出式子结果

最近因为需要了解如何将在Win应用程序控制台输入的算式表达式转化成其后缀表达式的算法，所以在网上搜索了一下，看到许多人的程序都只是对应于运算数在0~9的范围内的整型运算式，所以自己就写了一个可以计算浮点型算式的程序，一下是运行时的截图： 式子中的a,b,c是可供用户自行输入的变量。 首先，我先对输入的运算符进行了简单的合法性判断，我的判断代 码如下： //函数的传入参
阅读更多...

Copyright China编程 23002807@qq.com

沪ICP备2023033072号-2