Problem with web service (WinCe - WebServiceToolkit, server -
Glassfish Java)
lazarus / 38-Networking and Web Programming

----------------------------------------------------------------------
jjmamby · 2012-03-01 23:06

Well, I'm trying to call a web service from a terminal with a wince
operating system, points to the web service in glassfish server, now
successfully connected but both the response as the request, send null
data. in glassfish server shows me the following warning

Received WS-I BP non-conformant Unquoted SoapAction HTTP header

There is something I have to take into account for the generation of
the wsdl?




WSDL

<definitions xmlns="http://schemas.xmlsoap.org/wsdl/"
             xmlns:soap12="http://schemas.xmlsoap.org/wsdl/soap12/"
             xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/"
             xmlns:xsd="http://www.w3.org/2001/XMLSchema"
             xmlns:mime="http://schemas.xmlsoap.org/wsdl/mime/"
             xmlns:tns="http://workabaout.gpc.com/"    
             name="ContainerDataFacadeBeanService"
             targetNamespace="http://workabaout.gpc.com/">
    <types>
        <schema xmlns="http://www.w3.org/2001/XMLSchema"
                   xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/"
                   xmlns:xsi="http://www.w3.org/2001/XMLSchema-
instance"
                 
 xmlns:soap11-enc="http://schemas.xmlsoap.org/soap/encoding/"
                   targetNamespace="http://workabaout.gpc.com/">
          
            <complexType name="findEmptyContainer">
                <sequence>
                    <element name="containerNumber" type="string"
minOccurs="0" />
                    <element name="shippingLine" type="string"
minOccurs="0" />
                    <element name="type" type="string" minOccurs="0"
/>
                    <element name="size" type="string" minOccurs="0"
/>
                </sequence>
            </complexType>

            <complexType name="findEmptyContainerResponse">
                <sequence>
                    <element name="return" type="tns:containerData"
minOccurs="0" />
                </sequence>
            </complexType>

            <complexType name="containerData">
                <sequence>
                    <element name="containerNumber" type="string"
minOccurs="0" form="qualified" />
                    <element name="containerSize" type="string"
minOccurs="0" form="qualified" />
                    <element name="containerType" type="string"
minOccurs="0" form="qualified" />
                    <element name="portCode" type="string"
minOccurs="0" form="qualified" />
                </sequence>
            </complexType>

            <complexType name="findDataInBatch">
                <sequence>
                    <element name="containerNumbers" type="string"
minOccurs="0" maxOccurs="unbounded" />
                    <element name="shippingLine" type="string"
minOccurs="0" />
                    <element name="type" type="string" minOccurs="0"
/>
                    <element name="size" type="string" minOccurs="0"
/>
                </sequence>
            </complexType>

            <complexType name="findDataInBatchResponse">
                <sequence>
                    <element name="return" type="tns:containerData"
minOccurs="0" maxOccurs="unbounded" />
                </sequence>
            </complexType>
           
            <element name="findDataInBatch" type="tns:findDataInBatch"
/>

            <element name="findDataInBatchResponse"
type="tns:findDataInBatchResponse" />

            <element name="findEmptyContainer"
type="tns:findEmptyContainer" />

            <element name="findEmptyContainerResponse"
type="tns:findEmptyContainerResponse" />
        </schema>
    </types>
    <message name="findEmptyContainer">
        <part name="parameters" element="tns:findEmptyContainer" />
    </message>
    <message name="findEmptyContainerResponse">
        <part name="parameters"
element="tns:findEmptyContainerResponse" />
    </message>
    <message name="findDataInBatch">
        <part name="parameters" element="tns:findDataInBatch" />
    </message>
    <message name="findDataInBatchResponse">
        <part name="parameters" element="tns:findDataInBatchResponse"
/>
    </message>
    <portType name="ContainerDataFacade">
        <operation name="findEmptyContainer">
            <input message="tns:findEmptyContainer" />
            <output message="tns:findEmptyContainerResponse" />
        </operation>
        <operation name="findDataInBatch">
            <input  message="tns:findDataInBatch" />
            <output message="tns:findDataInBatchResponse" />
        </operation>
    </portType>
    <binding name="ContainerDataFacadeBeanPortBinding"
type="ns1:ContainerDataFacade">
        <soap:binding transport="http://schemas.xmlsoap.org/soap/http"
style="document" />
        <operation name="findEmptyContainer">
            <soap:operation soapAction="http://workabaout.gpc.com/Cont
ainerDataFacade/findEmptyContainer" />
            <input>
                <soap:body use="literal" parts="parameters"/>
            </input>
            <output>
                <soap:body use="literal" parts="parameters"/>
            </output>
        </operation>
        <operation name="findDataInBatch">
            <soap:operation soapAction="http://workabaout.gpc.com/Cont
ainerDataFacade/findDataInBatch" />
            <input>
                <soap:body use="literal" parts="parameters"/>
            </input>
            <output>
                <soap:body use="literal" parts="parameters"/>
            </output>
        </operation>
    </binding>
    <service name="ContainerDataFacadeBeanService">
        <port name="ContainerDataFacadeBeanPort"
binding="tns:ContainerDataFacadeBeanPortBinding">
            <soap:address location="http://e-
0297:8080/ContainerDataFacadeBeanService/ContainerDataFacadeBean" />
        </port>
    </service>
</definitions>



Program in lazarus

procedure TForm1.Button1Click(Sender: TObject);
var
  locService : ContainerDataFacade;
  //resu : string;
  rqst : findEmptyContainer_Type;
  rsps : findEmptyContainerResponse;
begin
  INDY_RegisterHTTP_Transport();
  rqst:= findEmptyContainer_Type.Create();
  try
    locService := wst_CreateInstance_ContainerDataFacade();
    rqst.containerNumber:= 'CLHU8322880' ;
    rqst.shippingLine:='SUD';
    rqst.size:='40';
    rqst._type:='HC';
    try
       //resu := ;
       rsps := locService.findEmptyContainer(rqst);
       if (rsps <> nil) then begin
         showMessage('Is not null')
       end else begin
         showMessage('is null')
       end;

       ShowMessage('Exito !!');
    Except
     ShowMessage('Error de conexion');
    end;
  finally
     FreeAndNil(rqst);
     FreeAndNil(rsps);
  end;
end;  

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

More info: the handler in the server show me this messages

this is the lazarus message soap genered:

<SOAP-ENV:Envelope xmlns:SOAP-
ENV="http://schemas.xmlsoap.org/soap/envelope/"><SOAP-
ENV:Header/><SOAP-ENV:Body
xmlns:ns1="http://workabaout.gpc.com/"><ns1:findEmptyContainer>
      <ns1:containerNumber>CLHU8322880</ns1:containerNumber>
      <ns1:shippingLine>SUD</ns1:shippingLine>
      <ns1:type>HC</ns1:type>
      <ns1:size>40</ns1:size>
    </ns1:findEmptyContainer></SOAP-ENV:Body></SOAP-ENV:Envelope>

i make other tests with an aplication develoment in java and this is
is a message soap genered since aplicattion in java

<S:Envelope xmlns:S="http://schemas.xmlsoap.org/soap/envelope/">
    <S:Header/>
    <S:Body>
        <ns2:findEmptyContainer
xmlns:ns2="http://workabaout.gpc.com/">
            <containerNumber>CLHU8322880</containerNumber>
            <shippingLine>SUD</shippingLine>
            <type>HC</type>
            <size>40</size>
        </ns2:findEmptyContainer>
    </S:Body>
</S:Envelope>


yes, is different but i have no idea what is wrong, any suggetion ???