Publicar problemas con Indy TIdHTTP

Question

Tengo problemas para publicar en el servicio SES de Amazon usando TIdHTTP de Indy.

Aquí se muestra un ejemplo del código que estoy utilizando:

procedure TMainFrm.btnAmazonSESClick(Sender: TObject); 
var 
    SSLHandler: TIdSSLIOHandlerSocket; 
    HttpClient: TIdHTTP; 
    Params: TStringStream; 
begin 
    SSLHandler := TIdSSLIOHandlerSocket.Create(Self); 
    HttpClient := TIdHTTP.Create(Self); 
    Params := TStringStream.create(''); 
    try 
    with SSLHandler do 
     SSLOptions.Method := sslvSSLv3 
    with HttpClient do 
    begin 
     IOHandler := SSLHandler; 
     AllowCookies := True; 
     HandleRedirects := True; 
     HTTPOptions := [hoForceEncodeParams]; 
     Request.ContentType := 'application/x-www-form-urlencoded'; 
    end; 

    PageMemo.Text := HttpClient.Post('https://email.us-east-1.amazonaws.com?Action=VerifyEmailAddress&AWSAccessKeyId=012Some123Key46&EmailAddress=test@test%2Ecom', Params); 

    finally 
    SSLHandler.Free; 
    HttpClient.Free; 
    Params.Free; 
    end; 
end; 

Resultado

• Bajo Indy 10.5.7 me sale el error: HTTP/1.1 404 Not Found

• Bajo Indy 9.0.14 Aparece el error: Error de socket # 11004

Ensayos de depuración

• Este mismo grupo demográfico pueden conseguir con éxito el código HTML de una página web HTTPS.

• Si pego la URL anterior en un navegador, muestra el resultado XML esperado.

Agradecería cualquier consejo sobre la causa.

Answer 1

Esta publicación es solo una conjetura incompleta..

Tal vez Remy podría ayudarlo a corregirlo. Con el siguiente código recibo HTTP/1.1 400 Bad Request pero no me pregunto porque el API reference habla de Common Query Parameters donde al menos se requiere la firma digital que creará para la solicitud lo que no sé cómo hacer .

No puedo probar esto porque no tengo ninguna cuenta allí. Pero creo que la

procedure TForm1.Button1Click(Sender: TObject); 
var 
    HTTPClient: TIdHTTP; 
    Parameters: TStrings; 
    SSLHandler: TIdSSLIOHandlerSocketOpenSSL; 

begin 
    SSLHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil); 
    HTTPClient := TIdHTTP.Create(nil); 
    Parameters := TStringList.Create; 

    try 
    SSLHandler.SSLOptions.Method := sslvSSLv3; 
    SSLHandler.SSLOptions.Mode := sslmUnassigned; 

    HTTPClient.IOHandler := SSLHandler; 
    HTTPClient.HTTPOptions := [hoForceEncodeParams]; 
    HTTPClient.Request.ContentType := 'application/x-www-form-urlencoded'; 

    Parameters.Add('Action=VerifyEmailAddress'); 
    Parameters.Add('EmailAddress=test@test.com'); 
    Parameters.Add('AWSAccessKeyId=012Some123Key46'); 
    Parameters.Add('SignatureVersion=2'); 
    Parameters.Add('Expires='); // ??? 
    Parameters.Add('Signature='); // ??? 

    PageMemo.Text := HTTPClient.Post('https://email.us-east-1.amazonaws.com', Parameters); 

    finally 
    SSLHandler.Free; 
    HTTPClient.Free; 
    Parameters.Free; 
    end; 
end; 

Answer 2

Básicamente, es necesario utilizar la biblioteca de derecho, es decir:

Para Indy 10.5.7 uso OpenSSL-1.0.1e-i386-win32 o OpenSSL-1.0.1e-x64_86 -win64 de http://indy.fulgan.com/SSL/ Es posible que desee descargar una demo de SSL desde: http://indy.fulgan.com/ZIP/

Saludos

José