Problemi di posta con Indy TIdHTTP

Question

Sto riscontrando problemi con il servizio SES di Amazon tramite TIdHTTP di Indy.

Ecco un esempio di codice che sto usando:

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; 

Risultato

• Sotto Indy 10.5.7 ottengo l'errore: HTTP/1.1 404 Not Found

• Sotto Indy 9.0.14 viene visualizzato l'errore: Errore socket # 11004

Trials debug

• Questa stessa demo può ottenere con successo il codice HTML da una pagina web HTTPS.

• Se si incolla l'URL sopra in un browser, viene visualizzato il risultato XML previsto.

Apprezzerei qualsiasi consiglio sulla causa.

Answer 1

Questo post è solo una supposizione selvaggia incompleta.

Forse Remy potrebbe aiutarti a correggerlo. Con il seguente codice sto ricevendo HTTP/1.1 400 Bad Request ma non mi sto chiedendo perché lo API reference parla di Common Query Parameters dove è richiesta almeno la firma digitale che creerai per la richiesta cosa non so come fare .

Non riesco a verificarlo perché non ho un account lì. Ma penso che il

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

In sostanza, è necessario utilizzare la libreria a destra, vale a dire:

Per Indy 10.5.7 uso OpenSSL-1.0.1e-i386-Win32 o openssl-1.0.1e-x64_86 -win64 da http://indy.fulgan.com/SSL/ si consiglia di scaricare una demo dal SSL: http://indy.fulgan.com/ZIP/

saluti

Jose