Buenos días ¡¡
Gracias a tod@s y sobretodo a Seccion31 por las aportaciones y por el enorme esfuerzo. De verdad que me dais la vida.
Cita:
Empezado por seccion_31
sustituye esta funcion: uVerifactuFuncs y recompila el servidor B10
Código:
function consultar(sesion:integer; var resultado:TConsultaResultado):boolean;
.....
// Cargar certificado del disco
if ( pos('.PFX',uppercase(sesiones[sesion].inicio.nombreCertificado))<>0) or
( pos('.P12',uppercase(sesiones[sesion].inicio.nombreCertificado))<>0) then
HTTPRIO1.HTTPWebNode.onBeforePost:=eventosWebNode.WebNodeBeforePost;
......
end;
|
Estoy utilizando Delphi 12 (no tengo Delphi 10 Berlin) para compilar el componente. Al reemplazar la función "consultar" me aparece un error en la línea
Código:
HTTPRIO1.HTTPWebNode.onBeforePost:=eventosWebNode.WebNodeBeforePost;
En eventosWebNode.WebNodeBeforePost me dice "E2010: Incompatible types 'THTTPClient' and 'Pointer'"
y no la puedo recompilar (no se como corregir el error).
Podría alguien enviar el fichero VerifactuD7.bpl y dcp recompilados con la nueva funcion (o si algún moderador pudiera subirla al área de descarga )?
P.D.
Las aplicaciones las tengo en Delphi 7, y el componente VerifactuD7 lo había compilado en Delphi12 perfectamente, el fallo me da ahora al cambiar la función "consultar".
Muchas gracias¡¡