Добра вам! есть такой код Код | 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;
| |