Chamar um link e obter um retorno

[emotta]

Quero chamar um link e ler o retorno dele, por exemplo>

cHtml = LerLink("www.emotta.com.br")

qual a melhor maneira de fazer isso? Tentei TIpClientHttp mas nunca vem nada....

[sistem]

retorno em HTML?

        oOle := CreateObject( "Microsoft.XMLHTTP" )

        oOle:Open( "GET", "http://www.emottasistemas.com.br/", .f. )

        oOle:Send()

        cHtml := oOle:ResponseBody

        oOle := nil

        ? cHtml

[kapiaba]

Veja se ajuda também:

http://forums.fivetechsupport.com/viewtopic.php?p=191033#p191033

[emotta]

Excelente, já tinha feito usando o mesmo esquema que a classe do sintegra fazia, mas mudei para a sua que é bem melhor e deu certo !

obrigado,

abraços

retorno em HTML?

        oOle := CreateObject( "Microsoft.XMLHTTP" )
        oOle:Open( "GET", "http://www.emottasistemas.com.br/", .f. )
        oOle:Send()
        cHtml := oOle:ResponseBody
        oOle := nil
        ? cHtml

[kapiaba]

Eduardo, cual é o intuito disso? Serviria para que? Obg. abs.

[kapiaba]

Mesmo em TXT, não etendi pohhha nenhuma. kkkkkkkkkkkkkkkkk, alguém clareia?

#include "FiveWin.ch"


FUNCTION SITE_EMOTA()


   LOCAL oOle, cHtml


   oOle := CreateObject( "Microsoft.XMLHTTP" )


   oOle:Open( "GET", "http://www.emottasistemas.com.br/", .f. )


   oOle:Send()


   cHtml := oOle:ResponseBody


   oOle := nil


   hb_MemoWrit( "CHTML.txt", Alltrim( cHtml ) )


RETURN NIL