Есть Web- сервис, к которому мне надо обратиться из Delphi.
WSDL :
http://helpa.pro/api/integration.php?wsdlОписание методов сервиса
http://zaptrade.ru/integration/Я загрузил WSDL в проект, получил описание, в котором все параметры описывались как «Arry» т.к в Delphi такого типа нет, то заменил все на «array of Variant»:
arra=array of Variant;
IntegrationPort = interface(IInvokable)
['']
function getStatusHistory(const request: Arra): WideString; stdcall;
function getPaymentOperationHistory(const request: Arra): WideString; stdcall;
function getOrder(const request: arra): WideString; stdcall;
function getOrderItems(const request: Arra): WideString; stdcall;
function getUser(const request: Arra): WideString; stdcall;
function getUserBalance(const request: Arra): WideString; stdcall;
function getAllOrderStatuses(const request: Arra): WideString; stdcall;
function addPayment(const request: Arra): WideString; stdcall;
end;
Для обрашения к сервису пишу :
arr1:=vararraycreate([0, 1], varVariant);
arr1[0]:='Пароль';
str:=(htpr1 as IntegrationPort).getOrder(arr1);
Получаю ответ от сервера :
<error>Неверный пароль</error>
Подскажите, как правильно передать параметры при вызыве таких фукций.