Ver Mensaje Individual
  #3  
Antiguo 09-11-2023
jars jars is offline
Miembro
 
Registrado: mar 2004
Posts: 279
Reputación: 21
jars Va por buen camino
Gracias Casimiro.
En donde debería esperar ssl3

Este es el codigo que estoy usando luego de actualizar Indy 10 version 10.6.2.0

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  IdHTTP: TIdHTTP;
  IdIOHandler: TIdSSLIOHandlerSocketOpenSSL;
  SoapRequest, SoapResponse: TStringStream;
  x, ServiceURL, SoapAction: string;
begin
  ServiceURL := 'https://mail2.tecnovoz.com.ar:3002/iows';
  SoapAction := 'textgpt';

  SoapRequest := TStringStream.Create(LoadSoapEnvelopeFromFile('D:\newsoap\SoapEnvelope.xml'));
  SoapResponse := TStringStream.Create('');

  IdHTTP := TIdHTTP.Create(nil);
  try
    IdIOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(IdHTTP);
    try
      IdIOHandler.SSLOptions.SSLVersions := [sslvTLSv1_2];
      IdHTTP.Request.ContentType := 'text/xml; charset=utf-8';
      IdHTTP.Request.Accept := 'text/xml';

      try
        IdHTTP.Post(ServiceURL, SoapRequest, SoapResponse);
        Memo1.Lines.Add('Resultado del servicio: ' + SoapResponse.DataString);
      except
        on E: Exception do
         Memo1.Lines.Add(E.Message);
      end;
    finally
      IdIOHandler.Free;
    end;
  finally
    IdHTTP.Free;
    SoapRequest.Free;
    SoapResponse.Free;
  end;
end;

Última edición por Casimiro Notevi fecha: 09-11-2023 a las 18:13:54. Razón: Poner etiquetas [delphi] [/delphi] al código.
Responder Con Cita