Re: How do I send a VFP Object to the Web Service?

Reflector info:
For some reason the image didnt come through. I can email it if necessary.

*** Load Proxy Class and DependenciesDO BatchFilesServiceProxy*** Create Proxy Instance & specify .NET versionLOCAL loService as BatchFilesServiceProxy
loService = CREATEOBJECT("BatchFilesServiceProxy","V2")

loBridge =  loService.oBridge 
loBridge.LoadAssembly('c:\BatchFilesServiceProxy.dll')   

loUser = GetUserCredentials()

loUser.UserID = "galileotest"
loUser.Password = "Webpass2"
loUser.SubmitterID = "INTERN"*!*	** Create Custom HTTP Headers for Authorization
*!*	loService.oService.AddHttpHeader("UserID","galileotest")
*!*	loService.oService.AddHttpHeader("Password","Webpass2")
*!*	loService.oService.AddHttpHeader("SubmitterID","INTERN")

*** Try to login --- this functions but doesn't authenticate with the Web Service
llLogin = loService.HttpLogin("galileotest","Webpass2",.T.)*** Create a COM Value structureLOCAL loValue as BatchFilesService.RetrieveAvailableFilesRequest.ComValue
loValue = loBridge.CreateComValue()*** Invoke a method and set the value from the method result
loValue.SetValueFromInvokeMethod(loService.oService,"RetrieveAvailableFilesRequest",loUser)*** Call your methods and retrieve result
lxResult = loService.RetrieveAvailableFiles(loValue)*** Check for error message if result is failingIF !EMPTY(loService.cErrorMsg)MESSAGEBOX(loService.cErrorMsg,16,'ERROR')ENDIF*******************************************FUNCTION GetUserCredentialsLOCAL loUser 

loUser = CREATEOBJECT("EMPTY")ADDPROPERTY(loUser,"UserID","")ADDPROPERTY(loUser,"Password","")ADDPROPERTY(loUser,"SubmitterID","")RETURN loUserENDFUNC

Here is the excerpts from the admin's example that uses a form to call the RetrieveAvailableFiles function by sending the User Credentials object.

publicpartialclass myForm : Form
        {public myForm ()
            {
            InitializeComponent ();
            }


        UserCredentials user = new UserCredentials ()
        {
            UserID = "galileotest",
            Password = "Webpass1",
            SubmitterID = "INTERN",
        };privatevoid btnSubmit_Click ( object sender, EventArgs e )
            {

            SubmitBatchFilesToServer ( user );         
           
            }
        privatevoid btnListAvFiles_Click ( object sender, EventArgs e )
            {
            RetrieveReports (user);
            }publicvoid RetrieveReports ( UserCredentials user )
        {//proxy
        BatchFilesClient batchclient = new BatchFilesClient ();
        batchclient.ClientCredentials.UserName.UserName = user.UserID;
        batchclient.ClientCredentials.UserName.Password = user.Password;
        BatchFiles client = batchclient.ChannelFactory.CreateChannel ();//request
        RetrieveAvailableFilesRequest1 req = new RetrieveAvailableFilesRequest1 ();
        req.RetrieveAvailableFilesRequest = new RetrieveAvailableFilesRequest ();//response
        RetrieveAvailableFilesResponse1 resp = client.RetrieveAvailableFiles ( req );
        txtGetFiles.Text = resp.RetrieveAvailableFilesResponse.@return.response;