VB Forum / General 2 / April 2007

I am trying to write an application that will eventually be made as a
Subroutine in another VB6 application.

We have a Java intranet server that serves HTTP requests such as
GetNextOrderNumber, which is supposed to retrieve an order number for
the program to use and advance the next order number by one.  Within
the application that uses this, it works great.

However, I'm having to interface to the Servlet that was programmed by
someone else outside the company.  I would like to call this
procedure, so I got the Request XML format that it needs to work:

<Request>
     <type>getNextSalesOrderNumber</type>
</Request>

I saved this to a file known as Request.xml.  I then made some code
using examples from the internet:

Sub Main()
   Dim xmlhttp As New MSXML2.XMLHTTP40
   Dim objdom As New MSXML2.DOMDocument40
   objdom.Load "C:\request.xml"
   xmlhttp.open "POST", "http://jomar-new:85/xssqlbd/ObjServer"
   xmlhttp.send objdom

   Debug.Print xmlhttp.responseText 'Get response generated by the
server
End Sub

When I run the program, I get nothing in the Debug window, and this
error pops up in the log file:

[2007.04.27_15.48.16] [195.1.2.45] reading Object
Error :java.io.StreamCorruptedException: invalid stream header
[2007.04.27_15.48.16] [ObjServer] java.lang.NullPointerException

I know I'm missing some code, but I can't seem to find the XML header
file I need.

<?xml version="1.0" encoding="UTF-8"?>
Is the only line I have for a header.

I want to learn, but time is a little tight.  Can someone point me to
something that will tell me what I'm doing wrong?  (by the way, all IP
addresses shown are private)