TipClientHttp POST data how to

[clipper6]

Hi,

I want to POST data to a URL. The code fragment below shows how it is done using GET. Can someone be kind enough to give an example on how it is done using POST.
 
    // httpadv.prg @ \hb32\contrib\hbtip\tests
    ...
    IF oCon:Get( oUrl:cPath )
         ? "Get Sucessful"
         FOR i := 1 TO Len( oCon:hHeaders )
            ? hb_HKeyAt( oCon:hHeaders, i ) + ":", hb_HValueAt( oCon:hHeaders, i )
         NEXT
      ELSE
         ? "Get failure (server reply:", oCon:cReply, ")"
      ENDIF
      ...
I want to submit this data to a URL: id=1234, lastname=smith, firstname=john. I also like to store the returned value to a variable.

[clipper6]

Out of desperation since I don't know the parameters/syntax of post in harbour what I did was generate a page containing a javascript that passes all the parameters to a url. It's not elegant but that should do for now.

[Lorenzo Fiorini]

On Fri, Jan 9, 2015 at 4:22 AM, clipper6 <arl...@gmail.com> wrote:

> Out of desperation since I don't know the parameters/syntax of post in
> harbour what I did was generate a page containing a javascript that passes
> all the parameters to a url. It's not elegant but that should do for now.

The simplest way is to pass an hash. Try this:

function main()
local cUrl := "http://yoururl"
local hFields := {=>}
local cRetBuf

local oURL
local oClient

hFields[ "id1" ] := "data1"
hFields[ "id2" ] := "data2""

oURL := tURL():New( cUrl )

oClient := TIpClientHttp():new( oUrl )

oClient:nConnTimeout := 2000

if oClient:Open()

qout( "Open", oClient:lastErrorMessage() )

oClient:Post( hFields )

qout( "Post", oClient:lastErrorMessage() )

cRetBuf := oClient:Read()

qout( "Read", oClient:lastErrorMessage() )

endif

oClient:Close()

qout( "Close", oClient:lastErrorMessage() )

qout( hJson )

return nil

best regards,
Lorenzo

[clipper6]

Thanks. I'll try this.

[clipper6]

Where can I find the documentation on how to use TIpClientHttp?

On Friday, January 9, 2015 at 1:45:39 PM UTC+8, LF wrote:

[Karsten Stücker]

hey clipper6,

there is no real documentation,

i think you have to look into the source of httpcli.prg, or the examples, or ask here.

[clipper6]

Yes I always come here to ask questions and I thank everyone for answering my questions.