GetFirstInfo; NextInfo'Bei neuen Projekten Bitte ScanPicture verwenden Dim xsize As Long Dim xtyp As Integer If JRStegano1.GetFirstInfo(xtyp, xsize) = True Then loop1:   'daten holen   If xtyp = 1 Then   'string     List1.AddItem JRStegano1.gettext(xsize)   End If   If xtyp = 2 Then   'Byte   Dim xdatax() As Byte   JRStegano1.getdata xdatax, xsize   List1.AddItem StrConv(xdatax, vbUnicode)   End If     If xtyp = 3 Then   'Filename   filenamex$ = JRStegano1.GetFilename(xsize)   List1.AddItem filenamex$   End If     If xtyp = 4 Then   'filedaten   Dim xdata() As Byte   If createfiles <> False Then     'Datei kopieren nach     JRStegano1.GetFile Trim$(Text2(1).Text) + filenamex$, xsize   Else     'Überspringen der Daten     JRStegano1.AddReadPointer xsize   End If   List1.AddItem Str$(UserDataSize) + "Byte von" + filenamex$   End If   'weitere Daten in diesem Objekt   If JRStegano1.NextInfo(xtyp, xsize) = True Then GoTo loop1 End If |