delphi - Error with ActiveX and MCVE -
in search of error of return of s_ok , not s_false (see previous message), have made small sever 1 method wich send s_false (hresult type), unfortunatly have error small client program: project testtest.exe has send exception class eolesyserror message 'variable type invalid' (it's instruction return:=coll.method
raise error). idea? .ridl server code:
function ttest1.method: hresult; begin result:=s_false; end;
and client code:
procedure tform1.button1click(sender: tobject); var coll:variant; return:hresult; begin coll:= createoleobject('project.test1'); return:=coll.method; if return=s_false showmessage('ok') else showmessage('error!!!!!!!!!!!!!!!!'); end;
for full problem have made mcve: server: enter link description here client: enter link description here
i dont think need parameter 'value' of type hresult
. can delete parameter: method return hresult
. if want test parameter, try changing 'value' bstr
[in] , pass string there. should work.
return:=coll.method('place parameter string here');
cheers
Comments
Post a Comment