loHTTPServiceDeberias intentar registrar nuevamente la libreria. Que
version tenes?
Pablo Pioli
El 25/07/2012 02:41 p.m., eduardo rohr escribió:
Hola a todos
Tengo este codigo, en el cual se instancia un objeto del tipo HTTPService
loHTTPService = Thisform.ObtenerHTTPService()
If IsNull(loHTTPService)
VentanaError( "No se pudo registrar la librería iFox.dll y es
necesaria para esta operación." + Chr(13);
+ "Para solucionar este problema ejecute la opción al menos una vez
con un usuario + "Windows que tenga permisos de Administrador.",
Thisform.Caption)
MostrarEstado("")
Return .F.
EndIf
lcFechaDesde = Dtos( lcFechaDesde )
lcFechaHasta = Dtos( lcFechaHasta )
cServer = "dfe.ec.gba.gov.ar <http://dfe.ec.gba.gov.ar>"
cURL =
"/DomicilioElectronico/SeguridadCliente/dfeServicioDescargaPadron.do"
*!* Para bajar Padron Completo
Text to XMLConsulta NOSHOW TEXT PRETEXT 7
<DESCARGA-PADRON>
<fechaDesde><<lcFechaDesde>></fechaDesde>
<fechaHasta><<lcFechaHasta>></fechaHasta>
</DESCARGA-PADRON>
EndText
cCodigoHash = loManejadorCodigoHash.Encriptar( XMLConsulta )
cFileName = "DFEServicioDescargaPadron_" + cCodigoHash + ".XML"
loHTTPService.AddPostField( "user", cUserCUIT )
loHTTPService.AddPostField( "password", cPassWord )
loHTTPService.AddPostFieldasFile( "file", XMLConsulta, cFileName )
Try
loHTTPService.IgnoreSSLErrors = .T.
cRespuesta = loHTTPService.Post( cServer, cURL, , , 443 )
Catch To loEx
VentanaError( "Error en metodo HTTPService. Motivo: " + loEx.Message,
Thisform.Caption )
MostrarEstado("")
llEjecutaMetodoHTTPService = .F.
EndTry
el objeto lo instancia correctamente ( loHTTPService es distinto de
NULL )
el problema lo tengo en la linea siguiente :
loHTTPService.IgnoreSSLErrors = .T.
el error que sale es :
Codigo de error OLE 0X80020006: Nombre desconocido
La pc donde se ejecuta este codigo tiene windows xp instalado.
quisiera por favor que me ayude el que pueda paar saber la causa de
dicho error . gracias
PD: Lo raro es que al editar la dll , veo que la propiedad
IgnoreSSLErrors existe
