[flexdev] Consumir DataSnap JSON com flex

[Aparecido]

Alguem tem um exemplo  funcional para consumir Consumir DataSnap JSON feito
em Delphi XE2  com FLEX  tentei dessa forma 

e não obtenho o resultado nem da erro , que busco pelo browse os dados vem
perfeito em JSON.

 

<?xml version="1.0" encoding="utf-8"?>

<mx:Application xmlns:mx="http://www.adobe.com/2006/mxml";

                        layout="absolute"

                        height="300" width="600">

      

      <mx:Script>

            <![CDATA[

                  import com.adobe.serialization.json.JSON; 

                  import mx.collections.ArrayCollection;

                  import mx.rpc.events.ResultEvent;

                  import mx.rpc.http.HTTPService; 

                  

                  private function Consultar():void{

                  var datasnapService:HTTPService = new HTTPService();  

                  datasnapService.showBusyCursor = true; 

                  datasnapService.url =
"http://localhost:8088/datasnap/rest/TServerMethods/empresas";;

                  datasnapService.addEventListener(ResultEvent.RESULT,
ConsultarResultado);

                  datasnapService.send(); 

                  }

                  private function ConsultarResultado(re:ResultEvent):void{

                  var jo:Object = JSON.decode(re.result.toString());

                  var arr:Array = jo["result"][0]; 

                  

                  var DataGriProvider:ArrayCollection = new
ArrayCollection(arr); 

                  

                  DataGrid.dataProvider = DataGriProvider;

                  

                  }

            ]]>

      </mx:Script>

      <mx:VBox width="100%" height="100%"  >

      <mx:HBox  width="100%" height="10%" paddingLeft="10" paddingRight="10"
paddingBottom="10" paddingTop="10">

            <mx:Button label="Consultar" width="117" click="Consultar()"/>

      </mx:HBox>

      <mx:HBox  width="100%" height="90%" paddingLeft="10" paddingRight="10"
paddingBottom="10" paddingTop="10">

            <mx:DataGrid id="DataGrid" width="100%" height="100%">

                  <mx:columns>

                        <mx:DataGridColumn headerText="Código"
dataField="EMPCOD" width="50"/>

                        <mx:DataGridColumn headerText="Nome"
dataField="EMPNOM" width="300"/>

                  </mx:columns>

            </mx:DataGrid>

      </mx:HBox>

      </mx:VBox>

            

</mx:Application>

 

obrigado

 

-- 
-- 
Você recebeu esta mensagem porque está inscrito na lista "flexdev"
Para enviar uma mensagem, envie um e-mail para flexdev@googlegroups.com
Para sair da lista, envie um email em branco para 
flexdev-unsubscr...@googlegroups.com
Mais opções estão disponíveis em http://groups.google.com/group/flexdev
--- 
Você está recebendo esta mensagem porque se inscreveu no grupo "flexdev" dos 
Grupos do Google.
Para cancelar a inscrição neste grupo e parar de receber seus e-mails, envie um 
e-mail para flexdev+unsubscr...@googlegroups.com.
Para obter mais opções, acesse https://groups.google.com/groups/opt_out.