>>>>>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 >>>>>>>>>>