Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: Сети > Ошибка при обращении к web-сервису


Автор: Гость_Дима 29.4.2005, 14:58
Добра вам!
есть такой код
Код

procedure TForm2.Button1Click(Sender: TObject);
var
Cm: integer;
pack: Package;
pars: ArrayOfParameterData;
begin

// заполняю параметры для web-сервиса 

pack.ModelCode := '30028';
pack.RecipientCode := 'OduSever';
SetLength(pars,1);
pars[0] := ParameterData.Create;
pars[0].ParameterCode := 'date_t_sel';
pars[0].ParameterValue := '20.04.2005';
pack.Parameters := pars;

Cm := (GetNetAPIServiceSoap().AddPackageToQueue('tech','tech',pack));

ShowMessage(IntToStr(Cm));

end;

при выполнении
Cm := (GetNetAPIServiceSoap().AddPackageToQueue('tech','tech',pack));
возникает глупая ошибка

Conversion from class TButton to SOAP is not supported и т.д.

причем здесь класс ТБуттон - не понимаю ...
может кто подскажет , в каком направлении копать?

Для ясности привожу описания классa Package
Код

// ************************************************************************ //
// Namespace : http://enersys.ru/webservices/
// ************************************************************************ //
Package = class(TRemotable)
private
FRecipientCode: WideString;
FModelCode: WideString;
FParameters: ArrayOfParameterData;
public
destructor Destroy; override;
published
property RecipientCode: WideString read FRecipientCode write FRecipientCode;
property ModelCode: WideString read FModelCode write FModelCode;
property Parameters: ArrayOfParameterData read FParameters write FParameters;
end;

ParameterData = class(TRemotable)
private
FParameterCode: WideString;
FParameterValue: WideString;
published
property ParameterCode: WideString read FParameterCode write FParameterCode;
property ParameterValue: WideString read FParameterValue write FParameterValue;
end;

ArrayOfParameterData = array of ParameterData;

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)