[tania]

Necesito implementar este código en mi parte de cliente para establecer comunicaciones con un servicio web. Estoy utilizando Delphi 2006 y no hay manera!!Las especificaciones del servicio web pide que se implemente expresamente .


/// Clase que permite usar el certificado para la conexión SSL pasando por alto las restricciones de seguridad.

internal class AcceptAllCertificatePolicy : ICertificatePolicy
{
public AcceptAllCertificatePolicy()
{
}
public bool CheckValidationResult(ServicePoint sPoint,
X509Certificate cert, WebRequest wRequest,int certProb)
{
// Always accept
return true;
}
}


He encontrado esta implementación en Internet, me serviría pero no compila ya que creo que es para Delphi Net!



unit Certificate;

interface

uses System.Net,
System.Security.Cryptography.X509Certificates;


type

myCertificatePolicy = class (ICertificatePolicy)
public
function AcceptAllCertificatePolicy: boolean;
function CheckValidationResult(srvPoint: ServicePoint;
certificate: X509Certificate; request: WebRequest;
certificateProblem: Integer): boolean;
end;

//...
implementation

function myCertificatePolicy.AcceptAllCertificatePolicy: boolean;
begin
Result := True
end;

function myCertificatePolicy.CheckValidationResult(srvPoint: ServicePoint;
certificate: X509Certificate; request: WebRequest;
certificateProblem: Integer): boolean;
begin
Result := true
end;


Alguien puede ayudarme?