Ошибка HTTPRIO под iOS

[Drop]

Здравствуйте!

У меня какие-то проблемы с HTTPRIO. Под win32 все работает. В том же проекте под iOS, возникает ошибка EIntfCastError "interface not supported". Пробовал делать так, как описано здесь. Та же ошибка.

Веб-сервис импортирован.

Пробовал такой вариант обращения к функции веб-сервиса:

procedure THeaderFooterwithNavigation.Button1Click(Sender: TObject);
Var
b: boolean;
begin
b := (HTTPRIO1 as KPPorttype).test; // —--— Здесь возникает ошибка
end

И такой:

procedure THeaderFooterwithNavigation.Button1Click(Sender: TObject);
Var
Interf: KPPortType;
RIOAccess: IRIOAccess;
X: THTTPRIO;
begin

interf:=GetKPPortType(true, 'http://cloudunion.ru/KP/ws/KPData.ws?wsdl');
RIOAccess:=interf as IRIOAccess;
x := RIOAccess as THTTPRIO; // —--— Здесь возникает ошибка

end

Повторюсь, под win32 работает (по крайней мере первый вариант).
Поделитесь опытом? Что я делаю не так? Может имеются какие-то специфические настройки httprio для его работы под ios?

Заранее спасибо! Буду рад любой помощи!

[Mifody]

Веб-сервис импортирован.

откуда? из виндовой либы? так чему тогда удивляться

[Drop]

Сообщение от Mifody

откуда? из виндовой либы? так чему тогда удивляться

Я неправильно выразился. Импортирован через WSDL importer. Т.е. модуль с описанием веб-сервиса присутствует и объявлен.

[Drop]

Спасибо, разобрался. Т.е. не совсем, но понял куда копать. Ошибка возникала из-за аутентификации. Возможно дело в шифровании.