Hello Rick

I have been developing n-tier application with Web Connection 7.02 and it has thick client. I need to convert image file to XML and I want to make it using wwXML.

For a few days, I tried it but I haven't made it.

help me out, Please.

Yonggu

Should be easy enough. Make sure you cast your binary data to BLOB.

DO wwXML
loXml = CREATEOBJECT("wwXML")
loObj = CREATEOBJECT("EMPTY")
ADDPROPERTY(loObj,"FirstName","Rick")
ADDPROPERTY(loObj,"RawData")

*** Assign some binary data
loObj.RawData = CAST( "434234234234" + CHR(0) + "More data" as Blob)

? loObj.FirstName
? loObj.RawData

lcXml = loXml.ObjectToXml(loObj, "persondata")
? lcXML
_cliptext = lcXML

This produces:

<?xml version="1.0"?>
<xdoc>
	<persondata type="object" class="empty">
		<firstname>Rick</firstname>
		<rawdata>343334323334323334323334004D6F72652064617461</rawdata>
	</persondata>
</xdoc>

+++ Rick ---

Thanks Rick.

I can now convert image file to XML using wwXML.

But, I have a another problem now.
The problem is how to convert xml to image file.

This is my sample code and it doesn't work.

CLEAR

DO wwXML loXml = CREATEOBJECT("wwXML")

loObj = CREATEOBJECT("EMPTY")
ADDPROPERTY(loObj,"FirstName","Rick")
ADDPROPERTY(loObj,"RawData")

*** Assign some binary data
loObj.RawData = CAST( FILETOSTR("c:\temp\test.jpg") as Blob)

? loObj.FirstName
? loObj.RawData

lcXml = loXml.ObjectToXml(loObj)

LOCAL loResult
loResult = CREATEOBJECT("EMPTY")
ADDPROPERTY(loResult,"FirstName","Rick")
ADDPROPERTY(loResult,"RawData")

loResult = loXML.XMLToObject(lcXml, loResult)

?loResult.FirstName
?loResult.RawData

Actually after doing some more checking - it's not supported in either direction. The output generated is binhex encoded which is just the default for TRANSFORM() on a blob value.

I've added functionality to properly handle binary (Blob or type Q) content which should be base64 encoded. It'll be in the next update.

+++ Rick ---

Hi Rick.

I am developing new application so that I really need the functionality that you have added. If I have to wait for the next update, maybe it will be a hard time to me.

I don't know what to do, is there any way I can get it before the next update?

Think positively, please.

Yonggu

You can easily do what you need to for now.

You can serialize using the current code. Then deserialize the binary data into a string and manually convert with for

loObj.RawData = ""  && Assume string
loObj.FirstName = ""

loXml.XmlToObject(lcXml,loObj)

? loObj.FirstName
? loObj.RawData  && bin Hex string

*** Convert back to binary
loObj.RawData = CAST( STRCONV(loObj.RawData,16) as Blob)
? loObj.RawData

The updated wwXML code will serialize to base64 and automatically deserialize. That code is then simpler:

loObj.RawData = CAST(CHR(0) as BLOB)  && set a binary value
loObj.FirstName = ""

loXml.XmlToObject(lcXml,loObj)

? loObj.FirstName
? loObj.RawData  && binary data

+++ Rick ---

Please use the code markup features in your messages when you post here. Click the </> button to paste your hightlight your code.

I am sorry that I didn't know the code markup features.
I am going to post again.

The code that you showed me is very helpful.

Everything is going well when wwXML.nCreateDataStructure is 0. But, when wwXML.nCreateDataStructure is 1, there is something wrong.

What do you think is the problem?

DO wwXML

loXml = CREATEOBJECT("wwXML")  
loXML.nCreateDataStructure = 1
	
*--->
loObj = CREATEOBJECT("EMPTY")  
ADDPROPERTY(loObj,"FirstName","Rick")  
ADDPROPERTY(loObj,"RawData")

*** Assign some binary data
loObj.RawData = CAST( FILETOSTR("c:\temp\test.jpg") as Blob)

*? loObj.FirstName  
*? loObj.RawData

lcXml = loXml.ObjectToXml(loObj)


LOCAL loResult  
loResult = .NULL.

loResult = loXML.XMLToObject(lcXml, loResult)

loResult.RawData = CAST( STRCONV(loResult.RawData, 16) as Blob)

?STRTOFILE(loResult.RawData, "c:\temp\test_result.jpg")

The problem is that the binary code is not supported there.

I think the easiest solution for now is to manually encode to base64 and store the data as text when serializing, then retrieve the text on the way out and convert back from base64.

I'm going to push out an update shortly but there are a few other things int he serializer that don't work right that I'm fixing while I'm at it. I haven't looked at this XML code in a long time...

If you're using two way serialization (ie. you own both sides of the connection) then maybe using JSON is a better choice? That just works now.

+++ Rick ---