Other JRDC2 remote BLOB

[Rachbob]

Hello
I need to download images from a remote database (BLOB). please i want some code samples. thank you.

 

[Erel]

No need to do anything special. You work with BLOBs exactly as you work with other fields.

jRDC2 is explained here: [B4X] jRDC2 - B4J implementation of RDC (Remote Database Connector)

 

[Rachbob]

thanks Erel for reply.
i tried the code below but it doesn't work. could you please see what is wrong. thanks again..

Sub GetImage
    
    Dim req As DBRequestManager = CreateRequest
    Dim cmd As DBCommand = CreateCommand("select_all", Null)
  
    Wait For (req.ExecuteQuery(cmd, 0, Null)) JobDone(j As HttpJob)
    If j.Success Then
        req.HandleJobAsync(j, "req")
        Wait For (req) req_Result(res As DBResult)
        'work with result
        Dim Blob As Byte
        Blob = req.BytesToImage(res.Rows)
        ImageView1.Bitmap=LoadBitmap(Blob,"")
        
        req.PrintTable(res)
    Else
      
        Log("ERROR: " & j.ErrorMessage)
    End If
    j.Release
  
   End Sub

 

[Johan Hormaza]

thanks Erel for reply.
i tried the code below but it doesn't work. could you please see what is wrong. thanks again..

Sub GetImage
   
    Dim req As DBRequestManager = CreateRequest
    Dim cmd As DBCommand = CreateCommand("select_all", Null)
 
    Wait For (req.ExecuteQuery(cmd, 0, Null)) JobDone(j As HttpJob)
    If j.Success Then
        req.HandleJobAsync(j, "req")
        Wait For (req) req_Result(res As DBResult)
        'work with result
        Dim Blob As Byte
        Blob = req.BytesToImage(res.Rows)
        ImageView1.Bitmap=LoadBitmap(Blob,"")
       
        req.PrintTable(res)
    Else
     
        Log("ERROR: " & j.ErrorMessage)
    End If
    j.Release
 
   End Sub

        ImageView1.Bitmap = req.BytesToImage(res.Rows)

 

[Rachbob]

        ImageView1.Bitmap = req.BytesToImage(res.Rows)

it gives error

:

 

[Erel]

it gives error

Please post it as text. Right click to copy.

Your code cannot work. It has nothing to do with blobs. Watch the video tutorial. It explains how to access items.

Something like:

For Each row() As Object In res.Rows
 Dim blob() As Byte = row(res.Columns.Get("BlobColumn"))
 'now convert it to an image
Next

 

[Rachbob]

yuppiii it works now ?
thanks a lot Erel .

 

[NamR]

Hello
I need to download images from a remote database (BLOB). please i want some code samples. thank you.

Hi Rachbob,

How did you save the images into the database?

Thank you.

 

[amorosik]

yuppiii it works now ?
thanks a lot Erel .

Is it possibile to see the correct code used?