Danke für die Hilfe

Gruß Christian

EALA FREYA FRESENA

Danke für die Hilfe

Gruß Christian

Danke für die Hilfe

Gruß Christian

Zitat:

Ich kann bei keinem der Geräte sicherstellen dass ein anderes online ist.

Zitat:

Das Programm ist derzeit so aufgebaut dass ein Rechner die Serverfunktion übernehmen soll. An diesem registrieren sich die anderen Rechner. Der "Server" soll alle Daten von seinen angemeldeten Rechnern erhalten und verarbeiten, dann entsprechend auf die anderen Rechner weiter verteilen.

Danke für die Hilfe

Gruß Christian

Danke für die Hilfe

Gruß Christian

Zitat:

Meinen Laptop nehme ich nach der Arbeit mit heim. Sollte ich ihn dort einschalten so möchte ich die Daten die von den Tablets über den Tag erstellt wurden einlesen.

Zitat:

Mir ist klar dass falls ein Gerät seine MAC ändert dieser keine Daten mehr erhält.

Danke für die Hilfe

Gruß Christian

Danke für die Hilfe

Gruß Christian

Beitrag wurde zuletzt am 01.07.17 um 22:57:31 editiert.

Zitat:

Man kann den Inhalt von Dateiserien in Instanzen einer serialisierbaren Datenklasse eintragen, deren Member dynamische Listen von String-Variablen, JPG-Streams usw. sind. Auf diese Weise entsteht ein speicherbares Datenpaket, das schnelles Laden/Speichern und strukturierten Zugriff auf die einzelnen Daten-Elemente ermöglicht.

Danke für die Hilfe

Gruß Christian

<Serializable()> _
Public Class PicList
 
    Dim _folder As String
    Dim pics As New List(Of Pic)
 
    Public Sub New(ByVal JPEG_Folder As String)
        Dim jpgs() As String = IO.Directory.GetFiles(JPEG_Folder, "*.jpg")
        For i As Integer = 0 To jpgs.Length - 1
            pics.Add(New Pic(jpgs(i)))
        Next i
        _folder = JPEG_Folder
    End Sub
 
    Public ReadOnly Property Count As Integer
        Get
            Return pics.Count
        End Get
    End Property
 
    Public ReadOnly Property Folder As String
        Get
            Return _folder
        End Get
    End Property
 
    Public ReadOnly Property GetPic(ByVal index As Integer) As Pic
        Get
            Return pics(index)
        End Get
    End Property
End Class
 
 
<Serializable()> _
Public Class Pic
 
    Private _bytes() As Byte
    Private _ms As IO.MemoryStream
 
    Public Property name As String
    Public Property created As Date
 
    Public ReadOnly Property Value As Bitmap
        Get
            If Not _ms Is Nothing Then _ms.Close()
 
            _ms = New IO.MemoryStream(_bytes)
            Return New Bitmap(_ms)
        End Get
    End Property
 
    Public Sub New(ByVal JPEG_File As String)
        _bytes = IO.File.ReadAllBytes(JPEG_File)
        name = IO.Path.GetFileName(JPEG_File)
        created = New IO.FileInfo(JPEG_File).CreationTime
    End Sub
End Class

 
Public Class frmPicSerialize
 
    'Instanz der serialisierbaren Datenklasse
    Dim pl As PicList
 
    Dim fmt As New System.Runtime.Serialization. _
       Formatters.Binary.BinaryFormatter
 
    'Auswahl der gelisteten Bilder
    Dim WithEvents cbo_picnames As New ComboBox With _
        {.Parent = Me, .DropDownStyle = ComboBoxStyle.DropDownList, _
         .Width = 400, .Top = 40}
 
    'Anzeige eines gewählten Bildes
    Dim pb As New PictureBox With _
        {.Parent = Me, .Width = 400, .Height = 400, .Top = 80, _
         .SizeMode = PictureBoxSizeMode.Zoom}
 
    'Auswahl des Ordners, dessen JPEGs gelistet werden
    Dim fbd As New FolderBrowserDialog With _
        {.Description = "Ordner mit JPEG-Dateien"}
 
    Dim WithEvents btnLoad As New Button With _
        {.Parent = Me, .Text = "JPEGs in eine PicList laden", .Width = 400}
 
    'Speichern der Bilderliste
    Dim WithEvents btnSerialize As New Button With _
        {.Parent = Me, .Text = "Serialize PicList", _
         .Width = 400, .Top = 500, .Enabled = False}
 
    'Laden einer serialisierten Bilderliste
    Dim WithEvents btnDeSerialize As New Button With _
        {.Parent = Me, .Text = "DeSerialize PicList", _
         .Width = 400, .Top = 530}
 
    Dim ofd As New OpenFileDialog With {.Title = "Laden einer PicList", _
                                        .CheckFileExists = True}
    Dim sfd As New SaveFileDialog With {.Title = "Speichern einer Piclist", _
                                        .OverwritePrompt = True}
 
 
    Private Sub PicSerialize_Load(sender As System.Object, _
        e As System.EventArgs) Handles MyBase.Load
        Me.FormBorderStyle = Windows.Forms.FormBorderStyle.FixedDialog
        Me.Size = New Size(420, 600)
    End Sub
 
 
    Private Sub cbo_picnames_SelectedIndexChanged _
        (sender As Object, e As System.EventArgs) _
        Handles cbo_picnames.SelectedIndexChanged
 
        pb.Image = pl.GetPic(cbo_picnames.SelectedIndex).Value
    End Sub
 
 
    Private Sub btnLoad_Click(sender As Object, _
            e As System.EventArgs) Handles btnLoad.Click
 
        If fbd.ShowDialog = Windows.Forms.DialogResult.Cancel Then Exit Sub
 
        PrepareForm()
 
        'Hintergrund-Thread zum Laden der JPEGs aus einem Ordner
        Dim lds As New Threading.ThreadStart(AddressOf loadpics)
        Dim ld As New Threading.Thread(lds)
        ld.Start()
    End Sub
 
 
    Private Sub loadpics()
        pl = New PicList(fbd.SelectedPath)
        Me.Invoke(New MethodInvoker(AddressOf shownames))
    End Sub
 
    Private Sub PrepareForm()
        Me.Text = "Bilder werden geladen"
        cbo_picnames.Items.Clear()
        pb.Image = Nothing
    End Sub
 
    Private Sub shownames()
 
        cbo_picnames.Items.Clear()
        For i As Integer = 0 To pl.Count - 1
            cbo_picnames.Items.Add(pl.GetPic(i).name)
        Next i
 
        btnSerialize.Enabled = pl.Count > 0
        Me.Text = pl.Count.ToString & " Bilder aus " _
            & pl.Folder & " geladen"
        cbo_picnames.SelectedIndex = 0
    End Sub
 
 
    Private Sub btnSerialize_Click(sender As Object, _
        e As System.EventArgs) Handles btnSerialize.Click
 
        If sfd.ShowDialog = Windows.Forms.DialogResult.Cancel Then Exit Sub
        IO.File.Delete(sfd.FileName)
        Using fs As New IO.FileStream _
            (sfd.FileName, IO.FileMode.Create, IO.FileAccess.Write)
 
            fmt.Serialize(fs, pl)
        End Using
    End Sub
 
 
    Private Sub btnDeSerialize_Click(sender As Object, _
        e As System.EventArgs) Handles btnDeSerialize.Click
        If ofd.ShowDialog = Windows.Forms.DialogResult.Cancel Then Exit Sub
 
        PrepareForm()
 
        Using fs As New IO.FileStream _
            (ofd.FileName, IO.FileMode.Open, IO.FileAccess.Read)
 
            pl = DirectCast(fmt.Deserialize(fs), PicList)
            shownames()
        End Using
    End Sub
End Class

Danke für die Hilfe

Gruß Christian

Private Sub Slideshow()
   Dim bmp As Bitmap = Nothing
 
   For i As Integer = 0 To pl.Count - 1
 
       If Not bmp Is Nothing Then bmp.Dispose()
 
       bmp = pl.GetPic(i).Value
       pb.Image = bmp
 
       Me.Text = i.ToString & pl.GetPic(i).name
       Me.Refresh()
       Threading.Thread.Sleep(2000)
   Next i
End Sub

Danke für die Hilfe

Gruß Christian

Public Class Pic
    Implements IDisposable
 
    Private _bytes() As Byte
    Private _ms As IO.MemoryStream
    Private _bp As Bitmap
 
    Public Property name As String
    Public Property created As Date
 
    Public ReadOnly Property Value As Bitmap
        Get
            Free()
            _ms = New IO.MemoryStream(_bytes)
            _bp = New Bitmap(_ms)
            Return _bp
        End Get
    End Property
 
    Public Sub New(ByVal JPEG_File As String)
        _bytes = IO.File.ReadAllBytes(JPEG_File)
        name = IO.Path.GetFileName(JPEG_File)
        created = New IO.FileInfo(JPEG_File).CreationTime
    End Sub
 
#Region "IDisposable Support"
 
    Public Sub Free()
        If Not _ms Is Nothing Then _ms.Close() ': _ms = Nothing
        If Not _bp Is Nothing Then _bp.Dispose() ': _bp = Nothing
    End Sub
 
    Private disposedValue As Boolean
    Protected Overridable Sub Dispose(disposing As Boolean)
        If Not Me.disposedValue Then
            If disposing Then
                Free()
                _bytes = Nothing
            End If
        End If
        Me.disposedValue = True
    End Sub
 
    Public Sub Dispose() Implements IDisposable.Dispose
        Dispose(True)
        GC.SuppressFinalize(Me)
    End Sub
#End Region
 
End Class

Danke für die Hilfe

Gruß Christian