Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Internet
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #11  
Antiguo 17-03-2017
angelhorse angelhorse is offline
Registrado
NULL
 
Registrado: feb 2017
Posts: 5
Poder: 0
angelhorse Va por buen camino
Cita:
Empezado por robinsondemantu Ver Mensaje
Pon el código que utilizas para hacer la llamada y lo vemos. ¿Te funcionaba antes?

/*
X509Store store = new X509Store(StoreName.My, StoreLocation.LocalMachine);
store.Open(OpenFlags.ReadOnly);
X509Certificate2Collection certCollection = store.Certificates.Find(X509FindType.FindBySubjectName, "tecnologica", false);
foreach (var item in certCollection)
{
Debug.Print("Item: " + item.SubjectName.Name);
}
X509Certificate2 cert = certCollection[0];
*/

HttpWebRequest request = (HttpWebRequest)WebRequest.Create(connectionString_HACIENDA);
request.ContentType = "text/xml";
request.Method = "POST";

request.Credentials = CredentialCache.DefaultCredentials;
if (CERTIFICADO != null)
{
request.ClientCertificates.Add(CERTIFICADO);
byte[] bytes = System.Text.Encoding.UTF8.GetBytes(root.ToString());

request.ContentLength = bytes.Length;
Stream requestStream = request.GetRequestStream();
requestStream.Write(bytes, 0, bytes.Length);
requestStream.Close();


using (HttpWebResponse webResponse = (HttpWebResponse)request.GetResponse())
{
using (Stream responseStream = webResponse.GetResponseStream())
{
using (StreamReader responseStreamReader = new StreamReader(responseStream, true))
{
response = responseStreamReader.ReadToEnd();
responseStreamReader.Close();
}
responseStream.Close();
}
webResponse.Close();
}


Debug.Print("Respuesta: " + response);

}

Antes si me funcionaba. Antes cogía el certificado a "pelo" que es el código que está comentado al principio.
Después lo cambié por algo más visual para que el usuario escogiese el certificado, pero el funcionamiento es idéntico.
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
TICKET BAI (TicketBAI); Nuevo sistema de la Agencia Tributaria del Pais Vasco keys Internet 4170 Hace 1 Semana 17:29:05
AEAT envio de datos vía Webservice problemas con WSDL CelsoO Internet 11 09-10-2019 20:03:41
webService Soap de la Administración Digital Española notific@ apicito Internet 3 31-01-2017 11:25:28
Error en Webservice funcion envio de sms webmasterplc Delphi para la web 5 25-07-2013 20:10:29
Problemas con envío de XML a un WebService davidvamo Internet 1 13-02-2007 15:49:20


La franja horaria es GMT +2. Ahora son las 13:43:20.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi