delphi能否连接JAVA（axis2）开发的webservice

up369 2019-05-07 08:43:33
最近用到delphi开发webservice客户端，于是做了个测试程序，但运行时提示namespace mismatch require http://***.com found http://****.com 请问这个提示是什么意思？
...全文
333 10 打赏 收藏 转发到动态 举报
写回复
用AI写文章
10 条回复
切换为时间正序
请发表友善的回复…
发表回复
满面尘，鬓如霜，何处话凄凉 2020-04-10
  • 打赏
  • 举报
 回复
可以。但是delphi wsdl importer生成的pas要稍微改动一下
tanqth 2020-04-03
  • 打赏
  • 举报
 回复
这些都是标准，不管什么语言做，都可以使用的。
zzh7thstar 2020-04-03
  • 打赏
  • 举报
 回复
property KOKRS: KOKRS Index (IS_UNQL) read FKOKRS write FKOKRS; property SALES_ORD: SALES_ORD Index (IS_UNQL) read FSALES_ORD write FSALES_ORD; property S_ORD_ITEM: S_ORD_ITEM Index (IS_UNQL) read FS_ORD_ITEM write FS_ORD_ITEM; property KOSTL: KOSTL Index (IS_UNQL) read FKOSTL write FKOSTL; property AUFNR: AUFNR Index (IS_UNQL) read FAUFNR write FAUFNR; property COST_OBJ: COST_OBJ Index (IS_UNQL) read FCOST_OBJ write FCOST_OBJ; property LIFNR: LIFNR Index (IS_UNQL) read FLIFNR write FLIFNR; property KUNNR: KUNNR Index (IS_UNQL) read FKUNNR write FKUNNR; property SGTXT: SGTXT Index (IS_UNQL) read FSGTXT write FSGTXT; property GRUND: GRUND Index (IS_UNQL) read FGRUND write FGRUND; property ADP1: ADP1 Index (IS_UNQL) read FADP1 write FADP1; property ADP2: ADP2 Index (IS_UNQL) read FADP2 write FADP2; end; // ************************************************************************ // // Namespace : http://masteel.com/xi/les/system/mm // soapAction: http://sap.com/xi/WebService/soap1.1 // transport : http://schemas.xmlsoap.org/soap/http // style : document // use : literal // binding : MI_LES_MM_001_GenGoodsMvtBinding // service : MI_LES_MM_001_GenGoodsMvtService // port : MI_LES_MM_001_GenGoodsMvtPort // URL : http://xidev:50000/XISOAPAdapter/MessageServlet?channel=:BS_DEV_LES_JAVA:CC_SENDING_SOAP_MM_001_GenGoodsMvt&version=3.0&Sender.Service=BS_DEV_LES_JAVA&Interface=http%3A%2F%2Fmasteel.com%2Fxi%2Fles%2Fsystem%2Fmm%5EMI_LES_MM_001_GenGoodsMvt // ************************************************************************ // MI_LES_MM_001_GenGoodsMvt = interface(IInvokable) ['{6D460762-6F92-F1AB-18D5-714274B3A012}'] // Cannot unwrap: // - Input element wrapper name does not match operation's name procedure MI_LES_MM_001_GenGoodsMvt(const MT_MM_001_GenGoodsMvt: MT_MM_001_GenGoodsMvt); stdcall; end; function GetMI_LES_MM_001_GenGoodsMvt(UseWSDL: Boolean=System.False; Addr: string=''; HTTPRIO: THTTPRIO = nil): MI_LES_MM_001_GenGoodsMvt; implementation uses System.SysUtils; function GetMI_LES_MM_001_GenGoodsMvt(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): MI_LES_MM_001_GenGoodsMvt; const defWSDL = 'E:\瑞泰马钢ERP调用PMS的Webservice测试\MI_LES_MM_001_GenGoodsMvt_DEV.wsdl'; defURL = 'http://172.27.16.228:50000/XISOAPAdapter/MessageServlet?channel=:BS_DEV_LES_JAVA:CC_SENDING_SOAP_MM_001_GenGoodsMvt&version=3.0&Sender.Service=BS_DEV_LES_JAVA&Interface=http%3A%2F%2Fmasteel.com%2Fxi%2Fles%2Fsystem%2Fmm%5EMI_LES_MM_001_GenGoodsMvt'; defSvc = 'MI_LES_MM_001_GenGoodsMvtService'; defPrt = 'MI_LES_MM_001_GenGoodsMvtPort'; 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 MI_LES_MM_001_GenGoodsMvt); 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; constructor DT_MM_001_GenGoodsMvt.Create; begin inherited Create; FSerializationOptions := [xoLiteralParam]; end; destructor DT_MM_001_GenGoodsMvt.Destroy; var I: Integer; begin for I := 0 to System.Length(FInfo)-1 do System.SysUtils.FreeAndNil(FInfo[I]); System.SetLength(FInfo, 0); System.SysUtils.FreeAndNil(Fheader); inherited Destroy; end; destructor Info.Destroy; begin System.SysUtils.FreeAndNil(FMENGE); inherited Destroy; end; initialization { MI_LES_MM_001_GenGoodsMvt } InvRegistry.RegisterInterface(TypeInfo(MI_LES_MM_001_GenGoodsMvt), 'http://masteel.com/xi/les/system/mm', 'UTF-8'); InvRegistry.RegisterDefaultSOAPAction(TypeInfo(MI_LES_MM_001_GenGoodsMvt), 'http://sap.com/xi/WebService/soap1.1'); InvRegistry.RegisterInvokeOptions(TypeInfo(MI_LES_MM_001_GenGoodsMvt), ioDocument); InvRegistry.RegisterInvokeOptions(TypeInfo(MI_LES_MM_001_GenGoodsMvt), ioLiteral); RemClassRegistry.RegisterXSInfo(TypeInfo(Array_Of_Info), 'http://masteel.com/xi/les/system/mm', 'Array_Of_Info'); RemClassRegistry.RegisterXSClass(DT_MM_001_GenGoodsMvt, 'http://masteel.com/xi/les/system/mm', 'DT_MM_001_GenGoodsMvt'); RemClassRegistry.RegisterSerializeOptions(DT_MM_001_GenGoodsMvt, [xoLiteralParam]); RemClassRegistry.RegisterXSClass(MT_MM_001_GenGoodsMvt, 'http://masteel.com/xi/les/system/mm', 'MT_MM_001_GenGoodsMvt'); RemClassRegistry.RegisterXSInfo(TypeInfo(BUDAT), 'http://masteel.com/xi/les/system/mm', 'BUDAT'); RemClassRegistry.RegisterXSInfo(TypeInfo(MATNR), 'http://masteel.com/xi/les/system/mm', 'MATNR'); RemClassRegistry.RegisterXSInfo(TypeInfo(ITEM), 'http://masteel.com/xi/les/system/mm', 'ITEM'); RemClassRegistry.RegisterXSInfo(TypeInfo(BKTXT), 'http://masteel.com/xi/les/system/mm', 'BKTXT'); RemClassRegistry.RegisterXSInfo(TypeInfo(BLDAT), 'http://masteel.com/xi/les/system/mm', 'BLDAT'); RemClassRegistry.RegisterXSInfo(TypeInfo(XBLNR), 'http://masteel.com/xi/les/system/mm', 'XBLNR'); RemClassRegistry.RegisterXSInfo(TypeInfo(UMWRK), 'http://masteel.com/xi/les/system/mm', 'UMWRK'); RemClassRegistry.RegisterXSInfo(TypeInfo(ADP1), 'http://masteel.com/xi/les/system/mm', 'ADP1'); RemClassRegistry.RegisterXSInfo(TypeInfo(ADP2), 'http://masteel.com/xi/les/system/mm', 'ADP2'); RemClassRegistry.RegisterXSInfo(TypeInfo(GRUND), 'http://masteel.com/xi/les/system/mm', 'GRUND'); RemClassRegistry.RegisterXSInfo(TypeInfo(KUNNR), 'http://masteel.com/xi/les/system/mm', 'KUNNR'); RemClassRegistry.RegisterXSInfo(TypeInfo(SGTXT), 'http://masteel.com/xi/les/system/mm', 'SGTXT'); RemClassRegistry.RegisterXSInfo(TypeInfo(RECEIVER), 'http://masteel.com/xi/les/system/common', 'RECEIVER'); RemClassRegistry.RegisterXSInfo(TypeInfo(SENDER), 'http://masteel.com/xi/les/system/common', 'SENDER'); RemClassRegistry.RegisterXSInfo(TypeInfo(INTERID), 'http://masteel.com/xi/les/system/common', 'INTERID'); RemClassRegistry.RegisterXSInfo(TypeInfo(DTSEND), 'http://masteel.com/xi/les/system/common', 'DTSEND'); RemClassRegistry.RegisterXSClass(DT_COMMON_HEADER, 'http://masteel.com/xi/les/system/common', 'DT_COMMON_HEADER'); RemClassRegistry.RegisterXSInfo(TypeInfo(GSBER), 'http://masteel.com/xi/les/system/mm', 'GSBER'); RemClassRegistry.RegisterXSInfo(TypeInfo(KOKRS), 'http://masteel.com/xi/les/system/mm', 'KOKRS'); RemClassRegistry.RegisterXSInfo(TypeInfo(UMCHA), 'http://masteel.com/xi/les/system/mm', 'UMCHA'); RemClassRegistry.RegisterXSInfo(TypeInfo(UMLGO), 'http://masteel.com/xi/les/system/mm', 'UMLGO'); RemClassRegistry.RegisterXSInfo(TypeInfo(UMBAR), 'http://masteel.com/xi/les/system/mm', 'UMBAR'); RemClassRegistry.RegisterXSInfo(TypeInfo(SALES_ORD), 'http://masteel.com/xi/les/system/mm', 'SALES_ORD'); RemClassRegistry.RegisterXSInfo(TypeInfo(COST_OBJ), 'http://masteel.com/xi/les/system/mm', 'COST_OBJ'); RemClassRegistry.RegisterXSInfo(TypeInfo(LIFNR), 'http://masteel.com/xi/les/system/mm', 'LIFNR'); RemClassRegistry.RegisterXSInfo(TypeInfo(AUFNR), 'http://masteel.com/xi/les/system/mm', 'AUFNR'); RemClassRegistry.RegisterXSInfo(TypeInfo(S_ORD_ITEM), 'http://masteel.com/xi/les/system/mm', 'S_ORD_ITEM'); RemClassRegistry.RegisterXSInfo(TypeInfo(KOSTL), 'http://masteel.com/xi/les/system/mm', 'KOSTL'); RemClassRegistry.RegisterXSInfo(TypeInfo(MSGID), 'http://masteel.com/xi/les/system/mm', 'MSGID'); RemClassRegistry.RegisterXSInfo(TypeInfo(STOCK_TYP), 'http://masteel.com/xi/les/system/mm', 'STOCK_TYP'); RemClassRegistry.RegisterXSInfo(TypeInfo(MENGE), 'http://masteel.com/xi/les/system/mm', 'MENGE'); RemClassRegistry.RegisterXSInfo(TypeInfo(UMMAT), 'http://masteel.com/xi/les/system/mm', 'UMMAT'); RemClassRegistry.RegisterXSInfo(TypeInfo(ERFME), 'http://masteel.com/xi/les/system/mm', 'ERFME'); RemClassRegistry.RegisterXSInfo(TypeInfo(SOBKZ), 'http://masteel.com/xi/les/system/mm', 'SOBKZ'); RemClassRegistry.RegisterXSInfo(TypeInfo(WERKS), 'http://masteel.com/xi/les/system/mm', 'WERKS'); RemClassRegistry.RegisterXSInfo(TypeInfo(BWART), 'http://masteel.com/xi/les/system/mm', 'BWART'); RemClassRegistry.RegisterXSInfo(TypeInfo(LGORT), 'http://masteel.com/xi/les/system/mm', 'LGORT'); RemClassRegistry.RegisterXSInfo(TypeInfo(CHARG), 'http://masteel.com/xi/les/system/mm', 'CHARG'); RemClassRegistry.RegisterXSInfo(TypeInfo(BWTAR), 'http://masteel.com/xi/les/system/mm', 'BWTAR'); RemClassRegistry.RegisterXSClass(Info, 'http://masteel.com/xi/les/system/mm', 'Info'); end.
zzh7thstar 2020-04-03
  • 打赏
  • 举报
 回复
这个文件是WSDL解析出来的，比较大分2页 // ************************************************************************ // // The types declared in this file were generated from data read from the // WSDL File described below: // WSDL : E:\瑞泰马钢ERP调用PMS的Webservice测试\MI_LES_MM_001_GenGoodsMvt_DEV.wsdl // >Import : E:\瑞泰马钢ERP调用PMS的Webservice测试\MI_LES_MM_001_GenGoodsMvt_DEV.wsdl>0 // >Import : E:\瑞泰马钢ERP调用PMS的Webservice测试\MI_LES_MM_001_GenGoodsMvt_DEV.wsdl>1 // Encoding : UTF-8 // Codegen : [wfForceSOAP11+] // Version : 1.0 // (2018/8/30 16:51:26 - - $Rev: 68735 $) // ************************************************************************ // unit MI_LES_MM_001_GenGoodsMvt_DEV; interface uses Soap.InvokeRegistry, Soap.SOAPHTTPClient, System.Types, Soap.XSBuiltIns; const IS_UNBD = $0002; IS_UNQL = $0008; type // ************************************************************************ // // The following types, referred to in the WSDL document are not being represented // in this file. They are either aliases[@] of other types represented or were referred // to but never[!] declared in the document. The types from the latter category // typically map to predefined/known XML or Embarcadero types; however, they could also // indicate incorrect WSDL documents that failed to declare or import a schema type. // ************************************************************************ // // !:string - "http://www.w3.org/2001/XMLSchema"[Gbl] // !:decimal - "http://www.w3.org/2001/XMLSchema"[Gbl] DT_MM_001_GenGoodsMvt = class; { "http://masteel.com/xi/les/system/mm"[Lit][GblCplx] } MT_MM_001_GenGoodsMvt = class; { "http://masteel.com/xi/les/system/mm"[Lit][GblElm] } DT_COMMON_HEADER = class; { "http://masteel.com/xi/les/system/common"[GblCplx] } Info = class; { "http://masteel.com/xi/les/system/mm"[Cplx] } Array_Of_Info = array of Info; { "http://masteel.com/xi/les/system/mm"[Ubnd] } // ************************************************************************ // // XML : DT_MM_001_GenGoodsMvt, global, <complexType> // Namespace : http://masteel.com/xi/les/system/mm // Serializtn: [xoLiteralParam] // Info : Wrapper // ************************************************************************ // DT_MM_001_GenGoodsMvt = class(TRemotable) private Fheader: DT_COMMON_HEADER; FInfo: Array_Of_Info; public constructor Create; override; destructor Destroy; override; published property header: DT_COMMON_HEADER Index (IS_UNQL) read Fheader write Fheader; property Info: Array_Of_Info Index (IS_UNBD or IS_UNQL) read FInfo write FInfo; end; // ************************************************************************ // // XML : MT_MM_001_GenGoodsMvt, global, <element> // Namespace : http://masteel.com/xi/les/system/mm // Info : Wrapper // ************************************************************************ // MT_MM_001_GenGoodsMvt = class(DT_MM_001_GenGoodsMvt) private published end; BUDAT = type string; { "http://masteel.com/xi/les/system/mm"[Smpl] } MATNR = type string; { "http://masteel.com/xi/les/system/mm"[Smpl] } ITEM = type string; { "http://masteel.com/xi/les/system/mm"[Smpl] } BKTXT = type string; { "http://masteel.com/xi/les/system/mm"[Smpl] } BLDAT = type string; { "http://masteel.com/xi/les/system/mm"[Smpl] } XBLNR = type string; { "http://masteel.com/xi/les/system/mm"[Smpl] } UMWRK = type string; { "http://masteel.com/xi/les/system/mm"[Smpl] } ADP1 = type string; { "http://masteel.com/xi/les/system/mm"[Smpl] } ADP2 = type string; { "http://masteel.com/xi/les/system/mm"[Smpl] } GRUND = type string; { "http://masteel.com/xi/les/system/mm"[Smpl] } KUNNR = type string; { "http://masteel.com/xi/les/system/mm"[Smpl] } SGTXT = type string; { "http://masteel.com/xi/les/system/mm"[Smpl] } RECEIVER = type string; { "http://masteel.com/xi/les/system/common"[Smpl] } SENDER = type string; { "http://masteel.com/xi/les/system/common"[Smpl] } INTERID = type string; { "http://masteel.com/xi/les/system/common"[Smpl] } DTSEND = type string; { "http://masteel.com/xi/les/system/common"[Smpl] } // ************************************************************************ // // XML : DT_COMMON_HEADER, global, <complexType> // Namespace : http://masteel.com/xi/les/system/common // ************************************************************************ // DT_COMMON_HEADER = class(TRemotable) private FINTERID: INTERID; FDTSEND: DTSEND; FSENDER: SENDER; FRECEIVER: RECEIVER; published property INTERID: INTERID Index (IS_UNQL) read FINTERID write FINTERID; property DTSEND: DTSEND Index (IS_UNQL) read FDTSEND write FDTSEND; property SENDER: SENDER Index (IS_UNQL) read FSENDER write FSENDER; property RECEIVER: RECEIVER Index (IS_UNQL) read FRECEIVER write FRECEIVER; end; GSBER = type string; { "http://masteel.com/xi/les/system/mm"[Smpl] } KOKRS = type string; { "http://masteel.com/xi/les/system/mm"[Smpl] } UMCHA = type string; { "http://masteel.com/xi/les/system/mm"[Smpl] } UMLGO = type string; { "http://masteel.com/xi/les/system/mm"[Smpl] } UMBAR = type string; { "http://masteel.com/xi/les/system/mm"[Smpl] } SALES_ORD = type string; { "http://masteel.com/xi/les/system/mm"[Smpl] } COST_OBJ = type string; { "http://masteel.com/xi/les/system/mm"[Smpl] } LIFNR = type string; { "http://masteel.com/xi/les/system/mm"[Smpl] } AUFNR = type string; { "http://masteel.com/xi/les/system/mm"[Smpl] } S_ORD_ITEM = type string; { "http://masteel.com/xi/les/system/mm"[Smpl] } KOSTL = type string; { "http://masteel.com/xi/les/system/mm"[Smpl] } MSGID = type string; { "http://masteel.com/xi/les/system/mm"[Smpl] } STOCK_TYP = type string; { "http://masteel.com/xi/les/system/mm"[Smpl] } MENGE = class(TXSDecimal) end; { "http://masteel.com/xi/les/system/mm"[Smpl] } UMMAT = type string; { "http://masteel.com/xi/les/system/mm"[Smpl] } ERFME = type string; { "http://masteel.com/xi/les/system/mm"[Smpl] } SOBKZ = type string; { "http://masteel.com/xi/les/system/mm"[Smpl] } WERKS = type string; { "http://masteel.com/xi/les/system/mm"[Smpl] } BWART = type string; { "http://masteel.com/xi/les/system/mm"[Smpl] } LGORT = type string; { "http://masteel.com/xi/les/system/mm"[Smpl] } CHARG = type string; { "http://masteel.com/xi/les/system/mm"[Smpl] } BWTAR = type string; { "http://masteel.com/xi/les/system/mm"[Smpl] } // ************************************************************************ // // XML : Info, <complexType> // Namespace : http://masteel.com/xi/les/system/mm // ************************************************************************ // Info = class(TRemotable) private FMSGID: MSGID; FBUDAT: BUDAT; FBLDAT: BLDAT; FXBLNR: XBLNR; FBKTXT: BKTXT; FMATNR: MATNR; FITEM: ITEM; FBWART: BWART; FWERKS: WERKS; FLGORT: LGORT; FBWTAR: BWTAR; FCHARG: CHARG; FSOBKZ: SOBKZ; FSTOCK_TYP: STOCK_TYP; FMENGE: MENGE; FERFME: ERFME; FUMMAT: UMMAT; FUMWRK: UMWRK; FUMLGO: UMLGO; FUMBAR: UMBAR; FUMCHA: UMCHA; FGSBER: GSBER; FKOKRS: KOKRS; FSALES_ORD: SALES_ORD; FS_ORD_ITEM: S_ORD_ITEM; FKOSTL: KOSTL; FAUFNR: AUFNR; FCOST_OBJ: COST_OBJ; FLIFNR: LIFNR; FKUNNR: KUNNR; FSGTXT: SGTXT; FGRUND: GRUND; FADP1: ADP1; FADP2: ADP2; public destructor Destroy; override; published property MSGID: MSGID Index (IS_UNQL) read FMSGID write FMSGID; property BUDAT: BUDAT Index (IS_UNQL) read FBUDAT write FBUDAT; property BLDAT: BLDAT Index (IS_UNQL) read FBLDAT write FBLDAT; property XBLNR: XBLNR Index (IS_UNQL) read FXBLNR write FXBLNR; property BKTXT: BKTXT Index (IS_UNQL) read FBKTXT write FBKTXT; property MATNR: MATNR Index (IS_UNQL) read FMATNR write FMATNR; property ITEM: ITEM Index (IS_UNQL) read FITEM write FITEM; property BWART: BWART Index (IS_UNQL) read FBWART write FBWART; property WERKS: WERKS Index (IS_UNQL) read FWERKS write FWERKS; property LGORT: LGORT Index (IS_UNQL) read FLGORT write FLGORT; property BWTAR: BWTAR Index (IS_UNQL) read FBWTAR write FBWTAR; property CHARG: CHARG Index (IS_UNQL) read FCHARG write FCHARG; property SOBKZ: SOBKZ Index (IS_UNQL) read FSOBKZ write FSOBKZ; property STOCK_TYP: STOCK_TYP Index (IS_UNQL) read FSTOCK_TYP write FSTOCK_TYP; property MENGE: MENGE Index (IS_UNQL) read FMENGE write FMENGE; property ERFME: ERFME Index (IS_UNQL) read FERFME write FERFME; property UMMAT: UMMAT Index (IS_UNQL) read FUMMAT write FUMMAT; property UMWRK: UMWRK Index (IS_UNQL) read FUMWRK write FUMWRK; property UMLGO: UMLGO Index (IS_UNQL) read FUMLGO write FUMLGO; property UMBAR: UMBAR Index (IS_UNQL) read FUMBAR write FUMBAR; property UMCHA: UMCHA Index (IS_UNQL) read FUMCHA write FUMCHA; property GSBER: GSBER Index (IS_UNQL) read FGSBER write FGSBER;
zzh7thstar 2020-04-03
  • 打赏
  • 举报
 回复
XE6没问题，我做的是用XE6调用SAP端的WEBSERVICE 以下是我做的其中一个接口的实例 
procedure TFrmMain.MM001Click(Sender: TObject);
var
  v_MT_MM_001_GenGoodsMvt:MT_MM_001_GenGoodsMvt;
  service:MI_LES_MM_001_GenGoodsMvt;
  v_Info:array of MI_LES_MM_001_GenGoodsMvt_DEV.Info;
  v_DT_COMMON_HEADER:MI_LES_MM_001_GenGoodsMvt_DEV.DT_COMMON_HEADER;

  a:TXSDecimal;
  i,k:integer;
  ADOCON:TADOConnection;
  ADOQUE:TADOQuery;
  DSP: TDataSetProvider;
  CDS: TClientDataSet;
  sql,msgid:string;
begin
  try
    ADOCON:=TADOConnection.Create(self);
    ADOCON.ConnectionString:=DBLink.Text;
    ADOCON.Provider:='OraOLEDB.Oracle.1';
    ADOCON.LoginPrompt:=false;
    ADOCON.KeepConnection:=true;

    ADOQUE:=TADOQuery.Create(self);
    ADOQUE.Connection:=ADOCON;

    DSP:= TDataSetProvider.Create(self);
    DSP.DataSet:=ADOQUE;

    CDS:= TClientDataSet.Create(self);

    sql:='select * from ZXIT_MM001 a where a.msgid = '''+mm001msgid.Text+''' ';
    ADOQUE.Close;
    ADOQUE.SQL.Clear;
    ADOQUE.SQL.Add(sql);
    ADOQUE.Open;
    CDS.Close;
    CDS.Data:=DSP.Data;
    CDS.Open;
    i:=CDS.RecordCount;
    if i>=1 then
    begin
      v_MT_MM_001_GenGoodsMvt:=MT_MM_001_GenGoodsMvt.Create;
      v_DT_COMMON_HEADER:=MI_LES_MM_001_GenGoodsMvt_DEV.DT_COMMON_HEADER.Create;
      v_DT_COMMON_HEADER.INTERID:='MM001';
      v_DT_COMMON_HEADER.DTSEND:=FormatDateTime('yyyymmddHHMMss',now);
      v_DT_COMMON_HEADER.SENDER:='FGSLES';
      v_DT_COMMON_HEADER.RECEIVER:='ERP';

      SetLength(v_Info,i);
      CDS.First;
      k:=0;
      while not CDS.Eof do
      begin
        v_Info[k]:=MI_LES_MM_001_GenGoodsMvt_DEV.Info.Create;
        msgid:=CDS.FieldByName('MSGID').AsString;
        v_Info[k].MSGID:=CDS.FieldByName('MSGID').AsString;
        v_Info[k].BUDAT:=CDS.FieldByName('BUDAT').AsString;
        v_Info[k].BLDAT:=CDS.FieldByName('BLDAT').AsString;
        v_Info[k].XBLNR:=CDS.FieldByName('XBLNR').AsString;
        v_Info[k].BKTXT:=CDS.FieldByName('BKTXT').AsString;
        v_Info[k].MATNR:=CDS.FieldByName('MATNR').AsString;
        v_Info[k].ITEM :=CDS.FieldByName('ITEM').AsString;
        v_Info[k].BWART:=CDS.FieldByName('BWART').AsString;
        v_Info[k].WERKS:=CDS.FieldByName('WERKS').AsString;
        v_Info[k].LGORT:=CDS.FieldByName('LGORT').AsString;
        v_Info[k].BWTAR:=CDS.FieldByName('BWTAR').AsString;
        v_Info[k].CHARG:=CDS.FieldByName('CHARG').AsString;
        v_Info[k].SOBKZ:=CDS.FieldByName('SOBKZ').AsString;
        v_Info[k].STOCK_TYP:=CDS.FieldByName('STOCK_TYP').AsString;

          a:=TXSDecimal.Create;
          a.AsBcd:=TBcd(CDS.FieldByName('MENGE').AsFloat);
          v_Info[k].MENGE:=MENGE(a);

        v_Info[k].ERFME:=CDS.FieldByName('ERFME').AsString;
        v_Info[k].UMMAT:=CDS.FieldByName('UMMAT').AsString;
        v_Info[k].UMWRK:=CDS.FieldByName('UMWRK').AsString;
        v_Info[k].UMLGO:=CDS.FieldByName('UMLGO').AsString;
        v_Info[k].UMBAR:=CDS.FieldByName('UMBAR').AsString;
        v_Info[k].UMCHA:=CDS.FieldByName('UMCHA').AsString;
        v_Info[k].GSBER:=CDS.FieldByName('GSBER').AsString;
        v_Info[k].KOKRS:=CDS.FieldByName('KOKRS').AsString;
        v_Info[k].SALES_ORD:=CDS.FieldByName('SALES_ORD').AsString;

        v_Info[k].KOSTL:=CDS.FieldByName('KOSTL').AsString;
        v_Info[k].AUFNR:=CDS.FieldByName('AUFNR').AsString;
        v_Info[k].COST_OBJ:=CDS.FieldByName('COST_OBJ').AsString;
        v_Info[k].LIFNR:=CDS.FieldByName('LIFNR').AsString;
        v_Info[k].SGTXT:=CDS.FieldByName('SGTXT').AsString;
        v_Info[k].GRUND:=CDS.FieldByName('GRUND').AsString;
        v_Info[k].ADP1 :=CDS.FieldByName('ADP1').AsString;
        v_Info[k].ADP2 :=CDS.FieldByName('ADP2').AsString;
        k:=k+1;
        CDS.Next;
      end;

      v_MT_MM_001_GenGoodsMvt.header:=v_DT_COMMON_HEADER;
      v_MT_MM_001_GenGoodsMvt.Info:=MI_LES_MM_001_GenGoodsMvt_DEV.Array_Of_Info(v_Info);

      try
        service:=MI_LES_MM_001_GenGoodsMvt_DEV.GetMI_LES_MM_001_GenGoodsMvt(true,'',nil);
        service.MI_LES_MM_001_GenGoodsMvt(v_MT_MM_001_GenGoodsMvt);

        log4info('Send ZXIT_MM001 MSGID = '+msgid+' sucess');
        Memo1.Lines.Append(FormatDateTime('yyyy-mm-dd HH:MM:ss',now)
                         +' Send ZXIT_MM001 MSGID = '+msgid+' sucess');
        sql:='update ZXIT_MM001 a set a.op_flag=''1'',a.dattim=to_char(sysdate,''yyyy-MM-dd HH24:mi:ss'') where a.msgid='''
            +msgid+'''';
        ADOQUE.Close;
        ADOQUE.SQL.Clear;
        ADOQUE.SQL.Add(sql);
        ADOQUE.ExecSQL;
      except
        on e:exception do
        begin
          log4error('Send ZXIT_MM001 MSGID = '+msgid+' error : '+e.Message);
          Memo1.Lines.Append(FormatDateTime('yyyy-mm-dd HH:MM:ss',now)
                         +'Send ZXIT_MM001 MSGID = '+msgid+' error : '+e.Message);
          exit;
        end;
      end;
    end
    else exit;

  finally
    if Memo1.Lines.Count>500 then
    begin
      Memo1.Lines.Clear;
    end;
    ADOCON.Close;
    ADOQUE.Close;
    ADOCON.FreeOnRelease;
    ADOQUE.FreeOnRelease;
    DSP.FreeOnRelease;
    CDS.FreeOnRelease;
    if Assigned(a) then  a.Free;
    if Assigned(v_DT_COMMON_HEADER) then  v_DT_COMMON_HEADER.Free;

    if Assigned(v_Info) then
    begin
      for I := High(v_Info) downto low(v_Info) do
      begin
        v_Info[i].FreeInstance;
      end;
    end;

    if Assigned(v_MT_MM_001_GenGoodsMvt) then v_MT_MM_001_GenGoodsMvt.FreeInstance;
  end;
end;
up369 2019-05-08
  • 打赏
  • 举报
 回复
我的wsdl文件就是从测试环境地址拷贝来的，应该一样吧？
无聊的猪 2019-05-08
  • 打赏
  • 举报
 回复
那你应该检查wsdl文件和测试环境发布地址的wsdl，看看当中的namespace是否一致
up369 2019-05-08
  • 打赏
  • 举报
 回复
importer我用的是wsdl文件引入的，跟这有关系吗？
无聊的猪 2019-05-08
  • 打赏
  • 举报
 回复
命名空间不匹配，可能是生成WSDL importer的环境和测试的环境不一致，检查对比一下wsdl和生成单元的代码。 另外如果是用D7调用axis2的话，似乎是会有点问题的。
up369 2019-05-08
  • 打赏
  • 举报
 回复
有人知道吗，有人知道吗？
Delphi7调用Java AXIS写的WebService
因目前公司客户端采用delphi7开发，与服务器交换数据用的webservice也用delphi开发 本人是做java开发，所以想研究一下怎么用java开发webservice供delphi7调用 javaserver 是WebService 服务端，采用AXIS 1.4 为什么采用AXIS1.4？ 因为经过我测试，Delphi7版本太老了，不兼容JAX-WS和AXIS2 另外我觉得AXIS1.4配置也是最简单的。 本例采用Dynamic Proxy方式，WSDD方式 delphiclient 是用delphi7写的WebService客户端 里面的地址请根据实际情况调整 效果很简单，点一下访问Webservice弹出一个对话框
delphi调用webservice总结(c#,delphi,java).doc
delphi 7调用c#,axis2和delphi写的webservice
webservice启动没有问题，通过自动生成的客户端报错
faultCode: {http://schemas.xmlsoap.org/soap/envelope/}Server.userException faultSubcode: faultString: java.lang.reflect.InvocationTargetException faultActor: faultNode: faultDetail: {http://xml.apache.org/axis/}stackTrace: AxisFault faultCode: {http://schemas.xmlsoap.org/soap/envelope/}Server.userException faultSubcode: faultString: java.lang.reflect.InvocationTargetException faultActor: faultNode: faultDetail: java.lang.reflect.InvocationTargetException at org.apache.axis.message.SOAPFaultBuilder.createFault(SOAPFaultBuilder .java:260) at org.apache.axis.message.SOAPFaultBuilder.endElement(SOAPFaultBuilder. java:169) at org.apache.axis.encoding.DeserializationContextImpl.endElement(Deseri alizationContextImpl.java:1015) at org.apache.xerces.parsers.AbstractSAXParser.endElement(Unknown Source ) at org.apache.xerces.impl.XMLNSDocumentScannerImpl.scanEndElement(Unknow n Source)
EOS5.x 的 WebService 服务配置及使用说明
目 录 1 文档介绍.......................................................................................................................................3 1.1 文档概述.............................................................................................................................3 1.2 适用范围.............................................................................................................................3 2 环境描述.......................................................................................................................................3 3 配置 EOS的 WebService服务....................................................................................................3 3.1 配置 WebService 声明.......................................................................................................3 3.1.1 WebLogic8.x环境.....................................................................................................3 3.1.2 JBoss 环境.................................................................................................................4 3.1.3 WebSphere5.x 环境...................................................................................................4 3.2 加入 axis 的 jar包到 CLASSPATH...................................................................................4 3.2.1 WebLogic8.x环境.....................................................................................................4 3.2.2 JBoss 环境.................................................................................................................5 3.2.3 WebSphere5.x 环境...................................................................................................5 3.3 设置调用 WebService 的验证码........................................................................................5 4 验证 EOS的 WebService服务....................................................................................................6 5 如何通过 EOS的 WebService 服务来调用业务逻辑................................................................6 5.1 传统 JAVA 方式.................................................................................................................6 5.1.1 调用方式及说明........................................................................................................6 5.1.2 例子...........................................................................................................................7 5.2 使用 EOS提供的 bizlet 调用方式..................................................................................11 5.2.1 调用方式及说明......................................................................................................11 5.2.2 例子.........................................................................................................................12 5.3 使用 VB 调用方式...........................................................................................................12 5.3.1 例子.........................................................................................................................12 5.4 使用 VC 调用方式...........................................................................................................13 5.4.1 例子.........................................................................................................................13 5.5 使用 delphi调用方式.......................................................................................................15 5.5.1 例子.........................................................................................................................15 附录 1： axis 的 jar包..................................................................................................................16 6 支持............................................................................................................................................18
Delphi 调用 Java WebService
Delphi和Java实现webservice架构 Webservice现在已经不是什么新技术了，用java建立webservice是快捷的，但是用java在制作客户端的感觉上总是不如 Delphi的（个人感觉，java高手们不要笑话我），那我们就用java实现webservice的服务端程序，delphi制作客户端。         一．环境搭建          jdk和
网络通信/分布式开发

1,593

社区成员

32,964

社区内容

发帖
与我相关
我的任务
社区描述
Delphi 网络通信/分布式开发
社区管理员
  • 网络通信/分布式开发社区
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章