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;