Dim InputStream1 As InputStream
InputStream1 = File.OpenInput(File.DirAssets,"7.jpg")
Dim OutputStream1 As OutputStream
OutputStream1.InitializeToBytesArray(1000)
File.Copy2(InputStream1, OutputStream1)
Dim Buffer() As Byte 'declares an empty array
Buffer = OutputStream1.ToBytesArray
Log(" Buffer " & Buffer.Length)
cmd.Initialize
cmd.Name = "insert_animal"
cmd.Parameters = Array As Object(jobnr1.Text,Array As Object(Buffer) )
reqManager.ExecuteCommand(cmd,1)