Right, I am trying to get an app written which in Delphi 2006 to do
with the Google Adwords API. The old method I did was Program sends data to my web server --> Web server handles all the soap to Google --> Info is sent back to my program All done with indy. However I want to get away from that method and talk soap right to Google. So, I fired up Delphi, created a new application. Then Imported one of the WSDL's from Google ( With project open (must be open), File, New, Other, Webservices, WSDL importer) And now I have my pas file. I put that in the uses section of my first form (at the top before the types) Now... what the heck do I do with it. I have spent the best part of 4 hours trying to figure this out and im getting no-where. Here is the WSDL location (of one of them) https://adwords.google.com/api/adwords/v I have also attached the generated pas file. O.o My brain hurts, and all I have got is With GetInfoInterface(true,'',HTTPRIO1) do lol Cheers |
// ************************************************************************ // // The types declared in this file were generated from data read from the // WSDL File described below: // WSDL : https://adwords.google.com/api/adwords/v10/InfoService?wsdl // Encoding : UTF-8 // Version : 1.0 // (24/04/2007 11:04:16 a.m. - 16.03.2006) // ************************************************************************ //
unit InfoService; 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 [EMAIL PROTECTED] 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. // ************************************************************************ // // !:string - "http://www.w3.org/2001/XMLSchema" // !:long - "http://www.w3.org/2001/XMLSchema" // !:int - "http://www.w3.org/2001/XMLSchema" // !:boolean - "http://www.w3.org/2001/XMLSchema" // !:date - "http://www.w3.org/2001/XMLSchema" getFreeUsageQuotaThisMonth = class; { "https://adwords.google.com/api/adwords/v10" } getOperationsQuotaThisMonth = class; { "https://adwords.google.com/api/adwords/v10" } getUsageQuotaThisMonth = class; { "https://adwords.google.com/api/adwords/v10" } getUsageQuotaThisMonthResponse = class; { "https://adwords.google.com/api/adwords/v10" } getUnitCountResponse = class; { "https://adwords.google.com/api/adwords/v10" } getUnitCountForMethodResponse = class; { "https://adwords.google.com/api/adwords/v10" } getOperationsQuotaThisMonthResponse = class; { "https://adwords.google.com/api/adwords/v10" } getOperationCountResponse = class; { "https://adwords.google.com/api/adwords/v10" } getFreeUsageQuotaThisMonthResponse = class; { "https://adwords.google.com/api/adwords/v10" } getMethodCostResponse = class; { "https://adwords.google.com/api/adwords/v10" } ApiError = class; { "https://adwords.google.com/api/adwords/v10" } ApiException = class; { "https://adwords.google.com/api/adwords/v10" } getUnitCountForMethod = class; { "https://adwords.google.com/api/adwords/v10" } getUnitCountForClients = class; { "https://adwords.google.com/api/adwords/v10" } getUnitCount = class; { "https://adwords.google.com/api/adwords/v10" } getOperationCount = class; { "https://adwords.google.com/api/adwords/v10" } getMethodCost = class; { "https://adwords.google.com/api/adwords/v10" } ClientUsageRecord = class; { "https://adwords.google.com/api/adwords/v10" } useragent = class; { "https://adwords.google.com/api/adwords/v10"[H] } password = class; { "https://adwords.google.com/api/adwords/v10"[H] } email = class; { "https://adwords.google.com/api/adwords/v10"[H] } clientEmail = class; { "https://adwords.google.com/api/adwords/v10"[H] } clientCustomerId = class; { "https://adwords.google.com/api/adwords/v10"[H] } developerToken = class; { "https://adwords.google.com/api/adwords/v10"[H] } applicationToken = class; { "https://adwords.google.com/api/adwords/v10"[H] } responseTime = class; { "https://adwords.google.com/api/adwords/v10"[H] } operations = class; { "https://adwords.google.com/api/adwords/v10"[H] } units = class; { "https://adwords.google.com/api/adwords/v10"[H] } requestId = class; { "https://adwords.google.com/api/adwords/v10"[H] } // ************************************************************************ // // Namespace : https://adwords.google.com/api/adwords/v10 // Serializtn: [xoLiteralParam] // ************************************************************************ // getFreeUsageQuotaThisMonth = class(TRemotable) private public constructor Create; override; published end; // ************************************************************************ // // Namespace : https://adwords.google.com/api/adwords/v10 // Serializtn: [xoLiteralParam] // ************************************************************************ // getOperationsQuotaThisMonth = class(TRemotable) private public constructor Create; override; published end; getUnitCountForClientsResponse = array of ClientUsageRecord; { "https://adwords.google.com/api/adwords/v10" } // ************************************************************************ // // Namespace : https://adwords.google.com/api/adwords/v10 // Serializtn: [xoLiteralParam] // ************************************************************************ // getUsageQuotaThisMonth = class(TRemotable) private public constructor Create; override; published end; // ************************************************************************ // // Namespace : https://adwords.google.com/api/adwords/v10 // Serializtn: [xoLiteralParam] // ************************************************************************ // getUsageQuotaThisMonthResponse = class(TRemotable) private FgetUsageQuotaThisMonthReturn: Int64; public constructor Create; override; published property getUsageQuotaThisMonthReturn: Int64 read FgetUsageQuotaThisMonthReturn write FgetUsageQuotaThisMonthReturn; end; // ************************************************************************ // // Namespace : https://adwords.google.com/api/adwords/v10 // Serializtn: [xoLiteralParam] // ************************************************************************ // getUnitCountResponse = class(TRemotable) private FgetUnitCountReturn: Int64; public constructor Create; override; published property getUnitCountReturn: Int64 read FgetUnitCountReturn write FgetUnitCountReturn; end; // ************************************************************************ // // Namespace : https://adwords.google.com/api/adwords/v10 // Serializtn: [xoLiteralParam] // ************************************************************************ // getUnitCountForMethodResponse = class(TRemotable) private FgetUnitCountForMethodReturn: Int64; public constructor Create; override; published property getUnitCountForMethodReturn: Int64 read FgetUnitCountForMethodReturn write FgetUnitCountForMethodReturn; end; // ************************************************************************ // // Namespace : https://adwords.google.com/api/adwords/v10 // Serializtn: [xoLiteralParam] // ************************************************************************ // getOperationsQuotaThisMonthResponse = class(TRemotable) private FgetOperationsQuotaThisMonthReturn: Int64; public constructor Create; override; published property getOperationsQuotaThisMonthReturn: Int64 read FgetOperationsQuotaThisMonthReturn write FgetOperationsQuotaThisMonthReturn; end; // ************************************************************************ // // Namespace : https://adwords.google.com/api/adwords/v10 // Serializtn: [xoLiteralParam] // ************************************************************************ // getOperationCountResponse = class(TRemotable) private FgetOperationCountReturn: Int64; public constructor Create; override; published property getOperationCountReturn: Int64 read FgetOperationCountReturn write FgetOperationCountReturn; end; // ************************************************************************ // // Namespace : https://adwords.google.com/api/adwords/v10 // Serializtn: [xoLiteralParam] // ************************************************************************ // getFreeUsageQuotaThisMonthResponse = class(TRemotable) private FgetFreeUsageQuotaThisMonthReturn: Int64; public constructor Create; override; published property getFreeUsageQuotaThisMonthReturn: Int64 read FgetFreeUsageQuotaThisMonthReturn write FgetFreeUsageQuotaThisMonthReturn; end; // ************************************************************************ // // Namespace : https://adwords.google.com/api/adwords/v10 // Serializtn: [xoLiteralParam] // ************************************************************************ // getMethodCostResponse = class(TRemotable) private FgetMethodCostReturn: Integer; public constructor Create; override; published property getMethodCostReturn: Integer read FgetMethodCostReturn write FgetMethodCostReturn; end; // ************************************************************************ // // Namespace : https://adwords.google.com/api/adwords/v10 // ************************************************************************ // ApiError = class(TRemotable) private Fcode: Integer; Fdetail: WideString; Ffield: WideString; Findex_: Integer; FisExemptable: Boolean; FtextIndex: Integer; FtextLength: Integer; Ftrigger: WideString; published property code: Integer read Fcode write Fcode; property detail: WideString read Fdetail write Fdetail; property field: WideString read Ffield write Ffield; property index_: Integer read Findex_ write Findex_; property isExemptable: Boolean read FisExemptable write FisExemptable; property textIndex: Integer read FtextIndex write FtextIndex; property textLength: Integer read FtextLength write FtextLength; property trigger: WideString read Ftrigger write Ftrigger; end; // ************************************************************************ // // Namespace : https://adwords.google.com/api/adwords/v10 // ************************************************************************ // ApiException = class(TRemotable) private Fcode: Integer; Ferrors: ApiError; Finternal: Boolean; Fmessage_: WideString; Ftrigger: WideString; public destructor Destroy; override; published property code: Integer read Fcode write Fcode; property errors: ApiError read Ferrors write Ferrors; property internal: Boolean read Finternal write Finternal; property message_: WideString read Fmessage_ write Fmessage_; property trigger: WideString read Ftrigger write Ftrigger; end; fault = ApiException; { "https://adwords.google.com/api/adwords/v10"[F] } // ************************************************************************ // // Namespace : https://adwords.google.com/api/adwords/v10 // Serializtn: [xoLiteralParam] // ************************************************************************ // getUnitCountForMethod = class(TRemotable) private Fservice: WideString; Fmethod: WideString; FstartDate: TXSDate; FendDate: TXSDate; public constructor Create; override; destructor Destroy; override; published property service: WideString read Fservice write Fservice; property method: WideString read Fmethod write Fmethod; property startDate: TXSDate read FstartDate write FstartDate; property endDate: TXSDate read FendDate write FendDate; end; // ************************************************************************ // // Namespace : https://adwords.google.com/api/adwords/v10 // Serializtn: [xoLiteralParam] // ************************************************************************ // getUnitCountForClients = class(TRemotable) private FclientEmails: WideString; FstartDate: TXSDate; FendDate: TXSDate; public constructor Create; override; destructor Destroy; override; published property clientEmails: WideString read FclientEmails write FclientEmails; property startDate: TXSDate read FstartDate write FstartDate; property endDate: TXSDate read FendDate write FendDate; end; // ************************************************************************ // // Namespace : https://adwords.google.com/api/adwords/v10 // Serializtn: [xoLiteralParam] // ************************************************************************ // getUnitCount = class(TRemotable) private FstartDate: TXSDate; FendDate: TXSDate; public constructor Create; override; destructor Destroy; override; published property startDate: TXSDate read FstartDate write FstartDate; property endDate: TXSDate read FendDate write FendDate; end; // ************************************************************************ // // Namespace : https://adwords.google.com/api/adwords/v10 // Serializtn: [xoLiteralParam] // ************************************************************************ // getOperationCount = class(TRemotable) private FstartDate: TXSDate; FendDate: TXSDate; public constructor Create; override; destructor Destroy; override; published property startDate: TXSDate read FstartDate write FstartDate; property endDate: TXSDate read FendDate write FendDate; end; // ************************************************************************ // // Namespace : https://adwords.google.com/api/adwords/v10 // Serializtn: [xoLiteralParam] // ************************************************************************ // getMethodCost = class(TRemotable) private Fservice: WideString; Fmethod: WideString; Fdate: TXSDate; public constructor Create; override; destructor Destroy; override; published property service: WideString read Fservice write Fservice; property method: WideString read Fmethod write Fmethod; property date: TXSDate read Fdate write Fdate; end; // ************************************************************************ // // Namespace : https://adwords.google.com/api/adwords/v10 // ************************************************************************ // ClientUsageRecord = class(TRemotable) private FclientEmail: WideString; FquotaUnits: Int64; published property clientEmail: WideString read FclientEmail write FclientEmail; property quotaUnits: Int64 read FquotaUnits write FquotaUnits; end; // ************************************************************************ // // Namespace : https://adwords.google.com/api/adwords/v10 // Serializtn: [xoSimpleTypeWrapper] // ************************************************************************ // useragent = class(TSOAPHeader) private FValue: WideString; published property Value: WideString read FValue write FValue; end; // ************************************************************************ // // Namespace : https://adwords.google.com/api/adwords/v10 // Serializtn: [xoSimpleTypeWrapper] // ************************************************************************ // password = class(TSOAPHeader) private FValue: WideString; published property Value: WideString read FValue write FValue; end; // ************************************************************************ // // Namespace : https://adwords.google.com/api/adwords/v10 // Serializtn: [xoSimpleTypeWrapper] // ************************************************************************ // email = class(TSOAPHeader) private FValue: WideString; published property Value: WideString read FValue write FValue; end; // ************************************************************************ // // Namespace : https://adwords.google.com/api/adwords/v10 // Serializtn: [xoSimpleTypeWrapper] // ************************************************************************ // clientEmail = class(TSOAPHeader) private FValue: WideString; published property Value: WideString read FValue write FValue; end; // ************************************************************************ // // Namespace : https://adwords.google.com/api/adwords/v10 // Serializtn: [xoSimpleTypeWrapper] // ************************************************************************ // clientCustomerId = class(TSOAPHeader) private FValue: WideString; published property Value: WideString read FValue write FValue; end; // ************************************************************************ // // Namespace : https://adwords.google.com/api/adwords/v10 // Serializtn: [xoSimpleTypeWrapper] // ************************************************************************ // developerToken = class(TSOAPHeader) private FValue: WideString; published property Value: WideString read FValue write FValue; end; // ************************************************************************ // // Namespace : https://adwords.google.com/api/adwords/v10 // Serializtn: [xoSimpleTypeWrapper] // ************************************************************************ // applicationToken = class(TSOAPHeader) private FValue: WideString; published property Value: WideString read FValue write FValue; end; // ************************************************************************ // // Namespace : https://adwords.google.com/api/adwords/v10 // Serializtn: [xoSimpleTypeWrapper] // ************************************************************************ // responseTime = class(TSOAPHeader) private FValue: Int64; published property Value: Int64 read FValue write FValue; end; // ************************************************************************ // // Namespace : https://adwords.google.com/api/adwords/v10 // Serializtn: [xoSimpleTypeWrapper] // ************************************************************************ // operations = class(TSOAPHeader) private FValue: Int64; published property Value: Int64 read FValue write FValue; end; // ************************************************************************ // // Namespace : https://adwords.google.com/api/adwords/v10 // Serializtn: [xoSimpleTypeWrapper] // ************************************************************************ // units = class(TSOAPHeader) private FValue: Int64; published property Value: Int64 read FValue write FValue; end; // ************************************************************************ // // Namespace : https://adwords.google.com/api/adwords/v10 // Serializtn: [xoSimpleTypeWrapper] // ************************************************************************ // requestId = class(TSOAPHeader) private FValue: WideString; published property Value: WideString read FValue write FValue; end; // ************************************************************************ // // Namespace : https://adwords.google.com/api/adwords/v10 // transport : http://schemas.xmlsoap.org/soap/http // style : document // binding : InfoServiceSoapBinding // service : InfoService // port : InfoService // URL : https://adwords.google.com/api/adwords/v10/InfoService // ************************************************************************ // InfoInterface = interface(IInvokable) ['{C9DFB757-3500-B070-5EF2-260E77A5696F}'] function getFreeUsageQuotaThisMonth(const parameters: getFreeUsageQuotaThisMonth): getFreeUsageQuotaThisMonthResponse; stdcall; function getMethodCost(const parameters: getMethodCost): getMethodCostResponse; stdcall; function getOperationCount(const parameters: getOperationCount): getOperationCountResponse; stdcall; function getOperationsQuotaThisMonth(const parameters: getOperationsQuotaThisMonth): getOperationsQuotaThisMonthResponse; stdcall; function getUnitCount(const parameters: getUnitCount): getUnitCountResponse; stdcall; function getUnitCountForClients(const parameters: getUnitCountForClients): getUnitCountForClientsResponse; stdcall; function getUnitCountForMethod(const parameters: getUnitCountForMethod): getUnitCountForMethodResponse; stdcall; function getUsageQuotaThisMonth(const parameters: getUsageQuotaThisMonth): getUsageQuotaThisMonthResponse; stdcall; end; function GetInfoInterface(UseWSDL: Boolean=System.False; Addr: string=''; HTTPRIO: THTTPRIO = nil): InfoInterface; implementation function GetInfoInterface(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): InfoInterface; const defWSDL = 'https://adwords.google.com/api/adwords/v10/InfoService?wsdl'; defURL = 'https://adwords.google.com/api/adwords/v10/InfoService'; defSvc = 'InfoService'; defPrt = 'InfoService'; 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 InfoInterface); 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 getFreeUsageQuotaThisMonth.Create; begin inherited Create; FSerializationOptions := [xoLiteralParam]; end; constructor getOperationsQuotaThisMonth.Create; begin inherited Create; FSerializationOptions := [xoLiteralParam]; end; constructor getUsageQuotaThisMonth.Create; begin inherited Create; FSerializationOptions := [xoLiteralParam]; end; constructor getUsageQuotaThisMonthResponse.Create; begin inherited Create; FSerializationOptions := [xoLiteralParam]; end; constructor getUnitCountResponse.Create; begin inherited Create; FSerializationOptions := [xoLiteralParam]; end; constructor getUnitCountForMethodResponse.Create; begin inherited Create; FSerializationOptions := [xoLiteralParam]; end; constructor getOperationsQuotaThisMonthResponse.Create; begin inherited Create; FSerializationOptions := [xoLiteralParam]; end; constructor getOperationCountResponse.Create; begin inherited Create; FSerializationOptions := [xoLiteralParam]; end; constructor getFreeUsageQuotaThisMonthResponse.Create; begin inherited Create; FSerializationOptions := [xoLiteralParam]; end; constructor getMethodCostResponse.Create; begin inherited Create; FSerializationOptions := [xoLiteralParam]; end; destructor ApiException.Destroy; begin if Assigned(Ferrors) then Ferrors.Free; inherited Destroy; end; constructor getUnitCountForMethod.Create; begin inherited Create; FSerializationOptions := [xoLiteralParam]; end; destructor getUnitCountForMethod.Destroy; begin if Assigned(FstartDate) then FstartDate.Free; if Assigned(FendDate) then FendDate.Free; inherited Destroy; end; constructor getUnitCountForClients.Create; begin inherited Create; FSerializationOptions := [xoLiteralParam]; end; destructor getUnitCountForClients.Destroy; begin if Assigned(FstartDate) then FstartDate.Free; if Assigned(FendDate) then FendDate.Free; inherited Destroy; end; constructor getUnitCount.Create; begin inherited Create; FSerializationOptions := [xoLiteralParam]; end; destructor getUnitCount.Destroy; begin if Assigned(FstartDate) then FstartDate.Free; if Assigned(FendDate) then FendDate.Free; inherited Destroy; end; constructor getOperationCount.Create; begin inherited Create; FSerializationOptions := [xoLiteralParam]; end; destructor getOperationCount.Destroy; begin if Assigned(FstartDate) then FstartDate.Free; if Assigned(FendDate) then FendDate.Free; inherited Destroy; end; constructor getMethodCost.Create; begin inherited Create; FSerializationOptions := [xoLiteralParam]; end; destructor getMethodCost.Destroy; begin if Assigned(Fdate) then Fdate.Free; inherited Destroy; end; initialization InvRegistry.RegisterInterface(TypeInfo(InfoInterface), 'https://adwords.google.com/api/adwords/v10', 'UTF-8'); InvRegistry.RegisterDefaultSOAPAction(TypeInfo(InfoInterface), ''); InvRegistry.RegisterInvokeOptions(TypeInfo(InfoInterface), ioDocument); InvRegistry.RegisterInvokeOptions(TypeInfo(InfoInterface), ioLiteral); InvRegistry.RegisterHeaderClass(TypeInfo(InfoInterface), useragent, 'useragent', ''); InvRegistry.RegisterHeaderClass(TypeInfo(InfoInterface), password, 'password', ''); InvRegistry.RegisterHeaderClass(TypeInfo(InfoInterface), email, 'email', ''); InvRegistry.RegisterHeaderClass(TypeInfo(InfoInterface), clientEmail, 'clientEmail', ''); InvRegistry.RegisterHeaderClass(TypeInfo(InfoInterface), clientCustomerId, 'clientCustomerId', ''); InvRegistry.RegisterHeaderClass(TypeInfo(InfoInterface), developerToken, 'developerToken', ''); InvRegistry.RegisterHeaderClass(TypeInfo(InfoInterface), applicationToken, 'applicationToken', ''); InvRegistry.RegisterHeaderClass(TypeInfo(InfoInterface), responseTime, 'responseTime', ''); InvRegistry.RegisterHeaderClass(TypeInfo(InfoInterface), operations, 'operations', ''); InvRegistry.RegisterHeaderClass(TypeInfo(InfoInterface), units, 'units', ''); InvRegistry.RegisterHeaderClass(TypeInfo(InfoInterface), requestId, 'requestId', ''); RemClassRegistry.RegisterXSClass(getFreeUsageQuotaThisMonth, 'https://adwords.google.com/api/adwords/v10', 'getFreeUsageQuotaThisMonth'); RemClassRegistry.RegisterSerializeOptions(getFreeUsageQuotaThisMonth, [xoLiteralParam]); RemClassRegistry.RegisterXSClass(getOperationsQuotaThisMonth, 'https://adwords.google.com/api/adwords/v10', 'getOperationsQuotaThisMonth'); RemClassRegistry.RegisterSerializeOptions(getOperationsQuotaThisMonth, [xoLiteralParam]); RemClassRegistry.RegisterXSInfo(TypeInfo(getUnitCountForClientsResponse), 'https://adwords.google.com/api/adwords/v10', 'getUnitCountForClientsResponse'); RemClassRegistry.RegisterXSClass(getUsageQuotaThisMonth, 'https://adwords.google.com/api/adwords/v10', 'getUsageQuotaThisMonth'); RemClassRegistry.RegisterSerializeOptions(getUsageQuotaThisMonth, [xoLiteralParam]); RemClassRegistry.RegisterXSClass(getUsageQuotaThisMonthResponse, 'https://adwords.google.com/api/adwords/v10', 'getUsageQuotaThisMonthResponse'); RemClassRegistry.RegisterSerializeOptions(getUsageQuotaThisMonthResponse, [xoLiteralParam]); RemClassRegistry.RegisterXSClass(getUnitCountResponse, 'https://adwords.google.com/api/adwords/v10', 'getUnitCountResponse'); RemClassRegistry.RegisterSerializeOptions(getUnitCountResponse, [xoLiteralParam]); RemClassRegistry.RegisterXSClass(getUnitCountForMethodResponse, 'https://adwords.google.com/api/adwords/v10', 'getUnitCountForMethodResponse'); RemClassRegistry.RegisterSerializeOptions(getUnitCountForMethodResponse, [xoLiteralParam]); RemClassRegistry.RegisterXSClass(getOperationsQuotaThisMonthResponse, 'https://adwords.google.com/api/adwords/v10', 'getOperationsQuotaThisMonthResponse'); RemClassRegistry.RegisterSerializeOptions(getOperationsQuotaThisMonthResponse, [xoLiteralParam]); RemClassRegistry.RegisterXSClass(getOperationCountResponse, 'https://adwords.google.com/api/adwords/v10', 'getOperationCountResponse'); RemClassRegistry.RegisterSerializeOptions(getOperationCountResponse, [xoLiteralParam]); RemClassRegistry.RegisterXSClass(getFreeUsageQuotaThisMonthResponse, 'https://adwords.google.com/api/adwords/v10', 'getFreeUsageQuotaThisMonthResponse'); RemClassRegistry.RegisterSerializeOptions(getFreeUsageQuotaThisMonthResponse, [xoLiteralParam]); RemClassRegistry.RegisterXSClass(getMethodCostResponse, 'https://adwords.google.com/api/adwords/v10', 'getMethodCostResponse'); RemClassRegistry.RegisterSerializeOptions(getMethodCostResponse, [xoLiteralParam]); RemClassRegistry.RegisterXSClass(ApiError, 'https://adwords.google.com/api/adwords/v10', 'ApiError'); RemClassRegistry.RegisterExternalPropName(TypeInfo(ApiError), 'index_', 'index'); RemClassRegistry.RegisterXSClass(ApiException, 'https://adwords.google.com/api/adwords/v10', 'ApiException'); RemClassRegistry.RegisterExternalPropName(TypeInfo(ApiException), 'message_', 'message'); RemClassRegistry.RegisterXSInfo(TypeInfo(fault), 'https://adwords.google.com/api/adwords/v10', 'fault'); RemClassRegistry.RegisterXSClass(getUnitCountForMethod, 'https://adwords.google.com/api/adwords/v10', 'getUnitCountForMethod'); RemClassRegistry.RegisterSerializeOptions(getUnitCountForMethod, [xoLiteralParam]); RemClassRegistry.RegisterXSClass(getUnitCountForClients, 'https://adwords.google.com/api/adwords/v10', 'getUnitCountForClients'); RemClassRegistry.RegisterSerializeOptions(getUnitCountForClients, [xoLiteralParam]); RemClassRegistry.RegisterXSClass(getUnitCount, 'https://adwords.google.com/api/adwords/v10', 'getUnitCount'); RemClassRegistry.RegisterSerializeOptions(getUnitCount, [xoLiteralParam]); RemClassRegistry.RegisterXSClass(getOperationCount, 'https://adwords.google.com/api/adwords/v10', 'getOperationCount'); RemClassRegistry.RegisterSerializeOptions(getOperationCount, [xoLiteralParam]); RemClassRegistry.RegisterXSClass(getMethodCost, 'https://adwords.google.com/api/adwords/v10', 'getMethodCost'); RemClassRegistry.RegisterSerializeOptions(getMethodCost, [xoLiteralParam]); RemClassRegistry.RegisterXSClass(ClientUsageRecord, 'https://adwords.google.com/api/adwords/v10', 'ClientUsageRecord'); RemClassRegistry.RegisterXSClass(useragent, 'https://adwords.google.com/api/adwords/v10', 'useragent'); RemClassRegistry.RegisterSerializeOptions(useragent, [xoSimpleTypeWrapper]); RemClassRegistry.RegisterXSClass(password, 'https://adwords.google.com/api/adwords/v10', 'password'); RemClassRegistry.RegisterSerializeOptions(password, [xoSimpleTypeWrapper]); RemClassRegistry.RegisterXSClass(email, 'https://adwords.google.com/api/adwords/v10', 'email'); RemClassRegistry.RegisterSerializeOptions(email, [xoSimpleTypeWrapper]); RemClassRegistry.RegisterXSClass(clientEmail, 'https://adwords.google.com/api/adwords/v10', 'clientEmail'); RemClassRegistry.RegisterSerializeOptions(clientEmail, [xoSimpleTypeWrapper]); RemClassRegistry.RegisterXSClass(clientCustomerId, 'https://adwords.google.com/api/adwords/v10', 'clientCustomerId'); RemClassRegistry.RegisterSerializeOptions(clientCustomerId, [xoSimpleTypeWrapper]); RemClassRegistry.RegisterXSClass(developerToken, 'https://adwords.google.com/api/adwords/v10', 'developerToken'); RemClassRegistry.RegisterSerializeOptions(developerToken, [xoSimpleTypeWrapper]); RemClassRegistry.RegisterXSClass(applicationToken, 'https://adwords.google.com/api/adwords/v10', 'applicationToken'); RemClassRegistry.RegisterSerializeOptions(applicationToken, [xoSimpleTypeWrapper]); RemClassRegistry.RegisterXSClass(responseTime, 'https://adwords.google.com/api/adwords/v10', 'responseTime'); RemClassRegistry.RegisterSerializeOptions(responseTime, [xoSimpleTypeWrapper]); RemClassRegistry.RegisterXSClass(operations, 'https://adwords.google.com/api/adwords/v10', 'operations'); RemClassRegistry.RegisterSerializeOptions(operations, [xoSimpleTypeWrapper]); RemClassRegistry.RegisterXSClass(units, 'https://adwords.google.com/api/adwords/v10', 'units'); RemClassRegistry.RegisterSerializeOptions(units, [xoSimpleTypeWrapper]); RemClassRegistry.RegisterXSClass(requestId, 'https://adwords.google.com/api/adwords/v10', 'requestId'); RemClassRegistry.RegisterSerializeOptions(requestId, [xoSimpleTypeWrapper]); end.
_______________________________________________ NZ Borland Developers Group - Delphi mailing list Post: delphi@delphi.org.nz Admin: http://delphi.org.nz/mailman/listinfo/delphi Unsubscribe: send an email to [EMAIL PROTECTED] with Subject: unsubscribe