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