hallo liebe community
ich wollte wissen, wie man folgendes aufruft : (ich möchte ein Picturebox image comprimieren...)
danke schonmal im Foraus
ich wollte wissen, wie man folgendes aufruft : (ich möchte ein Picturebox image comprimieren...)
VB.NET-Quellcode
- ''' <summary>
- ''' Diese Funktion komprimiert Dateien zu einem ZIP-Archiv.
- ''' </summary>
- ''' <param name="InputFiles">Die Liste mit Dateien die komprimiert werden soll.</param>
- ''' <param name="FileName">Der Dateiname der ZIP-Datei (ohne Pfad).</param>
- ''' <param name="OutputDir">Das Ausgabeverzeichnis wo die ZIP Datei gespeichert werden soll.</param>
- ''' <remarks></remarks>
- Dim bildanzahhll As String = "1"
- Public Sub CompressFiles(ByVal InputFiles As List(Of String), ByVal FileName As String, ByVal OutputDir As String)
- OutputDir = My.Computer.FileSystem.SpecialDirectories.MyDocuments + "Pfart"
- FileName = bildanzahhll
- bildanzahhll += "1"
- Dim ZFS As New FileStream(OutputDir & "\" & FileName, FileMode.Create)
- Dim ZOut As New Zip.ZipOutputStream(ZFS)
- ZOut.SetLevel(6)
- Dim ZipEntry As Zip.ZipEntry
- Dim Buffer(4096) As Byte
- Dim ByteLen As Integer
- Dim FS As FileStream
- For i As Integer = 0 To InputFiles.Count - 1
- 'ZipEntry erstellen
- ZipEntry = New Zip.ZipEntry(Path.GetFileName(InputFiles(i)))
- ZipEntry.DateTime = Date.Now
- 'Eintrag hinzufügen
- ZOut.PutNextEntry(ZipEntry)
- 'Datei in den Stream schreiben
- FS = New FileStream(InputFiles(i), FileMode.Open, FileAccess.Read, FileShare.Read)
- Do
- ByteLen = FS.Read(Buffer, 0, Buffer.Length)
- ZOut.Write(Buffer, 0, ByteLen)
- Loop Until ByteLen <= 0
- FS.Close()
- Next
- ZOut.Finish()
- ZOut.Close()
- ZFS.Close()
- End Sub
danke schonmal im Foraus