[Delphi] Web Services

Zdravo,

Imam problem, ko pošljem REQUEST na server, na drugi strani dobijo nil object.
Pregledal sem vse možne primere, probleme itd. ampak ne najdem buga pri moji aplikaciji.

Ustvaril sem interface IInvokable, pol sem naredil object na TRemotable razred – kreiral s ImeRazreda.Create, nastavil vrednost v WideString ter poslal preko IInvokable ta object ampak mi vrača server exception nazaj, da sem poslal nil object. V initialization od WSDL pa imam vse registirano. WSDL pa sem Importal s WSDL Importer od BDS.

Aja, uporabljam pa BDS 2006.

Koda pa zgleda takole:

TForm1 = class(TForm)
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
CTXManager: CtxManager;
mhasActiveCall: hasActiveCall;
mhasActiveCallResponse: hasActiveCallResponse;
public
{ Public declarations }
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
try
try
CTXManager := GetCtxManager();
mhasActiveCall := hasActiveCall.Create;
mhasActiveCall.dialNumber := Edit1.Text;
mhasActiveCallResponse := hasActiveCallResponse.Create;

CTXManager.hasActiveCall(mhasActiveCall); --- V tem klicu dobim exception, da sem poslal nil object.
except
on e: ERemotableException do
ShowMessage(e.Message);
end;
finally
FreeAndNil(mhasActiveCall);
FreeAndNil(mhasActiveCallResponse);
end;
end;

Ce ima kdo kaksno idejo, kako resit zadevo bi bil zelo vesel !

Lp,
s