Hola en la consulta que hice sobre el tema, en el metodo hay una modificacion que hice probando
y que no esta en el original de la clase
*****************************
METHOD New(conexion,buffersize) CLASS TdWebService
DEFAULT buffersize:=3200
::=buffersize
xDll:=LoadLib32("wininet.dll")
// esta linea fue modificada por mi para probar ::hOpen = InternetOpen("TdWebService", 1,"User","Password", 0)
// esta es la linea original ::hOpen = InternetOpen("TdWebService", 1,,, 0)
RETURN Self
*****************************
y que no esta en el original de la clase
*****************************
METHOD New(conexion,buffersize) CLASS TdWebService
DEFAULT buffersize:=3200
::=buffersize
xDll:=LoadLib32("wininet.dll")
// esta linea fue modificada por mi para probar ::hOpen = InternetOpen("TdWebService", 1,"User","Password", 0)
// esta es la linea original ::hOpen = InternetOpen("TdWebService", 1,,, 0)
RETURN Self
*****************************