Sending picture via HTTPRequest

[alisa.nua]

How to send a picture into SOAP body?
I try to send a string using the code below but it does not work :

Code: Select all

Call SalFileOpen( hFile, "close_16.bmp", OF_Read | OF_Binary )
Call VisFileSeek( hFile, 0, SEEK_End )
Set nPicByteSize = VisFileTell( hFile ) 
Call VisFileSeek( hFile, 0, SEEK_Begin) 
Call SalFileRead( hFile, sPic, nPicByteSize )
Call VisFileClose( hFile )
Set sXMLParameterBody = '<TestGetPicString xmlns="http://tempuri.org/">
			<Pic>' || sPic || '</Pic></TestGetPicString>'

The result of sXMLParameterBody is :
sXMLParameterBody = '<TestGetPicString xmlns="http://tempuri.org/">
<Pic>䵂̶"'
This part '</Pic></TestGetPicString>' is missing and I cannot call the webservice.

I cannot find other solutions, any thoughts?

[Dave Rabelink]

The issue is that you concatenate the image data (which is binary) into your overall string.
This will never work as binary data contains NULL values and will cut off the resulting string up to the NULL character.

How it should be done is purely dependent on how the server (the webservice) expects the image data to be handled.
So, you first have to read the documentation about the webservice how the image data has to be provided.
There are several implementations possible, so you client must use the one the webservice demands.

Probably the image data has to be provided as Base64 encoding. This is a string representation of the data.

Example Base64 encoded string:

Code: Select all

VEhJUyBJUyBBIFRFU1Q=

When the image has to be provided as Base64, you have to convert the sPic variable contents first from binary to Base64.
Use the WinApi for that, explained here:

https://msdn.microsoft.com/en-us/librar ... s.85).aspx


Fortunately, there is already a TD sample for this, have a read here:

https://wiki.tdcommunity.net/index.ph ... ryToString

When the sPic value is converted and stored in sPicBase64 variable, you can concatenate it in the SOAP message.

[alisa.nua]

I was going for Base64 encoding at first but I don't know how to convert it using Gupta function.
I will try to follow the samples.

Thank you Dave.

[Dave Rabelink]

I will try to follow the samples.

As a quick start:

- Download the sample WIKI_CryptBinaryToString.zip for the needed functions
- Include this file in your project : PALCryptBinaryToString_UNICODE.apl

Then use this code to convert your sPic to sPicBase64:

Code: Select all

Call PALCryptBinaryToString( sPic, CRYPT_STRING_BASE64, sPicBase64 )

[alisa.nua]

I got it Dave. Thank you!!!

[Jeff Luther]

Alisa - FYI, I have several crypto-type samples on my TD page: http://www.jeffluther.net/TD/#Code_Samples

Dave gave you a Base64 solution already, but you or others might find others of my crypto samples to be handy as well. The samples should work for any TD version through v7.

[alisa.nua]

I find many of them very useful.
Thank you Jeff.

[Jeff Luther]

You are welcome, Alisa. Happy to help!