Android Question File.Copy2 other Option ? not to Close the InputStream

[alienhunter]

hi to All ,

I am reading a Blob from a Sql and output it as a Jpg File but File.Copy2 closes the stream
Is there another option ? not to close the Inputstream ?

thanks AH

Private Sub ReadBytesFully(In As InputStream, Data() As Byte, Len As Int) As Byte()
  Dim count = 0, read As Int
  Do While count < Len AND read > -1
    read = In.ReadBytes(Data, count, Len - count)
    count = count + read
  Loop
   
 
  File.Copy2(In,File.OpenOutput(File.DirRootExternal,"3.jpg",False))
  Return Data
 
 
 
End Sub

 

[Erel]

See the ReadBlob method in the tutorial: http://www.b4x.com/android/forum/threads/sql-tutorial.6736/

 

[alienhunter]

See the ReadBlob method in the tutorial: http://www.b4x.com/android/forum/threads/sql-tutorial.6736/

Sorry but i have to bug you again
this is in the Class Module DBRequestManager

i want to have 6 Pictures saved from the SQL to the sd Card when read the row
there will be always 6 in there


In the read module (Case T_BLOB) i put the read out but i cannot figure out how to keep the stream
open to read all other pictures (it reads just one ...) because the" File.Copy2(In,out) " closes the stream
Or is there a better way ...

Private Sub ReadObject(In As InputStream) As Object
    Dim data(1) As Byte
    In.ReadBytes(data, 0, 1)
    Select data(0)

.....

        Case T_BLOB
            Dim len As Int = ReadInt(In)
            Dim data(len) As Byte
            Log( "PIC"& data.Length)
          
      
    Log( "PIC1")
    Dim out As OutputStream
    out=File.OpenOutput(File.DirRootExternal,"12.jpg",False)
    File.Copy2(In,out)
    out.close

      Return ReadBytesFully(In, data, data.Length)
          
          
        Case Else

thanks AH

 

[Erel]

Are you modifying DBRequestManager code? Or am I missing something...

 

[alienhunter]

no you are not (desperate measures ..)
trying hard to get this going
but i cannot find any reference how to ...

AH

 

[Erel]

You shouldn't modify or add any code in DBRequestManager, it is not needed and will only cause problems.

You should get the DBResult and then fetch the fields. The BLOBs will already be there.

 

[alienhunter]

Thanks for your Help Erel
my brain...t


i got it now ....
works like a charm

   If Job.JobName = "DBRequest" Then
  Dim result As DBResult = reqManager.HandleJob(Job)
  '  If result.Tag = " " Then 'query tag
  For Each records() As Object In  result.Rows
     
      Dim name As String=records(0)
      Dim name1 As String=records(1)
      Dim name2 As String=records(2)
      Dim name3 As String=records(3)
      Dim name4 As String=records(4)
      Dim name5 As String=records(5)

   Dim data() As Byte =records(14)' records(result.Columns.Get("jobnr"))
      Dim Ini As InputStream
      Ini.InitializeFromBytesArray(data,0,1)
      Log(data.Length)
      Dim out As OutputStream
      If File.Exists(File.DirRootExternal,"99.jpg") Then
      File.Delete(File.DirRootExternal,"99.jpg")
      End If
      out=File.OpenOutput(File.DirRootExternal,"99.jpg",True)
      out.WriteBytes(data, 0, data.Length)
      'File.Copy2(Ini,out)
      out.Flush
      out.Close

  Log(name&name1&name2&name3&name4&name5&data.Length)
  Next

thanks again

 

[Erel]

You should use File.Copy2 instead of WriteBytes. It is more efficient.

 

[alienhunter]

You should use File.Copy2 instead of WriteBytes. It is more efficient.

Thanks Erel but File.copy2 returns only 1 Byte ? (see jpg)

AH

If Job.JobName = "DBRequest" Then
      Dim result As DBResult = reqManager.HandleJob(Job)
    '  If result.Tag = " " Then 'query tag
        For Each records() As Object In  result.Rows
      
          Dim name As String=records(0)
          Dim name1 As String=records(1)
          Dim name2 As String=records(2)
          Dim name3 As String=records(3)
          Dim name4 As String=records(4)
          Dim name5 As String=records(5)
        
          Dim data() As Byte =records(14)' records(result.Columns.Get("jobnr"))
          Dim Ini As InputStream
          Ini.InitializeFromBytesArray(data,0,1)
          Log(data.Length)
          Dim out As OutputStream
          If File.Exists(File.DirRootExternal,"99.jpg") Then
            File.Delete(File.DirRootExternal,"99.jpg")
          End If
          out=File.OpenOutput(File.DirRootExternal,"99.jpg",True)
          'out.WriteBytes(data, 0, data.Length)
          File.Copy2(Ini,out)
          out.Flush
          out.Close
        
          Dim data() As Byte =records(15)' records(result.Columns.Get("jobnr"))
          Dim Ini As InputStream
          Ini.InitializeFromBytesArray(data,0,1)
          Log(data.Length)
          Dim out As OutputStream
          If File.Exists(File.DirRootExternal,"100.jpg") Then
            File.Delete(File.DirRootExternal,"100.jpg")
          End If
          out=File.OpenOutput(File.DirRootExternal,"100.jpg",True)
          out.WriteBytes(data, 0, data.Length)
          'File.Copy2(Ini,out)
          out.Flush
          out.Close

 

[Erel]

Change this line:

Ini.InitializeFromBytesArray(data,0,1)
'Should be:

Ini.InitializeFromBytesArray(data,0,data.length)

 

[alienhunter]

thanks
works my fault ....