[RESOLVIDO] Progress lendo HTML

poisé,
mas como faço para utilizar esse webservice com o progress?

Aqui tens um exemplo bem simples acessando o serviço de cotação do site republicavirtual.com.br
No caso, estou usando os recursos da API do SWFW (StarWeb FrameWork) para o acesso HTTP e leitura do XML.

Código:

DEFINE TEMP-TABLE webservicecotacao FIELD dolar_comercial_compra AS DECIMAL FORMAT ">>9.9999" DECIMALS 4
                                    FIELD dolar_comercial_venda  AS DECIMAL FORMAT ">>9.9999" DECIMALS 4
                                    FIELD dolar_paralelo_compra  AS DECIMAL FORMAT ">>9.9999" DECIMALS 4
                                    FIELD dolar_paralelo_venda   AS DECIMAL FORMAT ">>9.9999" DECIMALS 4
                                    FIELD euro_dolar_compra      AS DECIMAL FORMAT ">>9.9999" DECIMALS 4
                                    FIELD euro_dolar_venda       AS DECIMAL FORMAT ">>9.9999" DECIMALS 4
                                    FIELD euro_real_compra       AS DECIMAL FORMAT ">>9.9999" DECIMALS 4
                                    FIELD euro_real_venda        AS DECIMAL FORMAT ">>9.9999" DECIMALS 4.

{ cgi/cgi-http.i}
    
setPropriedadesDaConexao("cotacao.republicavirtual.com.br",80,"/web_cotacao.php?formato=xml").

IF NOT servidorNoAr()
   THEN
       MESSAGE "O servidor não esta no ar." VIEW-AS ALERT-BOX.
   ELSE
       DO:
          { cgi/xml-load.i &tabela="webservicecotacao" }.

          FIND FIRST webservicecotacao NO-LOCK.
          DISPLAY webservicecotacao WITH 1 COLUMN.
       END.

/* Fim do Programa */

usa o PROENV do progress(C:\dlc101a\bin\proenv.bat), abra ele e digita o seguinte..

Código:

cd c:\temp\

mkdir cotacao

cd cotacao

bprowsdldoc http://www.swanandmokashi.com/HomePage/WebServices/QuoteOfThe
Day.asmx?wsdl

Ele vai gerar a documentação completa para usar o webservice em arquivos html, os códigos pronto, e explicando tudo.... é muito simples...

qualquer coisa só entrar em contato! Só me mandar um MP que eu te respondo com o email, ou add ai no skype

@x_jeferson
facebook/jeferson
EMAIL REMOVIDO! - Motivo: Recebendo Muito Span.
skype: jeferson.de.chaves

Consegui!
com esse código:

Código:

DEFINE VARIABLE hWebService            AS HANDLE NO-UNDO.
DEFINE VARIABLE hCurrencyConvertorSoap AS HANDLE NO-UNDO.
DEFINE VARIABLE FromCurrency           AS CHARACTER   NO-UNDO.
DEFINE VARIABLE ToCurrency             AS CHARACTER   NO-UNDO.
DEFINE VARIABLE ConversionRateResult   AS CHARACTER   NO-UNDO.

ASSIGN FromCurrency = "USD"
       ToCurrency   = "BRL".

CREATE SERVER hWebService.

hWebService:CONNECT("-WSDL 'http://www.webservicex.net/CurrencyConvertor.asmx?WSDL'").

RUN CurrencyConvertorSoap SET hCurrencyConvertorSoap ON hWebService.

RUN ConversionRate IN hCurrencyConvertorSoap(INPUT FromCurrency, INPUT ToCurrency, OUTPUT ConversionRateResult).

PROCEDURE ConversionRate:
  DEFINE INPUT PARAMETER FromCurrency AS CHARACTER NO-UNDO.
  DEFINE INPUT PARAMETER ToCurrency AS CHARACTER NO-UNDO.
  DEFINE OUTPUT PARAMETER ConversionRateResult AS CHARACTER NO-UNDO.
END PROCEDURE.

MESSAGE ConversionRateResult
    VIEW-AS ALERT-BOX INFO BUTTONS OK.

Obrigado pela ajuda Amigos

te falei que vem tudo pronto! hehehe
eu fiz um cadastro de siglas universais, ai é para todas as moedas do web service

@x_jeferson
facebook/jeferson
EMAIL REMOVIDO! - Motivo: Recebendo Muito Span.
skype: jeferson.de.chaves