اشکال در استفاده از وب سرویس (Error processing input)

[hamid_14]

سلام
من در زمان استفاده از وب سرویس با خطای زیر مواجه می شم.از سازنده پرسیدم میگه مشکل از من هست.البته این هم بگم که وب سرویس در دلفی import نمی شد انقدر گفتم بهشون که حالا جدیدا میشه تو دلفی 7 وارد کرد و unit ایجاد میشه ولی در دلفی های xe امتحان کردم خطا داد.
لطفا راهنمایی کنید که این مشکل از سمت من هست یا سازنده.تشکر

متن خطا:
Error processing input

آدرس وب سرویس:
http://smartcard.rmto.ir:7003/i/web_...B_SERVICES.xml

(وب سرویس رایگان و در سایت http://www.nepaco.ir/)نام کاربری و کلمه عبور

USERNAME=tr_web_service
Password: tr_web_service123

نمونه کد ساده جهت استفاده

 var  d : PKG_WEB_SERVICESPortType;

begin

 d := GetPKG_WEB_SERVICESPortType(true,'http://smartcard.rmto.ir:7003/i/web_service/PKG_WEB_SERVICES.xml?wsdl',nil);

 Memo1.Lines.Clear;

 Memo1.Lines.Text := d.GET_DRIVER_BY_SHC('2010110');

[یوسف زالی]

سلام.
WSDL مربوطه رو بگذارید.

[hamid_14]

سلام تشکر از جوابتون
http://smartcard.rmto.ir:7003/i/web_...VICES.xml?wsdl

// **************************************************  ********************** //// The types declared in this file were generated from data read from the

// WSDL File described below:

// WSDL     : http://smartcard.rmto.ir:7003/i/web_service/PKG_WEB_SERVICES.xml

// (04/10/2015 05:06:16 È.Ù - 1.33.2.5)

// **************************************************  ********************** //





unit PKG_WEB_SERVICES;





interface





uses InvokeRegistry, SOAPHTTPClient, Types, XSBuiltIns;





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 Borland types; however, they could also 

  // indicate incorrect WSDL documents that failed to declare or import a schema type.

  // **************************************************  ********************** //

  // !:double          - "http://www.w3.org/2001/XMLSchema"

  // !:string          - "http://www.w3.org/2001/XMLSchema"













  // **************************************************  ********************** //

  // Namespace : http://xmlns.oracle.com/orawsv/TR_WEB_SERVICE/PKG_WEB_SERVICES

  // soapAction: %operationName%

  // transport : http://schemas.xmlsoap.org/soap/http

  // style     : document

  // binding   : PKG_WEB_SERVICESBinding

  // service   : PKG_WEB_SERVICESService

  // port      : PKG_WEB_SERVICESPort

  // URL       : http://smartcard.rmto.ir:9090/orawsv/TR_WEB_SERVICE/PKG_WEB_SERVICES

  // **************************************************  ********************** //

  PKG_WEB_SERVICESPortType = interface(IInvokable)

  ['{CF7E5277-3B83-6083-2BB5-ADE2335FE90F}']

    function  GET_TEDAD_NAVGAN_SEN(const IN_SAL_NUMBER_IN: Double): WideString; stdcall;

    function  GET_TARIKH_PAYAN_MOAYENE_FANNI(const IN_SERIAL_PLAQUE_NUMBER_IN: Double; const IN_PLAQUE_NUMBER_IN: Double): Double; stdcall;

    function  GET_TARIKH_PAYAN_KART(const IN_CODE_MELI_VARCHAR2_IN: WideString): WideString; stdcall;

    function  GET_PASSENGER_BY_VIN(const P_VIN_VARCHAR2_IN: WideString): WideString; stdcall;

    function  GET_PASSENGER_BY_SHP(const P_SHOMAREH_PARVANDEH_VARCHAR2_IN: WideString): WideString; stdcall;

    function  GET_PASSENGER_BY_SHC(const P_SHOMAREH_KART_VARCHAR2_IN: WideString): WideString; stdcall;

    function  GET_FREIGHTER_PLAQUE_BY_SHC(const P_SHOMAREH_KART_VARCHAR2_IN: WideString): WideString; stdcall;

    function  GET_FREIGHTER_BY_VIN(const P_VIN_VARCHAR2_IN: WideString): WideString; stdcall;

    function  GET_FREIGHTER_BY_SHP(const P_SHOMAREH_PARVANDEH_VARCHAR2_IN: WideString): WideString; stdcall;

    function  GET_FREIGHTER_BY_SHC(const P_SHOMAREH_KART_VARCHAR2_IN: WideString): WideString; stdcall;

    function  GET_DRIVER_BY_SHP(const P_SHOMAREH_PARVANDEH_VARCHAR2_IN: WideString): WideString; stdcall;

    function  GET_DRIVER_BY_SHM(const P_SHOMAREH_MELI_VARCHAR2_IN: WideString): WideString; stdcall;

    function  GET_DRIVER_BY_SHC(const P_SHOMAREH_KART_VARCHAR2_IN: WideString): WideString; stdcall;

    function  GET_AVG_SEN_NAVGAN: WideString; stdcall;

  end;





function GetPKG_WEB_SERVICESPortType(UseWSDL: Boolean=System.False; Addr: string=''; HTTPRIO: THTTPRIO = nil): PKG_WEB_SERVICESPortType;









implementation





function GetPKG_WEB_SERVICESPortType(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): PKG_WEB_SERVICESPortType;

const

  defWSDL = 'http://smartcard.rmto.ir:7003/i/web_service/PKG_WEB_SERVICES.xml';

  defURL  = 'http://smartcard.rmto.ir:9090/orawsv/TR_WEB_SERVICE/PKG_WEB_SERVICES';

  defSvc  = 'PKG_WEB_SERVICESService';

  defPrt  = 'PKG_WEB_SERVICESPort';

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 PKG_WEB_SERVICESPortType);

    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(PKG_WEB_SER  VICESPortType), 'http://xmlns.oracle.com/orawsv/TR_WEB_SERVICE/PKG_WEB_SERVICES', '');

  InvRegistry.RegisterDefaultSOAPAction(TypeInfo(PKG  _WEB_SERVICESPortType), '%operationName%');

  InvRegistry.RegisterInvokeOptions(TypeInfo(PKG_WEB  _SERVICESPortType), ioDocument);

  InvRegistry.RegisterExternalParamName(TypeInfo(PKG  _WEB_SERVICESPortType), 'GET_TEDAD_NAVGAN_SEN', 'IN_SAL_NUMBER_IN', 'IN_SAL-NUMBER-IN');

  InvRegistry.RegisterExternalParamName(TypeInfo(PKG  _WEB_SERVICESPortType), 'GET_TARIKH_PAYAN_MOAYENE_FANNI', 'IN_SERIAL_PLAQUE_NUMBER_IN', 'IN_SERIAL_PLAQUE-NUMBER-IN');

  InvRegistry.RegisterExternalParamName(TypeInfo(PKG  _WEB_SERVICESPortType), 'GET_TARIKH_PAYAN_MOAYENE_FANNI', 'IN_PLAQUE_NUMBER_IN', 'IN_PLAQUE-NUMBER-IN');

  InvRegistry.RegisterExternalParamName(TypeInfo(PKG  _WEB_SERVICESPortType), 'GET_TARIKH_PAYAN_KART', 'IN_CODE_MELI_VARCHAR2_IN', 'IN_CODE_MELI-VARCHAR2-IN');

  InvRegistry.RegisterExternalParamName(TypeInfo(PKG  _WEB_SERVICESPortType), 'GET_PASSENGER_BY_VIN', 'P_VIN_VARCHAR2_IN', 'P_VIN-VARCHAR2-IN');

  InvRegistry.RegisterExternalParamName(TypeInfo(PKG  _WEB_SERVICESPortType), 'GET_PASSENGER_BY_SHP', 'P_SHOMAREH_PARVANDEH_VARCHAR2_IN', 'P_SHOMAREH_PARVANDEH-VARCHAR2-IN');

  InvRegistry.RegisterExternalParamName(TypeInfo(PKG  _WEB_SERVICESPortType), 'GET_PASSENGER_BY_SHC', 'P_SHOMAREH_KART_VARCHAR2_IN', 'P_SHOMAREH_KART-VARCHAR2-IN');

  InvRegistry.RegisterExternalParamName(TypeInfo(PKG  _WEB_SERVICESPortType), 'GET_FREIGHTER_PLAQUE_BY_SHC', 'P_SHOMAREH_KART_VARCHAR2_IN', 'P_SHOMAREH_KART-VARCHAR2-IN');

  InvRegistry.RegisterExternalParamName(TypeInfo(PKG  _WEB_SERVICESPortType), 'GET_FREIGHTER_BY_VIN', 'P_VIN_VARCHAR2_IN', 'P_VIN-VARCHAR2-IN');

  InvRegistry.RegisterExternalParamName(TypeInfo(PKG  _WEB_SERVICESPortType), 'GET_FREIGHTER_BY_SHP', 'P_SHOMAREH_PARVANDEH_VARCHAR2_IN', 'P_SHOMAREH_PARVANDEH-VARCHAR2-IN');

  InvRegistry.RegisterExternalParamName(TypeInfo(PKG  _WEB_SERVICESPortType), 'GET_FREIGHTER_BY_SHC', 'P_SHOMAREH_KART_VARCHAR2_IN', 'P_SHOMAREH_KART-VARCHAR2-IN');

  InvRegistry.RegisterExternalParamName(TypeInfo(PKG  _WEB_SERVICESPortType), 'GET_DRIVER_BY_SHP', 'P_SHOMAREH_PARVANDEH_VARCHAR2_IN', 'P_SHOMAREH_PARVANDEH-VARCHAR2-IN');

  InvRegistry.RegisterExternalParamName(TypeInfo(PKG  _WEB_SERVICESPortType), 'GET_DRIVER_BY_SHM', 'P_SHOMAREH_MELI_VARCHAR2_IN', 'P_SHOMAREH_MELI-VARCHAR2-IN');

  InvRegistry.RegisterExternalParamName(TypeInfo(PKG  _WEB_SERVICESPortType), 'GET_DRIVER_BY_SHC', 'P_SHOMAREH_KART_VARCHAR2_IN', 'P_SHOMAREH_KART-VARCHAR2-IN');





end.

[hamid_14]

دوستان اگه وقت کردید یه امتحان کنید و راهنمایی بفرمایید با نرم افزار SOAPSonar امتحان کردم درسته.

این هم فایل xml هست.

[ali_reza_nazari]

دوستان اگه وقت کردید یه امتحان کنید و راهنمایی بفرمایید با نرم افزار SOAPSonar امتحان کردم درسته.

این هم فایل xml هست.

سلام
چون موقع کرک دلفی رو بلاک کردید که نتونه به اینترنت دسترسی داشته و خودش رو چک کنه. برای همین نمی تونه ایمپورت هم بکنه. از توی
etc/host
یک لحظه خارج کنید و بعد ایمپورت کنید