it works!  Thank you, Roland Smith, David Peace. 

To Roland Smith,With your winhttp object, it works well! 

here is my code:

string xml
string ls_response
long  ll_length

inv_winhttp.Open("post", is_wsdl)
//the following line is no use.
//inv_winhttp.SetRequestHeader("Expect100Continue", "false")    
inv_winhttp.SetRequestHeader("Content-Type", "text/xml;charset=utf8")

xml =  ''
xml += '   '
xml += '   '
xml += '      '
xml += '         ' + is_user + ''
xml += '         '+is_pwd+''
xml += '         '+is_companycode+''
xml += '         '+is_version+''
xml += '         '+as_datatype+''
xml += '         '+as_sign+''
xml += '         '
xml += '      '
xml += '   '
xml += ''

ll_length = inv_winhttp.Send(xml)
If ll_length >= 0 Then
	ls_response = inv_winhttp.ResponseText
Else
	MessageBox("HTTP Post Error #" + &
					String(inv_winhttp.LastErrorNum), &
					inv_winhttp.LastErrorText, StopSign!)
End If

//here seems a little stupid. how to work with the response easily?
ls_response = gn_app.inv_strsrv.of_GlobalReplace(ls_response, "<", "<")
ls_response = gn_app.inv_strsrv.of_GlobalReplace(ls_response, ">", ">")
ls_response = gn_app.inv_strsrv.of_GlobalReplace(ls_response, """, '"')
ls_response = mid(ls_response, pos(ls_response, "") + 8)
ls_response = mid(ls_response, 1, pos(ls_response, "") - 1)


return ls_response

Hi

We have some coade that makes a soap call using Rolands Stuff, the importnat part is the message header, see below.

Blob lblob_data, lblob_response
string ls_mimetype, ls_response, ls_return, ls_test
Integer li_rc, li_fnum
ULong lul_length
n_winhttp ln_http

// Validate data is set up correctly
if isnull(is_username) or isnull(is_password) or isnull(is_hotel) or isnull(is_hotel_code) then return false
if trim(is_username) = '' or trim(is_password) = '' or trim(is_hotel) = '' or trim(is_hotel_code) = '' then return false

if isnull(as_message) or trim(as_message) = '' then return false

// Get a new messageid
of_messageid( long(string(today(), 'yyyymmdd')), long(string(now(),'hhmmss')), 999, 1234, 10000001)

// Build Message
lblob_data = blob(of_message_header(true) + &
    '' + &
    '' + as_message + '',  EncodingANSI!)

// Get mimetype
ls_mimetype = ln_http.GetMIMEType('', lblob_data)

// Store the XML for now
ls_test = string(lblob_data, EncodingANSI!)

// Post SOAP Call
lul_length = ln_http.Postsoap(of_url(), &
            lblob_data, ls_mimetype, lblob_response,'OTA_PMS')
If lul_length > 0 Then
    // Data Returned
    ls_response = String(lblob_response, EncodingAnsi!)
    if pos(ls_response, 'Success') > 0 then
        ls_return = mid(ls_response, pos(ls_response, 'EchoData>') + 9, pos(mid(ls_response, pos(ls_response, 'EchoData>') + 10), '<') )
        if ls_return = as_message then
            Return True
        end if
    end if
    as_message = of_geterror(ls_response)
    return false
End If
ln_http.getlasterror( )
as_message = ln_http.lasterrortext
Return False

-------------------------------------------------------------------------------------------------------------------------------

Important bit, Message header function

string ls_header

long ll_cnt
string ls_mimetype, ls_response, ls_test
n_winhttp ln_http
ulong lul_length


of_messageid( long(string(today(), 'yyyymmdd')), long(string(now(),'hhmmss')), 999, 1234, 10000001)

ls_header = '' + &
    '
    'xmlns:ns ="http://www.opentravel.org/OTA/2003/05" ' + &
    'xmlns:oas ="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd" ' + &
    'xmlns:add ="http://schemas.xmlsoap.org/ws/2004/08/addressing">' + &
    '' + &
    '

    ls_header += ':mustUnderstand = "1">'
    ls_header += '' + is_username + '' + &
                        '' + is_password + '' + &
                        ' ' + &
                        '' + is_messageid + ' '

    ls_header +=     'http://www.myhotel.com/ws/ota' + &
                            'http://www.myhotel.com/ws/ota/OTA_ReadRQ' + &
                            'http://schemas.xmlsoap.org/ws/2004/12/addressing/role/anonymous'
    ls_header += '    '
    
return ls_header

Hope that this helps.

anyone can give me a suggestion?

I read David's post and it seems as though somehow your client call is passing 'Expect: 100-continue' and the web service does not support that feature so it responds with the 417 Expectation Failed. You need to figure out how to stop your client from sending the expectation.

You haven't given us any details on how you are calling the web service so we can't be any more specific.

Hi

This article does explain the issue quite well:

https://knowledge.ni.com/KnowledgeArticleDetails?id=kA00Z0000019LuWSAU&l=en-GB

It talks about the client sending the continue request if the message is over 1024 characters and is expecting a continue response from the server. If the server gives a 417 then it is saying no don't send that message.

Their work around is to not request continue on larger messages. The client HTTP header has Expect: 100-continue.

I know that this does not answer your question, but may help you to understand why they are suggesting the change.

You could try reducing the size of the message somehow?

Cheers