http method get

[Marco Turco]

Hi all,
I need to execute an http string like this:
http://condominio.emessage.it/CheckAgen ... word=pluto

and obtain the result html code.

How can I make this ?

Thanks in advance

[alvaro533]

See

viewtopic.php?f=6&t=17194

Regards,

Alvaro

[Marco Turco]

Hi, thank for your suggest.
I tried but always return nil.
Did I make something wrong ?


#include "FiveWin.ch"
static oWnd

//----------------------------------------------------------------------------//

function Main()

local oBar

DEFINE WINDOW oWnd TITLE "WebClient test"

DEFINE BUTTONBAR oBar 3D OF oWnd
DEFINE BUTTON OF oBar ACTION WebClient()

ACTIVATE WINDOW oWnd

return nil

function WebClient()
local oWebClient,cad, cstring

cString:="GET http://condominio.emessage.it/CheckAgen ... Softwarexp HTTP/1.0"+CHR(13)+CHR(10)+"Host: http://condominio.emessage.it"+chr(13)+chr(10)

oWebClient := TWebClient():New()
oWebClient:Connect( "condominio.emessage.it" )
oWebClient:bOnRead = { | cData | cad+=cData }
oWebClient:oSocket:SendData( cString)

msginfo(cad)
return nil

[Enrico Maria Giordano]

Code: Select all  Expand view

FUNCTION MAIN()

    ? GETURL( "http://condominio.emessage.it/CheckAgent.aspx?Userid=pippo&Password=pluto" )

    RETURN NIL


FUNCTION GETURL( cUrl )

    LOCAL cFile := SUBSTR( cUrl, RAT( "/", cUrl ) + 1 )

    LOCAL oUrl, oCli

    LOCAL lOk := .F.

    IF "?" $ cFile
        cFile = LEFT( cFile, RAT( "?", cFile ) - 1 )
    ENDIF

    BEGIN SEQUENCE
        oUrl = TUrl():New( cUrl )

        IF EMPTY( oUrl ); BREAK; ENDIF

        oCli = TIPClientHttp():New( oUrl )

        IF EMPTY( oCli ); BREAK; ENDIF

        IF !oCli:Open(); BREAK; ENDIF

        IF !oCli:ReadToFile( cFile ); BREAK; ENDIF

        lOk = "OK" $ UPPER( oCli:cReply )

        oCli:Close()

        IF !lOk; FERASE( cFile ); ENDIF
    END SEQUENCE

    RETURN lOk

EMG

[anserkk]

Dear Mr.EMG,

Error: Unresolved external '_HB_FUN_TURL' referenced from D:\HTTPGET.OBJ
Error: Unresolved external '_HB_FUN_TIPCLIENTHTTP' referenced from D:\HTTPGET.OBJ
* Linking errors *

Any specific lib to be linked ?

Regards
Anser

[anserkk]

Sorry, got the answer from here
http://forums.fivetechsupport.com/viewtopic.php?f=3&t=15409
Tip.Lib

Regards
Anser

[Marco Turco]

Ok, solved
Thanks all for the support

FUNCTION RUNURL( cUrl, cErr ,cDataToCheck)

LOCAL oUrl, oCli

LOCAL lOk := .F.
LOCAL CRETURN:=""

cErr = ""

BEGIN SEQUENCE
oUrl = TUrl():New( cUrl )

IF EMPTY( oUrl ); BREAK; ENDIF

oCli = TIPClientHttp():New( oUrl )

IF EMPTY( oCli ); BREAK; ENDIF

oCli:nConnTimeout = -1

IF !oCli:Open(); BREAK; ENDIF

cErr = CVALTOCHAR( oCli:ReadAll() )
if cDataToCheck<>NIL
if at(cDataToCheck,cErr)>0
lOk:=.t.
endif
else
lOk = !EMPTY( oCli:cReply ) .AND. "OK" $ UPPER( oCli:cReply )
endif
cReturn:=oCli:cReply()

oCli:Close()
END SEQUENCE

RETURN lOk