Spanish JRDC2 - B4A imagen/blob

If ct = -2 Or ct = 2004 Or ct = -3 Or ct = -4 Then
   'row(i) = rs.GetBlob2(i) old
   '---------------------------------------------
   'blob guardo Directorio + imagen.xxx
    Dim DirFile As String = FileToString(rs.GetBlob2(i)) 'new
    row(i) = FileToBytes2(DirFile) 'new
   '---------------------------------------------

Private Sub FileToString(Df() As Byte) As String
    
    Dim DirFilename As String = BytesToString(Df, 0, Df.Length, "UTF8")
'    Log (DirFilename)
    Return DirFilename
End Sub

Private Sub FileToBytes2(DirFilename As String) As Byte()
    'Modificado
    Dim  imageDir As String
    Dim  imageFile As String
    
    imageDir  = File.GetFileParent(DirFilename)
    imageFile = File.GetName(DirFilename)
    
    Return Bit.InputStreamToBytes(File.OpenInput(imageDir, imageFile))
    
End Sub