>local cBitMap, cBitMap1 >cBitMap1=FILETOSTR(STORE.cpicdir-"\product\"-alltrim(positems.mainimage)) >cBitMap=STRCONV(cBitMap1,13) > >dimension picfile(3,2)AS ARRAY >store "name" to picfile(1,1) >store "aatestpicture.png" to picfile(1,2) >store "content" to picfile(2,1) >store cBitMap to picfile(2,2) >store "mime" to picfile(3,1) >store "image/png" to picfile(3,2) > >dimension typefile(1) >store "small_image" to typefile > >dimension picarray(5,2)AS ARRAY >store "file" to picarray(1,1) >store picfile to picarray(1,2) >store "label" to picarray(2,1) >store "this is my test image" to picarray(2,2) >store "position" to picarray(3,1) >store 2 to picarray(3,2) >store "types" to picarray(4,1) >store typefile to picarray(4,2) >store "exclude" to picarray(5,1) >store 0 to picarray(5,2) > >dimension oArray(1,2) AS ARRAY >store positems.cupcnumber to oArray(1,1) >store picarray to oArray(1,2) > > >LOCAL loMage_Api_Model_Server_HandlerPort AS "XML Web Service" >* LOCAL loMage_Api_Model_Server_HandlerPort AS "MSSOAP.SoapClient30" >* Do not remove or alter following line. It is used to support IntelliSense for your XML Web service. >*__VFPWSDef__: loMage_Api_Model_Server_HandlerPort = http://www.fantasyfestival.com/api/soap/?wsdl , MagentoService , Mage_Api_Model_Server_HandlerPort >LOCAL loException, lcErrorMsg, loWSHandler >TRY > loWSHandler = NEWOBJECT("WSHandler",IIF(VERSION(2)=0,"",HOME()+"FFC\")+"_ws3client.vcx") > loMage_Api_Model_Server_HandlerPort = loWSHandler.SetupClient("http://www.fantasyfestival.com/api/soap/?wsdl", "MagentoService", "Mage_Api_Model_Server_HandlerPort") >* Call your XML Web service here. ex: leResult = loMage_Api_Model_Server_HandlerPort.SomeMethod() > sessionid = loMage_Api_Model_Server_HandlerPort.login("fanfest", "sk1ppy") > leResult2 = loMage_Api_Model_Server_HandlerPort.CALL(sessionid, "product_media.create", oArray) > >CATCH TO loException > lcErrorMsg="Error: "+TRANSFORM(loException.ERRORNO)+" - "+loException.MESSAGE > DO CASE > CASE VARTYPE(loMage_Api_Model_Server_HandlerPort)#"O" >* Handle SOAP error connecting to web service > CASE !EMPTY(loMage_Api_Model_Server_HandlerPort.FaultCode) >* Handle SOAP error calling method > lcErrorMsg=lcErrorMsg+CHR(13)+loMage_Api_Model_Server_HandlerPort.DETAIL > OTHERWISE >* Handle other error > ENDCASE >* Use for debugging purposes > MESSAGEBOX(lcErrorMsg) >FINALLY >ENDTRY >>