Xailer & OZ Software

Hello,
In the following sample code the handle hData is always equal to 0.
How to make a post call with the TInternet class?
LOCAL hData
LOCAL cData:= Space(65536)
WITH OBJECT TInternet():New( Self )
IF :Open()
IF
!Empty(hData:=:PostRequest("http://localhost:8085/prova.php","p1=1&p2=2"))
IF :ReadFile( hData, @cData, 65536 )
::oMemo1:Value := cData
ENDIF
:CloseRequest( hData )
ENDIF
:Close()
ENDIF
END
Best Regards,
saX