PrivateSub ReverseBlob()
Dim byteArray AsByte() = NewByte() {AscW("A"c), AscW("B"c), AscW("C"c)}
Dim blobFrom AsNew PgSqlBlob(byteArray)
' blobFrom.ToString() = "ABC"
Dim blobTo AsNew PgSqlBlob
......
' reverse PgSqlBlob
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