Java端点 - perl消费者web服务

问题描述：

我从perl客户端（activePerl 5.16）调用java端点（代码如下）有问题。这些代码段是从书的Java Web服务正常运行Java端点 - perl消费者web服务

package ch01.ts; 

import javax.jws.WebMethod; 
import javax.jws.WebService; 
import javax.jws.soap.SOAPBinding; 
import javax.jws.soap.SOAPBinding.Style; 

@WebService 
@SOAPBinding(style=Style.RPC) 
public interface TimeServer { 

    @WebMethod 
    String getTimeAsString(); 

    @WebMethod 
    long getTimeAsElapsed(); 
}

package ch01.ts; 

import java.util.Date; 
import javax.jws.WebService; 

@WebService(endpointInterface="ch01.ts.TimeServer") 
public class TimeServerImpl implements TimeServer { 

    public String getTimeAsString() { 
     return new Date().toString(); 
    } 

    public long getTimeAsElapsed() { 
     return new Date().getTime(); 
    } 
}

package ch01.ts; 

import javax.xml.ws.Endpoint; 

public class TimeServerPublisher { 
    public static void main(String[] args) { 
     Endpoint.publish("http://127.0.0.1:9876/ts", new TimeServerImpl()); 
    } 
}

而且perl的消费者：

use SOAP::Lite; 

my $url = 'http://127.0.0.1:9876/ts?wsdl'; 
my $service = SOAP::Lite->service($url); 

print "\nCurrent time is: ",$service->getTimeAsString(); 
print "\nElapsed miliseconds from the epoch: ", $service->getTimeAsElapsed();

当我打电话给我在这个堆栈跟踪Web服务：

maj 04, 2013 10:21:40 AM com.sun.xml.internal.ws.transport.http.HttpAdapter$HttpToolkit handle 
SEVERE: Couldn't create SOAP message. Expecting Envelope in namespace  http://schemas.xmlsoap.org/soap/envelope/, but got http://schemas.xmlsoap.org/wsdl/soap/ 
com.sun.xml.internal.ws.protocol.soap.VersionMismatchException: Couldn't create SOAP message. Expecting Envelope in namespace http://schemas.xmlsoap.org/soap/envelope/, but got http://schemas.xmlsoap.org/wsdl/soap/ 
at com.sun.xml.internal.ws.encoding.StreamSOAPCodec.decode(Unknown Source)

我认为肥皂版本的问题，上面的例子是1.1，当我改变客户端代码

my $service = SOAP::Lite->service($url)->soapversion('1.2');

然后不同的错误是扔

com.sun.xml.internal.ws.server.UnsupportedMediaException: Unsupported Content-Type: application/soap+xml; charset=utf-8 Supported ones are: [text/xml]

我需要要么信封的问题或内容类型处理帮助。我会很感激任何方向，代码和其他任何可能的帮助。

答

我不太确定Perl-> Soap API，但对于客户端版本为1.1的第一种情况，您可能需要在某处提及名称空间。

可能像

server->setNamespace() //or 
SOAP::Lite->service($url,"<namespace>"); //please search for perl web service client   examples

而对于第二种情况（1.2）的服务期待的文字和你的API发送SOAP编码什么的。

参考http://www.herongyang.com/Web-Services/Perl-SOAP-1-2-Unsupported-Media-Type-application-soap.html

，这会很有帮助

my $client = SOAP::Lite->new() 
    ->soapversion('1.2') 
    ->envprefix('soap12') 
    ->default_ns('http://xmlme.com/WebServices') 
    ->on_action(sub {join '/', @_}) 
    ->readable(true) 
    ->proxy('http://www.xmlme.com/WSShakespeare.asmx');

和

http://www.herongyang.com/Web-Services/Perl-SOAP-1-2-Request-Differences-SOAP-1-1-and-1-2.html

希望它可以帮助

Java端点 - perl消费者web服务

相关推荐