Send an http request

[Marco Turco]

Hi all,
I need to send an http request (GET method) like this:

http://softwarexp.co.uk/?id=test&psw=test&Msg=xxxxx .. ......

How can I send this request and manage the return code via FWH ?

Thanks in advance.

[Davide]

Marco,

How can I send this request and manage the return code via FWH ?

if you want the user see the resulting page on your server, then you can use the IE ActiveX
http://forums.fivetechsupport.com/viewtopic.php?f=3&t=15058
otherwise you can use the TwebClient class to retrieve the page unattendently (\samples\webclien.prg)

Hi,
Davide

[Enrico Maria Giordano]

I'm using the following function to run an URL, return the result page and eventually the error message. I don't know how to get the result code, though.

Code: Select all  Expand view

STATIC FUNCTION RUNURL( cUrl, cErr )

    LOCAL oUrl, oCli

    LOCAL lOk := .F.

    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() )

        lOk = !EMPTY( oCli:cReply ) .AND. "OK" $ UPPER( oCli:cReply )

        oCli:Close()
    END SEQUENCE

    RETURN lOk

EMG

[Davide]

Enrico,

I don't know how to get the result code, though.

I guess oCli:cReply will normally contain "200 OK"

Hi,
Davide

[Enrico Maria Giordano]

Yes.

EMG

[Horizon]

Hi Marco,

Yo can review the post http://forums.fivetechsupport.com/viewtopic.php?f=3&t=12514&start=30. I think its similiar.

Regards,

[Marco Turco]

Hi Enrico,

your function could be fine but trying to link it I receive the following errors:
Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland
Error: Unresolved external '_HB_FUN_TURL' referenced from K:\TESTXBRW\OBJ\URL.OBJ
Error: Unresolved external '_HB_FUN_TIPCLIENTHTTP' referenced from K:\TESTXBRW\OBJ\URL.OBJ

Do I need to add any special libs ? I am using the last FWH/xHarbour release.

Thanks

Marco

I'm using the following function to run an URL, return the result page and eventually the error message. I don't know how to get the result code, though.

Code: Select all  Expand view

STATIC FUNCTION RUNURL( cUrl, cErr )

    LOCAL oUrl, oCli

    LOCAL lOk := .F.

    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() )

        lOk = !EMPTY( oCli:cReply ) .AND. "OK" $ UPPER( oCli:cReply )

        oCli:Close()
    END SEQUENCE

    RETURN lOk

EMG

[Enrico Maria Giordano]

Try to link tip.lib.

EMG

[Marco Turco]

Solved. Thank you.

[Carles]

Ciao Enrico,

This the class TIP prepared for Harbour also ? Is this reliable one ? I thought that it was alone available for xHarbour.

Thanks.
C.

[Enrico Maria Giordano]

Yes, it is called hbtip.lib in Harbour.

EMG