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