Hey where are you answer me
Do the Impossible
Ok, you can create your own format to combine multiple files into a single file, but doing this does not involve using strings. Doing this involves manipulating binary data. Here is an example, it is quite lengthy, and you would still have to make your own
format depending on your needs, and it gets really easy to mess things up if you're not paying attention. But here is the example:
Option Strict On
Imports System.Text
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim CustomBinaryFile As New MyBinaryFile
Dim OpenFileDialog As New OpenFileDialog
OpenFileDialog.Filter = "pn (*.png)|*.png|jpg (*.jpg)|*.jpg|bitmaps (*.bmp)|*.bmp"
Dim Image1 As Image
Dim Image2 As Image
If OpenFileDialog.ShowDialog = DialogResult.OK Then
Image1 = Image.FromFile(OpenFileDialog.FileName)
CustomBinaryFile.SetImage1(Image1)
Else
Exit Sub
End If
If OpenFileDialog.ShowDialog = DialogResult.OK Then
Image2 = Image.FromFile(OpenFileDialog.FileName)
CustomBinaryFile.SetImage2(image2)
Else
Exit Sub
End If
Dim SaveFileDialog As New SaveFileDialog
Dim SaveFileName As String
SaveFileDialog.Filter = "Custom Format (*.myext)|*.myext"
If SaveFileDialog.ShowDialog = DialogResult.OK Then
SaveFileName = SaveFileDialog.FileName
CustomBinaryFile.Save(SaveFileDialog.FileName)
Else
Exit Sub
End If
Dim LoadedCustomBinaryFile As MyBinaryFile = MyBinaryFile.FromFile(SaveFileName)
PictureBox1.BackgroundImageLayout = ImageLayout.Stretch
PictureBox2.BackgroundImageLayout = ImageLayout.Stretch
PictureBox1.BackgroundImage = LoadedCustomBinaryFile.GetImage1
PictureBox2.BackgroundImage = LoadedCustomBinaryFile.GetImage2
MsgBox("These Images were loaded from your custom file!")
End Sub
End Class
Public Class MyBinaryFile
Private Property _Image1ByteCount As UInt64
Private Property _Image1Bytes As Byte()
Private Property _Image2ByteCount As UInt64
Private Property _Image2Bytes As Byte()
Private Property Image1Bytes As Byte()
Get
Return _Image1Bytes
End Get
Set(ByVal value As Byte())
_Image1Bytes = value
_Image1ByteCount = Convert.ToUInt64(value.Count)
End Set
End Property
Private ReadOnly Property Image1ByteCount As UInt64
Get
Return _Image1ByteCount
End Get
End Property
Private Property Image2Bytes As Byte()
Get
Return _Image2Bytes
End Get
Set(ByVal value As Byte())
_Image2Bytes = value
_Image2ByteCount = Convert.ToUInt64(value.Count)
End Set
End Property
Private ReadOnly Property Image2ByteCount As UInt64
Get
Return _Image2ByteCount
End Get
End Property
Public Sub SetImage1(ByVal Image As Image)
Image1Bytes = GetImageBytes(Image)
End Sub
Public Sub SetImage2(ByVal Image As Image)
Image2Bytes = GetImageBytes(Image)
End Sub
Public Function GetImage1() As Image
Return Image.FromStream(New IO.MemoryStream(Image1Bytes))
End Function
Public Function GetImage2() As Image
Return Image.FromStream(New IO.MemoryStream(Image2Bytes))
End Function
Public Shared Function FromFile(ByVal FileName As String) As MyBinaryFile
If Not IO.File.Exists(FileName) Then Return New MyBinaryFile
Dim LoadedFile As New MyBinaryFile
Dim FileBytes As Byte() = IO.File.ReadAllBytes(FileName)
Dim Image1ByteCount As UInt64 = BitConverter.ToUInt64(FileBytes, 0)
Dim Image1 As Byte() = GetBinaryField(FileBytes, 8, Image1ByteCount)
Dim Image2ByteCount As UInt64 = BitConverter.ToUInt64(FileBytes, 8 + Image1.Count)
Dim Image2 As Byte() = GetBinaryField(FileBytes, Convert.ToUInt64(8 + Image1.Count + 8), Image2ByteCount)
LoadedFile.SetImage1(Image.FromStream(New IO.MemoryStream(Image1)))
LoadedFile.SetImage2(Image.FromStream(New IO.MemoryStream(Image2)))
Return LoadedFile
End Function
Private Shared Function GetBinaryField(ByVal ByteArray As Byte(), ByVal Offset As UInt64, ByVal DataLength As UInt64) As Byte()
Dim Bytes As New List(Of Byte)
For I As UInt64 = Offset To CULng((Offset + DataLength - 1))
Bytes.Add(ByteArray(CInt(I)))
Next
Return Bytes.ToArray
End Function
Public Sub Save(ByVal FileName As String)
Dim FileBytes As Byte() = {}
FileBytes = CombineArrays(FileBytes, BitConverter.GetBytes(Image1ByteCount))
FileBytes = CombineArrays(FileBytes, Image1Bytes)
FileBytes = CombineArrays(FileBytes, BitConverter.GetBytes(Image2ByteCount))
FileBytes = CombineArrays(FileBytes, Image2Bytes)
IO.File.WriteAllBytes(FileName, FileBytes)
End Sub
Function CombineArrays(ByVal Array1() As Byte, ByVal Array2() As Byte) As Byte()
Dim AllResults(Array1.Length + Array2.Length - 1) As Byte
Array1.CopyTo(AllResults, 0)
Array2.CopyTo(AllResults, Array1.Length)
Return AllResults
End Function
Private Function GetImageBytes(ByVal Image As Image) As Byte()
Dim Bytes As Byte()
Using ImageStream As IO.MemoryStream = New IO.MemoryStream
Image.Save(ImageStream, System.Drawing.Imaging.ImageFormat.Png)
Bytes = ImageStream.ToArray()
End Using
Return Bytes
End Function
End Class
“If you want something you've never had, you need to do something you've never done.”
Don't forget to mark
helpful posts and answers
! Answer an interesting question? Write a
new article
about it! My Articles
|
*This post does not reflect the opinion of Microsoft, or its employees.
