[英]Pass parameter from Delphi Client to Java Webservice
我在GlassFish 3.1.2中運行的Java中有一個簡單的Web服務:
@WebService
@SOAPBinding(style = SOAPBinding.Style.RPC)
public class TesteDeWSComDelphi {
/**
* WebMethod
*
* @param s
* @return
*/
@WebMethod(operationName = "operacaoPrincipal")
public String operacao1(String s) {
System.out.println("Dados passados: " + s);
return "Vc enviou para operação1 " + s;
}
}
因此,我使用了來自Delphi的WSDL Importer來生成我的客戶端。 產生的代碼是:
unit TesteDeWSComDelphiService1;
interface
uses InvokeRegistry, SOAPHTTPClient, Types, XSBuiltIns;
type
TesteDeWSComDelphi = interface(IInvokable)
['{07BD6B8D-0E3D-9A88-AF46-D07FD1DB6D5B}']
function operacaoPrincipal(s: WideString): WideString; stdcall;
end;
function GetTesteDeWSComDelphi(UseWSDL: Boolean=System.False; Addr: string=''; HTTPRIO: THTTPRIO = nil): TesteDeWSComDelphi;
implementation
function GetTesteDeWSComDelphi(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO):
TesteDeWSComDelphi;
const
defWSDL = 'http://10.20.137.54:8080/mavenproject1/TesteDeWSComDelphiService?wsdl';
defURL = 'http://10.20.137.54:8080/mavenproject1/TesteDeWSComDelphiService';
defSvc = 'TesteDeWSComDelphiService';
defPrt = 'TesteDeWSComDelphiPort';
var
RIO: THTTPRIO;
begin
Result := nil;
if (Addr = '') then
begin
if UseWSDL then
Addr := defWSDL
else
Addr := defURL;
end;
if HTTPRIO = nil then
RIO := THTTPRIO.Create(nil)
else
RIO := HTTPRIO;
try
Result := (RIO as TesteDeWSComDelphi);
if UseWSDL then
begin
RIO.WSDLLocation := Addr;
RIO.Service := defSvc;
RIO.Port := defPrt;
end else
RIO.URL := Addr;
finally
if (Result = nil) and (HTTPRIO = nil) then
RIO.Free;
end;
end;
initialization
InvRegistry.RegisterInvokeOptions(TypeInfo(TesteDeWSComDelphi), ioDocument);
InvRegistry.RegisterInterface(TypeInfo(TesteDeWSComDelphi), 'http://ws.jus.br/', 'UTF-8');
InvRegistry.RegisterInvokeOptions(TypeInfo(TesteDeWSComDelphi), ioDefault);
InvRegistry.RegisterDefaultSOAPAction(TypeInfo(TesteDeWSComDelphi), '');
end.
當我做:
procedure TForm1.TestarClick(Sender: TObject);
var
servico:TesteDeWSComDelphi;
valor:string;
begin
servico:=GetTesteDeWSComDelphi(False, '');
valor:=edt1.Text;
Dialogs.ShowMessage('Enviando "' + valor+ '"');
retorno.Text := servico.operacaoPrincipal(valor);
end;
我的客戶找到了我的Web服務器, 但是參數為null 。
有人可以幫我嗎?
您的代碼兩次使用不同的值設置了選項:
InvRegistry.RegisterInvokeOptions(TypeInfo(TesteDeWSComDelphi), ioDocument);
InvRegistry.RegisterInvokeOptions(TypeInfo(TesteDeWSComDelphi), ioDefault);
刪除第一個,然后重試以查看是否有幫助:
InvRegistry.RegisterInvokeOptions(TypeInfo(TesteDeWSComDelphi), ioDefault);
如果這樣不能解決問題,請更換
@SOAPBinding(style = SOAPBinding.Style.RPC)
至
@SOAPBinding(style = SOAPBinding.Style.DOCUMENT)
我已經用Delphi 2009和GlassFish 4對其進行了測試。
Delphi WSDL導入器返回的輸出與您的輸出不同:
unit EchoWSService;
interface
uses InvokeRegistry, SOAPHTTPClient, Types, XSBuiltIns;
type
EchoWS = interface(IInvokable)
['{F0D4A733-3EB7-44F0-47B7-FC0B5E5B6576}']
function echo(const arg0: string): string; stdcall;
end;
function GetEchoWS(UseWSDL: Boolean=System.False; Addr: string=''; HTTPRIO: THTTPRIO = nil): EchoWS;
implementation
uses SysUtils;
function GetEchoWS(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): EchoWS;
const
defWSDL = 'http://127.0.0.1:8080/mavenproject1/EchoWSService?wsdl';
defURL = 'http://127.0.0.1:8080/mavenproject1/EchoWSService';
defSvc = 'EchoWSService';
defPrt = 'EchoWSPort';
var
RIO: THTTPRIO;
begin
Result := nil;
if (Addr = '') then
begin
if UseWSDL then
Addr := defWSDL
else
Addr := defURL;
end;
if HTTPRIO = nil then
RIO := THTTPRIO.Create(nil)
else
RIO := HTTPRIO;
try
Result := (RIO as EchoWS);
if UseWSDL then
begin
RIO.WSDLLocation := Addr;
RIO.Service := defSvc;
RIO.Port := defPrt;
end else
RIO.URL := Addr;
finally
if (Result = nil) and (HTTPRIO = nil) then
RIO.Free;
end;
end;
initialization
InvRegistry.RegisterInterface(TypeInfo(EchoWS), 'http://echows/', 'UTF-8');
InvRegistry.RegisterDefaultSOAPAction(TypeInfo(EchoWS), '');
end.
如您所見,初始化部分有所不同。
Delphi客戶端代碼為:
procedure TForm7.Button1Click(Sender: TObject);
var
servico: EchoWS;
valor: string;
begin
servico := GetEchoWS;
valor := 'Hello';
Dialogs.ShowMessage('Send "' + valor + '"');
Edit1.Text := servico.echo(valor);
end;
Java Web Service代碼為:
package echows;
import javax.jws.WebMethod;
import javax.jws.WebService;
import javax.jws.soap.SOAPBinding;
@WebService
@SOAPBinding(style = SOAPBinding.Style.RPC)
public class EchoWS {
@WebMethod(operationName = "echo")
public String echo(String s) {
System.out.println("Received: " + s);
return "Echo: " + s;
}
}
Web服務將返回預期結果。 分析差異是另一回事,也許使用Fiddler2進行比較以捕獲HTTP流量可能會有所幫助。
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.