Leitura de XML

Vide:
http://www.starweb-software.com.br

Aqui alguns exemplos usando Flex.
Note que graças ao StarWeb FrameWork (SWFW) a integração Flex+Progress fica bastante simples.

http://starweb-software.no-ip.info:8000/ex010/

http://starweb-software.no-ip.info:8000/ex020/

http://starweb-software.no-ip.info:8000/ex030/

http://starweb-software.no-ip.info:8000/ex040/

Sobre o Flex, vale a pena dar uma olhada.
É uma excelente alternativa ao uso do html+ajax para aplicalções web.

E, para interface windows, é uma boa opção, mesmo contra à inteface .net do Progress 10.2, uma vez que as aplicações já vão estar prontas para web.

.

Exemplo do Read-XML

XML

Código:

<?xml version='1.0' encoding='UTF-8'?>
<ttAuth>
   <ttAuthRow>
      <login>ciclano</login>
      <senha>1234</senha>
   </ttAuthRow>  
   <ttAuthRow>
      <login>fulano</login>
      <senha>aasda</senha>
   </ttAuthRow>
</ttAuth>

Read-XML

Código:

DEFINE VARIABLE cSourceType AS CHARACTER NO-UNDO. 
DEFINE VARIABLE cReadMode AS CHARACTER NO-UNDO. 
DEFINE VARIABLE lOverrideDefaultMapping AS LOGICAL NO-UNDO. 
DEFINE VARIABLE cFile AS CHARACTER NO-UNDO. 
DEFINE VARIABLE cEncoding AS CHARACTER NO-UNDO. 
DEFINE VARIABLE cSchemaLocation AS CHARACTER NO-UNDO. 
DEFINE VARIABLE cFieldTypeMapping AS CHARACTER NO-UNDO. 
DEFINE VARIABLE cVerifySchemaMode AS CHARACTER NO-UNDO. 
DEFINE VARIABLE returnValue AS LOGICAL NO-UNDO.

DEFINE TEMP-TABLE ttAuth
FIELD login AS CHARACTER
FIELD senha AS CHARACTER.

ASSIGN cSourceType             = "FILE"
       cFile                   = "autentication.xml"
       cReadMode               = "EMPTY"
       cSchemaLocation         = ?
       lOverrideDefaultMapping = ?
       cFieldTypeMapping       = ?
       cVerifySchemaMode       = ?.

returnValue = TEMP-TABLE ttAuth:READ-XML(cSourceType
                                        ,cFile
                                        , cReadMode
                                        ,cSchemaLocation
                                        ,lOverrideDefaultMapping
                                        ,cFieldTypeMapping
                                        , cVerifySchemaMode).

IF returnValue THEN

FOR EACH ttAuth:
   DISPLAY ttAuth WITH 1 COL 1 DOWN. 
END.

Olha como fica um pouco mais simples usando a API do StarWeb FrameWork.

Código:

DEFINE TEMP-TABLE ttAuthRow FIELD login AS CHARACTER
                            FIELD senha AS CHARACTER.

{ cgi/cgi-http.i}

setEnderecoDoArquivoXml("autentication.xml").

{ cgi/xml-load.i &tabela="ttAuthRow" }

IF CAN-FIND(FIRST ttAuthRow)
   THEN
       FOR EACH ttAuth:
           DISPLAY ttAuth.
       END.

hahahahaha
q puxa saco

hahahahaha
que grosseria amigo.

eh brincadeira... rsrsrs