IMAGEM NO FIREBIRD

  [ô]converte foto em bytes para banco de dados (usando uma classe)

Imports System.IO

Public Class clasGERAL
    Public Shared Function psfuFOTO2BYTE(ByVal strARQUIVOIMAGEM As String) As Byte()
        Dim fstARQUIVO As FileStream = New FileStream(strARQUIVOIMAGEM, FileMode.Open, FileAccess.Read)
        Dim breARQUIVO As BinaryReader = New BinaryReader(fstARQUIVO)
        Dim bytIMAGEM() As Byte = breARQUIVO.ReadBytes(fstARQUIVO.Length)
        breARQUIVO.Close()
        fstARQUIVO.Close()
        Return bytIMAGEM
    End Function