VPF::Ошибка при обращении к web-сервису

Гость_Дима

Дата 29.4.2005, 14:58 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Добра вам!
есть такой код

Код


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;

Это сообщение отредактировал(а) Girder - 29.4.2005, 15:10

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »