JR-Stegano Activex

Beispiel

GetFile

Private Sub JRStegano1_ScanRequest(ScanedType As Projekt1.Scanreq, UserDataSize As Long,             ScanCol As Long, ScanRrow As Long, CancelReading As Boolean)

            Static filenamex$

            Select Case ScanedType

            Case TextDatas

              List1.AddItem JRStegano1.GetText(UserDataSize)

            Case ByteDatas

              Dim xdatax() As Byte

              JRStegano1.GetData xdatax, UserDataSize

              List1.AddItem StrConv(xdatax, vbUnicode)

            Case FileName

              'filename nächster datenblock muß dann FileDatas sein

              filenamex$ = JRStegano1.GetFilename(UserDataSize)

              List1.AddItem filenamex$

            Case FileDatas

              'filedaten

              Dim xdata() As Byte

              If createfiles <> False Then

                'Datei kopieren nach

                JRStegano1.GetFile Trim$(Text2(1).Text) + filenamex$, UserDataSize

              Else

                'Überspringen der Daten

                JRStegano1.AddReadPointer UserDataSize

              End If

              List1.AddItem Str$(UserDataSize) + "Byte von" + filenamex$

            Case ScanComplete

              'Keine weiteren Daten in diesem Objekt

              'hinter der letzten gültigen Leseposition werden daten hinzugefügt wenn

              JRStegano1.SetEOF

              'aufgerufen wird. Wird dieser Befehl weggelassen, dann beeinflußt ein Lesezugriff den                         schreibzeiger nicht.

            Case NoDatas

              'keine Daten in diesem Objekt, die mit dem gesetzten Passwort gelesen werden können

              MsgBox "keine Daten"

            Case ScanCanceled

              'Scannnen wurde mit CancelReading abgebrochen

            End Select

End Sub