Consuming a web service - Delphi 6

Question

Our current project is in Delphi 6. This is my first time attempting to consume a web service in Delphi - my primary experience in this realm is with C#. Anyway, I need to consume a web service from this project. I've run into a bit of a problem, importing the wsdl (http://txportwst.txhubpr.com/txserver/1?wsdl) generates two units. There were a few issues with the units' type references and dependencies that kept it from building straight away, but I was able to correct those.

From a test form, I added code to consume the service, but I get an error which doesn't make sense. The method is expecting a var of the type (requestIVULoto) being sent in, but the error would indicate otherwise. I switched things up to a random service from xmethods.net, and was able to get a very simple one (reto. checkit.ch/Scripts/Lotto.dll/wsdl/IgetNumbers) functioning, which tells me that I'm on the right path, but then another (www. xmlme.com/WSDailyNet.asmx?WSDL) that was slightly more complicated didn't and generated the same error that I was receiving from the service I need to use.

I was able to get the service I need to use functioning in C# with a service ref and 10 lines of code which is easy but is making Delphi all the more frustrating. I'm considering a .net class lib exposed to com if this doesn't work. I'd rather do this natively in Delphi, but I fear Delphi 6 is just too old.

Any ideas?

As a side note, in C#..

IvuLoto.IvuSvc.ivuLotoData ild = new IvuLoto.IvuSvc.ivuLotoData();
ild = client.requestIVULoto(txn); // returns type ivuLotoData.

Error

---------------------------
Debugger Exception Notification
---------------------------
Project TEST.exe raised exception class Exception with message 'The parameter is incorrect.'. Process stopped. Use Step or Run to continue.
---------------------------
OK   Help   
---------------------------

TestForm

...    
implementation

uses
  IVU, IVUSvc;
...
procedure TFormTest.Button1Click(Sender: TObject);
var
  ivu: requestIVULoto;
  txn: transaction;
  rio: THTTPRIO;
begin
  rio := THTTPRIO.Create(nil);

  rio.wsdlLocation := 'http://txportwst.txhubpr.com/txserver/1?wsdl';
  rio.Service := 'txServerService';
  rio.Port := 'txServerPort';

  txn := transaction.Create();
  txn.txDate := '08/14/2014 00:00:00';
  txn.merchantId := 'REMOVED';
  txn.terminalId := IntToStr(Workstation.WorkstationId);
  txn.terminalPassword := 'REMOVED';
  txn.txType := SALE; //IVU.txType
  txn.tenderType := CASH; //IVU.tenderType
  txn.subTotal := '100.00';
  txn.municipalTax := '1.00';
  txn.stateTax := '6.00';
  txn.total := '107.00';

  ivu := requestIVULoto.Create();
  ivu.transaction := txn;

  (rio as txServer).requestIVULoto(ivu);

  rio.Free;
  ivu.Free;
  txn.Free;
end;

Units generated by wsdl import

Unit IVUSvc;

interface

uses Types, XSBuiltIns, IVU;
type

  TxServer = interface(IInvokable)
    ['{07415916-265C-448F-B69F-0AAF9CBDDC1C}']
    procedure requestIVULoto(var parameters: requestIVULoto);  stdcall;
    procedure requestTxInfo(var parameters: requestTxInfo);  stdcall;
  end;


implementation

uses InvokeRegistry;

initialization
  InvRegistry.RegisterInterface(TypeInfo(TxServer), '', 'UTF-8');

end.

and

Unit IVU;

interface

uses InvokeRegistry, Types, XSBuiltIns, XMLDoc;

type

  requestIVULoto = class;
  transaction = class;
  requestIVULotoResponse = class;
  ivuLotoData = class;
  requestTxInfo = class;
  txInfoRequest = class;
  requestTxInfoResponse = class;
  txInfoResponse = class;
  txInfo = class;



{ tenderType }

  tenderType =  (CASH, CREDIT, DEBIT, EBT, ATH, UNSPECIFIED_CARD, UNKNOWN);

{ txType }

  txType =  (SALE, REFUND);

{ txPosResponseStatus }

  txPosResponseStatus =  (SUCCESS, AUTHENTICATION_FAILED, MISSING_PARAMETERS, INVALID_PARAMETERS, SERVER_ERROR);

{ txInfoResponseStatus }

  txInfoResponseStatus =  txPosResponseStatus;//(SUCCESS, AUTHENTICATION_FAILED, MISSING_PARAMETERS, INVALID_PARAMETERS, SERVER_ERROR);

{ requestIVULoto }

  requestIVULoto = class(TRemotable)
  private
    Ftransaction: transaction;
  published
    property transaction: transaction read Ftransaction write Ftransaction;
  end;

{ transaction }

  transaction = class(TRemotable)
  private
    FmerchantId: WideString;
    FmunicipalTax: WideString;
    FstateTax: WideString;
    FsubTotal: WideString;
    FtenderType: tenderType;
    FterminalId: WideString;
    FterminalPassword: WideString;
    Ftotal: WideString;
    FtxDate: WideString;
    FtxType: txType;
  published
    property merchantId: WideString read FmerchantId write FmerchantId;
    property municipalTax: WideString read FmunicipalTax write FmunicipalTax;
    property stateTax: WideString read FstateTax write FstateTax;
    property subTotal: WideString read FsubTotal write FsubTotal;
    property tenderType: tenderType read FtenderType write FtenderType;
    property terminalId: WideString read FterminalId write FterminalId;
    property terminalPassword: WideString read FterminalPassword write FterminalPassword;
    property total: WideString read Ftotal write Ftotal;
    property txDate: WideString read FtxDate write FtxDate;
    property txType: txType read FtxType write FtxType;
  end;

{ requestIVULotoResponse }

  requestIVULotoResponse = class(TRemotable)
  private
    FIVULoto: ivuLotoData;
  published
    property IVULoto: ivuLotoData read FIVULoto write FIVULoto;
  end;

{ ivuLotoData }

  ivuLotoData = class(TRemotable)
  private
    FivuLoto: WideString;
    FcontrolNumber: WideString;
    FdrawNumber: WideString;
    FdrawDate: WideString;
    Fstatus: txPosResponseStatus;
    FerrorDetail: WideString;
  published
    property ivuLoto: WideString read FivuLoto write FivuLoto;
    property controlNumber: WideString read FcontrolNumber write FcontrolNumber;
    property drawNumber: WideString read FdrawNumber write FdrawNumber;
    property drawDate: WideString read FdrawDate write FdrawDate;
    property status: txPosResponseStatus read Fstatus write Fstatus;
    property errorDetail: WideString read FerrorDetail write FerrorDetail;
  end;

{ requestTxInfo }

  requestTxInfo = class(TRemotable)
  private
    Farg0: txInfoRequest;
  published
    property arg0: txInfoRequest read Farg0 write Farg0;
  end;

{ txInfoRequest }

  txInfoRequest = class(TRemotable)
  private
    FendDate: WideString;
    FmerchantId: WideString;
    FstartDate: WideString;
    FterminalId: WideString;
    FterminalPassword: WideString;
  published
    property endDate: WideString read FendDate write FendDate;
    property merchantId: WideString read FmerchantId write FmerchantId;
    property startDate: WideString read FstartDate write FstartDate;
    property terminalId: WideString read FterminalId write FterminalId;
    property terminalPassword: WideString read FterminalPassword write FterminalPassword;
  end;

{ requestTxInfoResponse }

  requestTxInfoResponse = class(TRemotable)
  private
    Freturn: txInfoResponse;
  published
    property return: txInfoResponse read Freturn write Freturn;
  end;

{ txInfo }

  txInfo = class(TRemotable)
  private
    FcontrolNumber: WideString;
    FdrawDate: WideString;
    FdrawNumber: WideString;
    FivuLottoNumber: WideString;
    FmunicipalTax: WideString;
    FstateTax: WideString;
    FsubTotal: WideString;
    FtenderType: tenderType;
    Ftotal: WideString;
    FtransactionDate: WideString;
    FtransactionType: txType;
  published
    property controlNumber: WideString read FcontrolNumber write FcontrolNumber;
    property drawDate: WideString read FdrawDate write FdrawDate;
    property drawNumber: WideString read FdrawNumber write FdrawNumber;
    property ivuLottoNumber: WideString read FivuLottoNumber write FivuLottoNumber;
    property municipalTax: WideString read FmunicipalTax write FmunicipalTax;
    property stateTax: WideString read FstateTax write FstateTax;
    property subTotal: WideString read FsubTotal write FsubTotal;
    property tenderType: tenderType read FtenderType write FtenderType;
    property total: WideString read Ftotal write Ftotal;
    property transactionDate: WideString read FtransactionDate write FtransactionDate;
    property transactionType: txType read FtransactionType write FtransactionType;
  end;

{ txInfoList }

  txInfoList = class(TXMLNodeCollection)
  end;

{ txInfoResponse }

  txInfoResponse = class(TRemotable)
  private
    FerrorDetail: WideString;
    FtxCount: Integer;
    Ftransactions: txInfoList;
    Fstatus: txInfoResponseStatus;
  published
    property errorDetail: WideString read FerrorDetail write FerrorDetail;
    property txCount: Integer read FtxCount write FtxCount;
    property transactions: txInfoList read Ftransactions write Ftransactions;
    property status: txInfoResponseStatus read Fstatus write Fstatus;
  end;

implementation

initialization
  RemClassRegistry.RegisterXSInfo(TypeInfo(tenderType),'http://txserver.sut.softekpr.com/1','tenderType','');
  RemClassRegistry.RegisterXSInfo(TypeInfo(txType),'http://txserver.sut.softekpr.com/1','txType','');
  RemClassRegistry.RegisterXSInfo(TypeInfo(txPosResponseStatus),'http://txserver.sut.softekpr.com/1','txPosResponseStatus','');
  RemClassRegistry.RegisterXSInfo(TypeInfo(txInfoResponseStatus),'http://txserver.sut.softekpr.com/1','txInfoResponseStatus','');
  RemClassRegistry.RegisterXSInfo(TypeInfo(requestIVULoto),'http://txserver.sut.softekpr.com/1','requestIVULoto','');
  RemClassRegistry.RegisterXSInfo(TypeInfo(requestIVULotoResponse),'http://txserver.sut.softekpr.com/1','requestIVULotoResponse','');
  RemClassRegistry.RegisterXSInfo(TypeInfo(requestTxInfo),'http://txserver.sut.softekpr.com/1','requestTxInfo','');
  RemClassRegistry.RegisterXSInfo(TypeInfo(requestTxInfoResponse),'http://txserver.sut.softekpr.com/1','requestTxInfoResponse','');
  RemClassRegistry.RegisterXSClass(requestIVULoto,'http://txserver.sut.softekpr.com/1','requestIVULoto','');
  RemClassRegistry.RegisterXSClass(transaction,'http://txserver.sut.softekpr.com/1','transaction','');
  RemClassRegistry.RegisterXSClass(requestIVULotoResponse,'http://txserver.sut.softekpr.com/1','requestIVULotoResponse','');
  RemClassRegistry.RegisterXSClass(ivuLotoData,'http://txserver.sut.softekpr.com/1','ivuLotoData','');
  RemClassRegistry.RegisterXSClass(requestTxInfo,'http://txserver.sut.softekpr.com/1','requestTxInfo','');
  RemClassRegistry.RegisterXSClass(txInfoRequest,'http://txserver.sut.softekpr.com/1','txInfoRequest','');
  RemClassRegistry.RegisterXSClass(requestTxInfoResponse,'http://txserver.sut.softekpr.com/1','requestTxInfoResponse','');
  RemClassRegistry.RegisterXSClass(txInfoResponse,'http://txserver.sut.softekpr.com/1','txInfoResponse','');
  RemClassRegistry.RegisterXSClass(txInfo,'http://txserver.sut.softekpr.com/1','txInfo','');

end.

score 1 · Accepted Answer · answered Aug 16 '14 at 23:53

I imported your specified WSDL using Delphi XE3 and got it working without any modifications (OK, I’ll admit, I changed the unit name).

This is the XML response I received:

<soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
  <soap:Body>
    <ns2:requestIVULotoResponse xmlns:ns2="http://txserver.sut.softekpr.com/1">
      <IVULoto>
        <status>INVALID_PARAMETERS</status>
        <errorDetail>invalid merchantId</errorDetail>
      </IVULoto>
    </ns2:requestIVULotoResponse>
  </soap:Body>
</soap:Envelope>

This is the code I used:

procedure TFormMain.Button1Click(Sender: TObject);
var
  req : transaction;
  rsp : ivuLotoData;
  rio : THTTPRIO;
begin
  rio := THTTPRIO.Create(Self);
  //Compile request
  req := transaction.Create();
  req.txDate := TXSDateTime.Create;// '08/14/2014 00:00:00';
  req.txDate.AsDateTime := now;
  req.txType := txtype.SALE;
  req.merchantId := 'REMOVED';
  req.terminalId := IntToStr(112233);
  req.terminalPassword := 'REMOVED';
  req.txType := txType.SALE; //IVU.txType
  req.tenderType := tenderType.CASH; //IVU.tenderType
  req.subTotal := TXSDecimal.Create;
  req.subTotal.DecimalString := '100.00';
  req.municipalTax := TXSDecimal.Create;
  req.municipalTax.DecimalString := '1.00';
  req.stateTax := TXSDecimal.Create;
  req.stateTax.DecimalString := '6.00';
  req.total := TXSDecimal.Create;
  req.total.DecimalString := '107.00';

  //Call WS Method requestIVULoto
  rsp := GetTxServer(false, '', RIO).requestIVULoto(req);

   req.Free;
  rsp.Free;
end;

I have studied your WSDL imports but know too little about web-services to suggest any modifications to your Delphi 6 code.

Here’s the Delphi XE3 import of your WSDL. I removed most of the implementation code because Stack Overflow answer can only contain 30000 characters.:

// ************************************************************************ //
// The types declared in this file were generated from data read from the
// WSDL File described below:
// WSDL     : http://txportwst.txhubpr.com/txserver/1?wsdl
//  >Import : http://txportwst.txhubpr.com/txserver/1?wsdl>0
// Encoding : UTF-8
// Version  : 1.0
// (2014-08-16 08:43:38 - - $Rev: 52705 $)
// ************************************************************************ //

unit IVUSvc_wsdl;

interface

uses InvokeRegistry, SOAPHTTPClient, Types, XSBuiltIns;

const
  IS_OPTN = $0001;
  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.
  // ************************************************************************ //
  // !:decimal         - "http://www.w3.org/2001/XMLSchema"[Gbl]
  // !:string          - "http://www.w3.org/2001/XMLSchema"[Gbl]
  // !:int             - "http://www.w3.org/2001/XMLSchema"[Gbl]
  // !:dateTime        - "http://www.w3.org/2001/XMLSchema"[Gbl]

  ivuLotoData          = class;                 { "http://txserver.sut.softekpr.com/1"[GblCplx] }
  txInfoResponse       = class;                 { "http://txserver.sut.softekpr.com/1"[GblCplx] }
  transaction          = class;                 { "http://txserver.sut.softekpr.com/1"[GblCplx] }
  txInfo               = class;                 { "http://txserver.sut.softekpr.com/1"[GblCplx] }
  txInfoRequest        = class;                 { "http://txserver.sut.softekpr.com/1"[GblCplx] }

  {$SCOPEDENUMS ON}
  { "http://txserver.sut.softekpr.com/1"[GblSmpl] }
  txInfoResponseStatus = (SUCCESS, AUTHENTICATION_FAILED, MISSING_PARAMETERS, INVALID_PARAMETERS, SERVER_ERROR);

  { "http://txserver.sut.softekpr.com/1"[GblSmpl] }
  txPosResponseStatus = (SUCCESS, AUTHENTICATION_FAILED, MISSING_PARAMETERS, INVALID_PARAMETERS, SERVER_ERROR);

  { "http://txserver.sut.softekpr.com/1"[GblSmpl] }
  txType = (SALE, REFUND);

  { "http://txserver.sut.softekpr.com/1"[GblSmpl] }
  tenderType = (CASH, CREDIT, DEBIT, EBT, ATH, UNSPECIFIED_CARD, UNKNOWN);

  {$SCOPEDENUMS OFF}

  Array_Of_txInfo = array of txInfo;            { "http://txserver.sut.softekpr.com/1"[GblUbnd] }


  // ************************************************************************ //
  // XML       : ivuLotoData, global, <complexType>
  // Namespace : http://txserver.sut.softekpr.com/1
  // ************************************************************************ //
  ivuLotoData = class(TRemotable)
  private
    FivuLoto: string;
    FivuLoto_Specified: boolean;
    FcontrolNumber: string;
    FcontrolNumber_Specified: boolean;
    FdrawNumber: string;
    FdrawNumber_Specified: boolean;
    FdrawDate: TXSDateTime;
    FdrawDate_Specified: boolean;
    Fstatus: txPosResponseStatus;
    Fstatus_Specified: boolean;
    FerrorDetail: string;
    FerrorDetail_Specified: boolean;
    procedure SetivuLoto(Index: Integer; const Astring: string);
    function  ivuLoto_Specified(Index: Integer): boolean;
    procedure SetcontrolNumber(Index: Integer; const Astring: string);
    function  controlNumber_Specified(Index: Integer): boolean;
    procedure SetdrawNumber(Index: Integer; const Astring: string);
    function  drawNumber_Specified(Index: Integer): boolean;
    procedure SetdrawDate(Index: Integer; const ATXSDateTime: TXSDateTime);
    function  drawDate_Specified(Index: Integer): boolean;
    procedure Setstatus(Index: Integer; const AtxPosResponseStatus: txPosResponseStatus);
    function  status_Specified(Index: Integer): boolean;
    procedure SeterrorDetail(Index: Integer; const Astring: string);
    function  errorDetail_Specified(Index: Integer): boolean;
  public
    destructor Destroy; override;
  published
    property ivuLoto:       string               Index (IS_OPTN or IS_UNQL) read FivuLoto write SetivuLoto stored ivuLoto_Specified;
    property controlNumber: string               Index (IS_OPTN or IS_UNQL) read FcontrolNumber write SetcontrolNumber stored controlNumber_Specified;
    property drawNumber:    string               Index (IS_OPTN or IS_UNQL) read FdrawNumber write SetdrawNumber stored drawNumber_Specified;
    property drawDate:      TXSDateTime          Index (IS_OPTN or IS_UNQL) read FdrawDate write SetdrawDate stored drawDate_Specified;
    property status:        txPosResponseStatus  Index (IS_OPTN or IS_UNQL) read Fstatus write Setstatus stored status_Specified;
    property errorDetail:   string               Index (IS_OPTN or IS_UNQL) read FerrorDetail write SeterrorDetail stored errorDetail_Specified;
  end;



  // ************************************************************************ //
  // XML       : txInfoResponse, global, <complexType>
  // Namespace : http://txserver.sut.softekpr.com/1
  // ************************************************************************ //
  txInfoResponse = class(TRemotable)
  private
    FerrorDetail: string;
    FerrorDetail_Specified: boolean;
    FtxCount: Integer;
    Ftransactions: Array_Of_txInfo;
    Ftransactions_Specified: boolean;
    Fstatus: txInfoResponseStatus;
    Fstatus_Specified: boolean;
    procedure SeterrorDetail(Index: Integer; const Astring: string);
    function  errorDetail_Specified(Index: Integer): boolean;
    procedure Settransactions(Index: Integer; const AArray_Of_txInfo: Array_Of_txInfo);
    function  transactions_Specified(Index: Integer): boolean;
    procedure Setstatus(Index: Integer; const AtxInfoResponseStatus: txInfoResponseStatus);
    function  status_Specified(Index: Integer): boolean;
  public
    destructor Destroy; override;
  published
    property errorDetail:  string                Index (IS_OPTN or IS_UNQL) read FerrorDetail write SeterrorDetail stored errorDetail_Specified;
    property txCount:      Integer               Index (IS_UNQL) read FtxCount write FtxCount;
    property transactions: Array_Of_txInfo       Index (IS_OPTN or IS_UNBD or IS_UNQL) read Ftransactions write Settransactions stored transactions_Specified;
    property status:       txInfoResponseStatus  Index (IS_OPTN or IS_UNQL) read Fstatus write Setstatus stored status_Specified;
  end;



  // ************************************************************************ //
  // XML       : transaction, global, <complexType>
  // Namespace : http://txserver.sut.softekpr.com/1
  // ************************************************************************ //
  transaction = class(TRemotable)
  private
    FmerchantId: string;
    FmerchantId_Specified: boolean;
    FmunicipalTax: TXSDecimal;
    FmunicipalTax_Specified: boolean;
    FstateTax: TXSDecimal;
    FstateTax_Specified: boolean;
    FsubTotal: TXSDecimal;
    FsubTotal_Specified: boolean;
    FtenderType: tenderType;
    FtenderType_Specified: boolean;
    FterminalId: string;
    FterminalId_Specified: boolean;
    FterminalPassword: string;
    FterminalPassword_Specified: boolean;
    Ftotal: TXSDecimal;
    Ftotal_Specified: boolean;
    FtxDate: TXSDateTime;
    FtxDate_Specified: boolean;
    FtxType: txType;
    FtxType_Specified: boolean;
    procedure SetmerchantId(Index: Integer; const Astring: string);
    function  merchantId_Specified(Index: Integer): boolean;
    procedure SetmunicipalTax(Index: Integer; const ATXSDecimal: TXSDecimal);
    function  municipalTax_Specified(Index: Integer): boolean;
    procedure SetstateTax(Index: Integer; const ATXSDecimal: TXSDecimal);
    function  stateTax_Specified(Index: Integer): boolean;
    procedure SetsubTotal(Index: Integer; const ATXSDecimal: TXSDecimal);
    function  subTotal_Specified(Index: Integer): boolean;
    procedure SettenderType(Index: Integer; const AtenderType: tenderType);
    function  tenderType_Specified(Index: Integer): boolean;
    procedure SetterminalId(Index: Integer; const Astring: string);
    function  terminalId_Specified(Index: Integer): boolean;
    procedure SetterminalPassword(Index: Integer; const Astring: string);
    function  terminalPassword_Specified(Index: Integer): boolean;
    procedure Settotal(Index: Integer; const ATXSDecimal: TXSDecimal);
    function  total_Specified(Index: Integer): boolean;
    procedure SettxDate(Index: Integer; const ATXSDateTime: TXSDateTime);
    function  txDate_Specified(Index: Integer): boolean;
    procedure SettxType(Index: Integer; const AtxType: txType);
    function  txType_Specified(Index: Integer): boolean;
  public
    destructor Destroy; override;
  published
    property merchantId:       string       Index (IS_OPTN or IS_UNQL) read FmerchantId write SetmerchantId stored merchantId_Specified;
    property municipalTax:     TXSDecimal   Index (IS_OPTN or IS_UNQL) read FmunicipalTax write SetmunicipalTax stored municipalTax_Specified;
    property stateTax:         TXSDecimal   Index (IS_OPTN or IS_UNQL) read FstateTax write SetstateTax stored stateTax_Specified;
    property subTotal:         TXSDecimal   Index (IS_OPTN or IS_UNQL) read FsubTotal write SetsubTotal stored subTotal_Specified;
    property tenderType:       tenderType   Index (IS_OPTN or IS_UNQL) read FtenderType write SettenderType stored tenderType_Specified;
    property terminalId:       string       Index (IS_OPTN or IS_UNQL) read FterminalId write SetterminalId stored terminalId_Specified;
    property terminalPassword: string       Index (IS_OPTN or IS_UNQL) read FterminalPassword write SetterminalPassword stored terminalPassword_Specified;
    property total:            TXSDecimal   Index (IS_OPTN or IS_UNQL) read Ftotal write Settotal stored total_Specified;
    property txDate:           TXSDateTime  Index (IS_OPTN or IS_UNQL) read FtxDate write SettxDate stored txDate_Specified;
    property txType:           txType       Index (IS_OPTN or IS_UNQL) read FtxType write SettxType stored txType_Specified;
  end;



  // ************************************************************************ //
  // XML       : txInfo, global, <complexType>
  // Namespace : http://txserver.sut.softekpr.com/1
  // ************************************************************************ //
  txInfo = class(TRemotable)
  private
    FcontrolNumber: string;
    FcontrolNumber_Specified: boolean;
    FdrawDate: TXSDateTime;
    FdrawDate_Specified: boolean;
    FdrawNumber: string;
    FdrawNumber_Specified: boolean;
    FivuLottoNumber: string;
    FivuLottoNumber_Specified: boolean;
    FmunicipalTax: TXSDecimal;
    FmunicipalTax_Specified: boolean;
    FstateTax: TXSDecimal;
    FstateTax_Specified: boolean;
    FsubTotal: TXSDecimal;
    FsubTotal_Specified: boolean;
    FtenderType: tenderType;
    FtenderType_Specified: boolean;
    Ftotal: TXSDecimal;
    Ftotal_Specified: boolean;
    FtransactionDate: TXSDateTime;
    FtransactionDate_Specified: boolean;
    FtransactionType: txType;
    FtransactionType_Specified: boolean;
    procedure SetcontrolNumber(Index: Integer; const Astring: string);
    function  controlNumber_Specified(Index: Integer): boolean;
    procedure SetdrawDate(Index: Integer; const ATXSDateTime: TXSDateTime);
    function  drawDate_Specified(Index: Integer): boolean;
    procedure SetdrawNumber(Index: Integer; const Astring: string);
    function  drawNumber_Specified(Index: Integer): boolean;
    procedure SetivuLottoNumber(Index: Integer; const Astring: string);
    function  ivuLottoNumber_Specified(Index: Integer): boolean;
    procedure SetmunicipalTax(Index: Integer; const ATXSDecimal: TXSDecimal);
    function  municipalTax_Specified(Index: Integer): boolean;
    procedure SetstateTax(Index: Integer; const ATXSDecimal: TXSDecimal);
    function  stateTax_Specified(Index: Integer): boolean;
    procedure SetsubTotal(Index: Integer; const ATXSDecimal: TXSDecimal);
    function  subTotal_Specified(Index: Integer): boolean;
    procedure SettenderType(Index: Integer; const AtenderType: tenderType);
    function  tenderType_Specified(Index: Integer): boolean;
    procedure Settotal(Index: Integer; const ATXSDecimal: TXSDecimal);
    function  total_Specified(Index: Integer): boolean;
    procedure SettransactionDate(Index: Integer; const ATXSDateTime: TXSDateTime);
    function  transactionDate_Specified(Index: Integer): boolean;
    procedure SettransactionType(Index: Integer; const AtxType: txType);
    function  transactionType_Specified(Index: Integer): boolean;
  public
    destructor Destroy; override;
  published
    property controlNumber:   string       Index (IS_OPTN or IS_UNQL) read FcontrolNumber write SetcontrolNumber stored controlNumber_Specified;
    property drawDate:        TXSDateTime  Index (IS_OPTN or IS_UNQL) read FdrawDate write SetdrawDate stored drawDate_Specified;
    property drawNumber:      string       Index (IS_OPTN or IS_UNQL) read FdrawNumber write SetdrawNumber stored drawNumber_Specified;
    property ivuLottoNumber:  string       Index (IS_OPTN or IS_UNQL) read FivuLottoNumber write SetivuLottoNumber stored ivuLottoNumber_Specified;
    property municipalTax:    TXSDecimal   Index (IS_OPTN or IS_UNQL) read FmunicipalTax write SetmunicipalTax stored municipalTax_Specified;
    property stateTax:        TXSDecimal   Index (IS_OPTN or IS_UNQL) read FstateTax write SetstateTax stored stateTax_Specified;
    property subTotal:        TXSDecimal   Index (IS_OPTN or IS_UNQL) read FsubTotal write SetsubTotal stored subTotal_Specified;
    property tenderType:      tenderType   Index (IS_OPTN or IS_UNQL) read FtenderType write SettenderType stored tenderType_Specified;
    property total:           TXSDecimal   Index (IS_OPTN or IS_UNQL) read Ftotal write Settotal stored total_Specified;
    property transactionDate: TXSDateTime  Index (IS_OPTN or IS_UNQL) read FtransactionDate write SettransactionDate stored transactionDate_Specified;
    property transactionType: txType       Index (IS_OPTN or IS_UNQL) read FtransactionType write SettransactionType stored transactionType_Specified;
  end;



  // ************************************************************************ //
  // XML       : txInfoRequest, global, <complexType>
  // Namespace : http://txserver.sut.softekpr.com/1
  // ************************************************************************ //
  txInfoRequest = class(TRemotable)
  private
    FendDate: TXSDateTime;
    FendDate_Specified: boolean;
    FmerchantId: string;
    FmerchantId_Specified: boolean;
    FstartDate: TXSDateTime;
    FstartDate_Specified: boolean;
    FterminalId: string;
    FterminalId_Specified: boolean;
    FterminalPassword: string;
    FterminalPassword_Specified: boolean;
    procedure SetendDate(Index: Integer; const ATXSDateTime: TXSDateTime);
    function  endDate_Specified(Index: Integer): boolean;
    procedure SetmerchantId(Index: Integer; const Astring: string);
    function  merchantId_Specified(Index: Integer): boolean;
    procedure SetstartDate(Index: Integer; const ATXSDateTime: TXSDateTime);
    function  startDate_Specified(Index: Integer): boolean;
    procedure SetterminalId(Index: Integer; const Astring: string);
    function  terminalId_Specified(Index: Integer): boolean;
    procedure SetterminalPassword(Index: Integer; const Astring: string);
    function  terminalPassword_Specified(Index: Integer): boolean;
  public
    destructor Destroy; override;
  published
    property endDate:          TXSDateTime  Index (IS_OPTN or IS_UNQL) read FendDate write SetendDate stored endDate_Specified;
    property merchantId:       string       Index (IS_OPTN or IS_UNQL) read FmerchantId write SetmerchantId stored merchantId_Specified;
    property startDate:        TXSDateTime  Index (IS_OPTN or IS_UNQL) read FstartDate write SetstartDate stored startDate_Specified;
    property terminalId:       string       Index (IS_OPTN or IS_UNQL) read FterminalId write SetterminalId stored terminalId_Specified;
    property terminalPassword: string       Index (IS_OPTN or IS_UNQL) read FterminalPassword write SetterminalPassword stored terminalPassword_Specified;
  end;


  // ************************************************************************ //
  // Namespace : http://txserver.sut.softekpr.com/1
  // transport : http://schemas.xmlsoap.org/soap/http
  // style     : document
  // use       : literal
  // binding   : TxServerServiceSoapBinding
  // service   : TxServerService
  // port      : TxServerPort
  // URL       : http://txportwst.txhubpr.com/txserver/1
  // ************************************************************************ //
  TxServer = interface(IInvokable)
  ['{FA236F41-8840-15A4-8F74-1E1583384A66}']
    function  requestIVULoto(const transaction: transaction): ivuLotoData; stdcall;
    function  requestTxInfo(const arg0: txInfoRequest): txInfoResponse; stdcall;
  end;

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


implementation
  uses SysUtils;

function GetTxServer(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): TxServer;
const
  defWSDL = 'http://txportwst.txhubpr.com/txserver/1?wsdl';
  defURL  = 'http://txportwst.txhubpr.com/txserver/1';
  defSvc  = 'TxServerService';
  defPrt  = 'TxServerPort';
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 TxServer);
    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;


//I removed implementation because Stack Overflow answer can only contain 30000 characters 

initialization
  { TxServer }
  InvRegistry.RegisterInterface(TypeInfo(TxServer), 'http://txserver.sut.softekpr.com/1', 'UTF-8');
  InvRegistry.RegisterDefaultSOAPAction(TypeInfo(TxServer), '');
  InvRegistry.RegisterInvokeOptions(TypeInfo(TxServer), ioDocument);
  { TxServer.requestIVULoto }
  InvRegistry.RegisterMethodInfo(TypeInfo(TxServer), 'requestIVULoto', '',
                                 '[ReturnName="IVULoto"]', IS_OPTN or IS_UNQL);
  InvRegistry.RegisterParamInfo(TypeInfo(TxServer), 'requestIVULoto', 'transaction', '',
                                '', IS_UNQL);
  InvRegistry.RegisterParamInfo(TypeInfo(TxServer), 'requestIVULoto', 'IVULoto', '',
                                '', IS_UNQL);
  { TxServer.requestTxInfo }
  InvRegistry.RegisterMethodInfo(TypeInfo(TxServer), 'requestTxInfo', '',
                                 '[ReturnName="return"]', IS_OPTN or IS_UNQL);
  InvRegistry.RegisterParamInfo(TypeInfo(TxServer), 'requestTxInfo', 'arg0', '',
                                '', IS_UNQL);
  InvRegistry.RegisterParamInfo(TypeInfo(TxServer), 'requestTxInfo', 'return', '',
                                '', IS_UNQL);
  RemClassRegistry.RegisterXSInfo(TypeInfo(txInfoResponseStatus), 'http://txserver.sut.softekpr.com/1', 'txInfoResponseStatus');
  RemClassRegistry.RegisterXSInfo(TypeInfo(Array_Of_txInfo), 'http://txserver.sut.softekpr.com/1', 'Array_Of_txInfo');
  RemClassRegistry.RegisterXSInfo(TypeInfo(txPosResponseStatus), 'http://txserver.sut.softekpr.com/1', 'txPosResponseStatus');
  RemClassRegistry.RegisterXSInfo(TypeInfo(txType), 'http://txserver.sut.softekpr.com/1', 'txType');
  RemClassRegistry.RegisterXSClass(ivuLotoData, 'http://txserver.sut.softekpr.com/1', 'ivuLotoData');
  RemClassRegistry.RegisterXSClass(txInfoResponse, 'http://txserver.sut.softekpr.com/1', 'txInfoResponse');
  RemClassRegistry.RegisterXSInfo(TypeInfo(tenderType), 'http://txserver.sut.softekpr.com/1', 'tenderType');
  RemClassRegistry.RegisterXSClass(transaction, 'http://txserver.sut.softekpr.com/1', 'transaction');
  RemClassRegistry.RegisterXSClass(txInfo, 'http://txserver.sut.softekpr.com/1', 'txInfo');
  RemClassRegistry.RegisterXSClass(txInfoRequest, 'http://txserver.sut.softekpr.com/1', 'txInfoRequest');

end.

Thank you for giving it a shot. My fear that D6 is the issue is verified. I guess I need to upgrade the project at some point. So many deprecated controls though. Com or shellexec here I come. — fourwhey, Aug 18 '14 at 03:21

Consuming a web service - Delphi 6

1 Answers1