Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Basic COM question
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
COM/DCOM et OLE Automation
Versions des environnements
Visual FoxPro:
VFP 9
Database:
Visual FoxPro
Divers
Thread ID:
01057884
Message ID:
01057897
Vues:
12
Hi Borislav
Thanks for your fast response, but still, it doesn't work...
In the meantime, being a production server, i put instead a
do case
   case lcCommand = "myfunction1"
     lAnswer = This.MyFunction1( MyXml )
   *-** etc...
endcase
This works, go figure :-)
Jaime

>
>lcCommand = "This."+lcCommand+"(["+lcXml+"])"
>lAnswer = &lcCommand
>
>
>
>>Hi
>>I have the following construct in my web service:
>>define class basecom as Session
>>  procedure Init
>>   ***blablabla
>>  endproc
>>  procedure Error ( nError, nMethod, nLine )
>>   ***bla bla bla
>>  endproc
>>enddefine
>>
>>define class myWS as basecom olepublic
>>  procedure myfunction1( inxml as String ) as String
>>   *** bla bla
>>  endproc
>>  procedure myfunction2( inxml as String ) as String
>>  *** more bla bla
>>  endproc
>>
>>  procedure myDispatch( DispXml as String )
>>   *** DispXml contains a command clause ( "myfunction1" or "myfunction2" )
>>   *** and the xml parameter to send
>>   *** so we strip those from dispxml, say to lcCommand and lcXml
>>
>>   lcCommand = "This."+lcCommand+"("+lcXml+")"
>>
>>   lAnswer = &lcCommand &&& <-- this call fails
>>
>>enddfine
>>Why the call fails? Shouldn't it call the other functions using This. ? Is there another way to get a pointer to the created com object?
>>Thanks
>>Jaime
Why do programs stop working correctly as soon as you leave the Fox?
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform