Página 1 de 1
TInternet ???
Publicado: Vie Nov 09, 2007 11:04 am
por pjmfelix
Hi all,
i try to do a request to a web server with this sample code, but in the
server logfile that register the requests, nothing happens.
My sample is !
WITH OBJECT TInternet():New()
IF :Open()
:Connect( "http://pc_mario/" )
hData := :PostRequest( "//Displays.asmx/SendToDisplaysCPC" ,
" GroupID=1&ServiceID=1&ClientID=1&Ticket=A22& Description= " )
:CloseRequest( hData )
:Close()
ENDIF
END
TInternet ???
Publicado: Vie Nov 09, 2007 12:58 pm
por pjmfelix
Ok !! i already solve the problem.
It's OpenURL() and not RequestPost().
Regards.
"Paulo Jorge M. Félix" <
pjmfelix@sisbit.pt> escreveu na mensagem
news:[email=
473430ba@ozsrv2.ozlan.local...]
473430ba@ozsrv2.ozlan.local...[/email]
> Hi all,
> i try to do a request to a web server with this sample code, but in the
> server logfile that register the requests, nothing happens.
>
> My sample is !
>
> WITH OBJECT TInternet():New()
> IF :Open()
> :Connect( "http://pc_mario/" )
> hData := :PostRequest( "//Displays.asmx/SendToDisplaysCPC" ,
> " GroupID=1&ServiceID=1&ClientID=1&Ticket=A22& Description= " )
> :CloseRequest( hData )
> :Close()
> ENDIF
> END
>
>
TInternet ???
Publicado: Vie Nov 09, 2007 12:58 pm
por pjmfelix
Ok !! i already solve the problem.
It's OpenURL() and not RequestPost().
Regards.
"Paulo Jorge M. Félix" <
pjmfelix@sisbit.pt> escreveu na mensagem
news:[email=
473430ba@ozsrv2.ozlan.local...]
473430ba@ozsrv2.ozlan.local...[/email]
> Hi all,
> i try to do a request to a web server with this sample code, but in the
> server logfile that register the requests, nothing happens.
>
> My sample is !
>
> WITH OBJECT TInternet():New()
> IF :Open()
> :Connect( "http://pc_mario/" )
> hData := :PostRequest( "//Displays.asmx/SendToDisplaysCPC" ,
> " GroupID=1&ServiceID=1&ClientID=1&Ticket=A22& Description= " )
> :CloseRequest( hData )
> :Close()
> ENDIF
> END
>
>