WebService Return view problem

[Alberto]

Hi, I have a ws that returna a view of products, all works ok
Now I need to add the produc Image which is in a blob in another File.
And because its a binary blob I need to convert it to Base64.
How to do it?

Ive modified the View as :

Code: [Select]

view_arts                 VIEW(FactArts)
                            Project(Art:IZarticulo)
                            Project(Art:DESCRIPCION)
                            Project(Art:ULT_PRECIO)
                            Project(Art:GuidBlob)
! Start of "Additional View Fields"
! [Priority 5000]
                                JOIN(SBL:GUID,Art:GuidBlob)
                                    project(SBL:DATOBLOB)
                                END

! End of "Additional View Fields"
                          END
Is this ok?
Where and how to convert SBL:DATOBLOB to Basse64?

[Bruce]

Are you planning for your webservice to return JSON, XML or either?

cheers
Bruce

[Alberto]

XML, mostly because de WS Documentation are only in XML

Do I have to make a Queue, using a st field for the blob, fill it with a loop and Encode64 with st.encode?
Will Nt service a queue with a st in it?

[Bruce]

>> XML, mostly because de WS Documentation are only in XML

why is the doc only in XML and not JSON as well?

To do what you want;
a) make a local variable called say
str  StringTheory
in the data section of the procedure

then, for XML...

xml.SaveCurrentFieldToXML      Procedure (Long p_x,Long p_DimCounter,String p_name)
! Start of "Data of xml.SaveCurrentFieldToXML"
! [Priority 5000]

! End of "Data of xml.SaveCurrentFieldToXML"
  CODE
  ! Start of "Start of xml.SaveCurrentFieldToXML"
  ! [Priority 5000]
  case p_name
  of 'IMAGE'
     str.FromBlob(CUS:Image)
     str.Base64Encode()       
     self.CurrentField &= str.GetValuePtr()
  END 


Cheers
Bruce

[Alberto]

Thanks, but stilll a problem
Im adding the blob field to the Additional view fields:

view_arts                 VIEW(FactArts)
                            Project(Art:IZarticulo)
                            Project(Art:DESCRIPCION)
                            Project(Art:ULT_PRECIO)
                            Project(Art:GuidBlob)
! Start of "Additional View Fields"
! [Priority 5000]
                            Join(SYS_BLOBS,'SBL:GUID = Art:GuidBlob')
                                    project(SBL:DATOBLOB)
                            END

! End of "Additional View Fields"
                          END

also see pic, but this field is not returned by the ws.

Example Response

HTTP/1.1 200 OK
Content-Type: text/xml; charset=utf-8
Content-Length: length

<?xml version="1.0" encoding="utf-8"?>
<soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
  <soap:Body>
    <samiApiArticulos_response xmlns="samiApi">
      <Articulos>
        <Articulo>
          <IZARTICULO>value</IZARTICULO>
          <DESCRIPCION>value</DESCRIPCION>
          <ULT_PRECIO>value</ULT_PRECIO>
          <GUIDBLOB>value</GUIDBLOB>
        </Articulo>
      </Articulos>
    </samiApiArticulos_response>
  </soap:Body>
</soap:Envelope>

FWIW, Ive added:
p_web.AddLog(p_name)
In the xml.SaveCurrentFieldToXML routine and the field never reachs this routine.

Also is weird to see this:

  Case p_name
  of 'ULT_PRECIO'
    self.FormattedCurrentField = clip(left(p_web.FormatValue(self.CurrentField,'@n10.2',net:ExpandIfNeeded)))
    self.CurrentField &= self.FormattedCurrentField
  of 'ts'
    self.FormattedCurrentField = clip(left(p_web.FormatValue(self.CurrentField,'@n10.2',net:ExpandIfNeeded)))
    self.CurrentField &= self.FormattedCurrentField
  of 'sts'
    self.FormattedCurrentField = clip(left(p_web.FormatValue(self.CurrentField,'@n10.2',net:ExpandIfNeeded)))
    self.CurrentField &= self.FormattedCurrentField
  of 'dts'
    self.FormattedCurrentField = clip(left(p_web.FormatValue(self.CurrentField,'@n10.2',net:ExpandIfNeeded)))
    self.CurrentField &= self.FormattedCurrentField
  End

The only field in the view is ULT_PRECIO why ts, dts, sts? and why ULT_PRECIO and not the others.

[Bruce]

I guess you'll need to post an example app so I can see what you are doing.

cheers
Bruce

[Alberto]

Cant make an example app because it works with a huge MsSql database.

Im trying to response with a blob field.
I tried with the web77 example and it works but I cant make it work in my app.

Only difference I note is that Im using MsSql instead of TPS files.

This is the response view:
FactArtsView              VIEW(FactArts)
                            Project(Art:GUID)
                            Project(Art:IZarticulo)
                            Project(Art:DESCRIPCION)
                            Project(Art:COD_BARRAS)
                            Project(Art:ULT_PRECIO)
                            Project(Art:GuidBlob)
                            Join(SYS_BLOBS,'SBL:GUID = Art:GuidBlob')
                                    project(SBL:TimeStamp) !this is for testing the join
                                    project(SBL:DATOBLOB) !this is the blob,binary field
                            END
                          END

This is the result XML:
        <Articulo>
          <art_guid>value</art_guid>
          <art_izarticulo>value</art_izarticulo>
          <art_descripcion>value</art_descripcion>
          <art_cod_barras>value</art_cod_barras>
          <art_ult_precio>value</art_ult_precio>
          <art_guidblob>value</art_guidblob>
          <ts>value</ts>
        </Articulo>

as you can see SBL:DATOBLOB is not in the result

Ive added code to :

xml.SaveCurrentFieldToXML      Procedure (Long p_x,Long p_DimCounter,String p_name)
  CODE
  p_web.AddLog(p_name)

All fields exept SBL:DATOBLOB are in the log

What else can I check?

PD:  look at
<ts>value</ts> it does not has a prefix, what if I need the ts from more than one file?

[Bruce]

Hi Alberto,

>> <ts>value</ts> it does not has a prefix, what if I need the ts from more than one file?

Since the value is inside a record structure ( <Articulo>) you should be ok.
Bear in mind that it only has <ts> there because that's the external name set in the dict. You can change this if you like (although it's not recommended - because that name may be fixed for mobile apps.)

Since you can't make an example I suggest you start by debugging the VIEW itself.
ie write a code loop that opens the tables, and the view, and manually loops through it, and see if you are getting the Joined values correctly. Specifically if you are getting the joined blob back from the server.

The fact that you are not getting the blob name back suggests that you're not getting the blob back either. But first step is to verify this.

Cheers
Bruce

[Alberto]

Ok, Ive coded:

Code: [Select]

        do OpenFiles
        open(FactArtsView)
        set(FactArtsView)
        LOOP
            next(FactArtsView)
            if error() then p_web.AddLog(error()) ; break END
            p_web.AddLog(Art:IZarticulo&' '&SBL:TimeStamp&' '&SBL:DATOBLOB{PROP:Size})
        END
        In the ws method proc, I had to use SBL:DATOBLOB{PROP:Size} for not having an error in addlog.
The result Log is in the attached pic.

I dont know why all SBL:DATOBLOB{PROP:Size} are the same: 304240.

If I query:
select len(datoblob),* from sys_blobs
in the MsSql QA I get a different length for each blob, see pic.

Ive done a Profiler and what the proc sends to the MsSql server is:

Code: [Select]

SELECT  A.GUID, A.ts, A.sts, A.dts, A.ID, A.IZARTICULO, A.IZsubrubro, A.IZRUBRO, A.ESCALA1, A.ESCALA2, A.DESCRIPCION, A.COD_BARRAS, A.COMPUESTO_X, A.STOCK_ACT, A.ULT_PRECIO, A.ESTACION, A.COMPPPALDESC, A.UBICACION1, A.NIVELROTACION,
B.GUID, B.ts, B.sts, B.dts, B.DATOBLOB
FROM  FactArts A LEFT OUTER JOIN SYS_BLOBS B ON  B.GUID =  A.GUIDBLOB

1rst thing I noted is that there are other fields than whats asked in the View... why? the FactArts table has more than 80 fields, why are these fields added to the query?

But the resultset is ok, theres the blob.

Any other thing to check?

[Alberto]

Bruce please...

[Bruce]

Hi Alberto,

Unfortunately I don't have any useful suggestion to add. At this stage you just need to debug it to see where the View is being used, and hence where the blob is not appearing.

cheers
Bruce

[Alberto]

OK, I worked with Alejandro Elias and Robert in the Sat webinar and we could not fix the issue.
Then I work to extract an example that can be sent to you.
Attached goes TestWs.zip which has a folder with a complete sln with Test_ws.exe and Test_data.dll over winsami.dct
It fails to add the DatoBlob field from the SYS_BLOB file, you dont even have to install the Sql Database and connect to it. (a little database backup is attached too: TestBlob.zip)
Just run Test_ws.exe and browse localhost:88/sync?syncSYS_BLOBS
You will get:

Code: [Select]

List: sys_blobs
guid (string)
ts (int)
sts (int)
dts (int)
the field DATOBLOB is not there

Whats wrong?
Thanks

[Alberto]

Please Bruce, could you take a look at this?
Thanks

[Alberto]

Bruce, if you dont want to loose time looking at my app, which I understand, you can easily make an API proc just using my dct and try to Return the SYS_BLOBS file.
The DatoBlob field is not there.
Attached goes my dct file.
Thanks