PrivateSub ReverseBlob()
Dim byteArray AsByte() = NewByte() {AscW("A"c), AscW("B"c), AscW("C"c)}
Dim blobFrom AsNew OracleLob(OracleDbType.Blob)
blobFrom.Write(byteArray, 0, byteArray.Length)
' blobFrom.ToString() = "ABC"
Dim blobTo AsNew OracleLob(OracleDbType.Blob)
........
' reverse OracleLob
If ((blobFrom.CanSeek AndAlso blobFrom.CanRead) AndAlso blobTo.CanWrite) Then
blobFrom.Seek(CLng(-1), System.IO.SeekOrigin.End)
DoWhileTrue
blobTo.WriteByte(CByte(blobFrom.ReadByte))
If (blobFrom.Position = 1) ThenReturnEndIf
blobFrom.Position = blobFrom.Position - 2
LoopEndIf' blobTo.ToString() = "CBA";
End Sub
Requirements
Target Platforms: Windows 7, Windows Vista SP1 or later, Windows XP SP3, Windows Server 2008 (Server Core not supported), Windows Server 2008 R2 (Server Core supported with SP1 or later), Windows Server 2003 SP2