이미지 파일 을 XML 형식 파일 로 변환 합 니 다.
.NET 프레임 워 크 의 FromBase64String 과 ToBase64String 방법 을 이용 하면 이미지 파일 과 XML 파일 의 교환 을 쉽게 실현 할 수 있다.이렇게 하면 XML 형식 으로 그림 을 저장 하 는 문 제 를 쉽게 해결 할 수 있다.코드 는 다음 과 같 습 니 다:
Public Class Form1 Inherits System.Windows.Forms.Form
\#Region"Windows 창 디자이너 가 만 든 코드"Public Sub New()MyBase.New()InitializeComponent()는 InitializeComponent()호출 후 초기 화 최종 Sub 를 추가 합 니 다.
구성 요소 목록 을 정리 하기 위해 창 을 다시 쓰 십시오.Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing Then If Not (components Is Nothing) Then components.Dispose() End If End If MyBase.Dispose(disposing) End Sub
Windows 창 디자이너 에 필요 한 Private components As System.Component Model.IContainer 주의:다음 과정 은 Windows 창 디자이너 에 필요 한 Windows 창 디자이너 를 사용 하여 이 과정 을 수정 할 수 있 습 니 다.코드 편집기 로 수정 하지 마 세 요.Friend WithEvents Button1 As System.Windows.Forms.Button Friend WithEvents Button2 As System.Windows.Forms.Button Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox Friend WithEvents Button3 As System.Windows.Forms.Button Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents Label2 As System.Windows.Forms.Label
End Sub
#End Region
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:\MyPhoto.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)종료 서브 엔 드 Dim MyImg As System.Drawing.Image=MyImg.FromFile(MyFile)Dim memory Stream As System.IO.Memory Stream=New System.IO.Memory Stream()MyImg.save(memory Stream,(MyFileExt)Dim b()As Byte b=memory Stream.GetBuffer()Dim pic As String=Convert.ToBase64String(b)memory Stream.Close()Dim MyXml AsSystem.Xml.XmlDocument=New System.Xml.XmlDocument()MyXml.XmlDocDocument()MyXml.LodXml(<
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ 새 OpenFileDialog()openFileDialog 1.InitialDirectory="c:\"openFileDialog1.Filter="PNG(*.png)|*.png|Gif(*.gif)|*.gif|Jpg(*.jpg)|*.jpg|모든 이미지 파일(*.*)|*.*"openFileDialog1.FilterIndex=2 openFileDialog1.RestoreDirectory=True If openFileDialog1.ShowDialog()=DialogResult.OK 그런 다음 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
Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) _ Handles MyBase.Closing System.Diagnostics.Process.Start("IExplore.exe", "http://xml.sz.luohuedu.net/") End Sub End Class
이 내용에 흥미가 있습니까?
현재 기사가 여러분의 문제를 해결하지 못하는 경우 AI 엔진은 머신러닝 분석(스마트 모델이 방금 만들어져 부정확한 경우가 있을 수 있음)을 통해 가장 유사한 기사를 추천합니다:
자바 GeoTools 를 사용 하여 shp 파일 을 읽 고 그림 을 그 리 는 작업 코드shp 파일 자 체 는 지리 적 대상 경계 좌표,대상 중심 도시 및 도시 번호 가 저 장 된 다 다각형 문자열 입 니 다. 대상: [email protected]의 도구 클래스,shp 파일 읽 기: autho...
텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
CC BY-SA 2.5, CC BY-SA 3.0 및 CC BY-SA 4.0에 따라 라이센스가 부여됩니다.
좋은 웹페이지 즐겨찾기
