Publikuj problemy z Indy TIdHTTP

Question

Mam problemy z publikowaniem w serwisie Amazon firmy SES przy użyciu usługi TIdHTTP firmy Indy.

Oto przykład kodu używam:

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; 

Wynik

• Pod Indy 10.5.7 pojawia się błąd: HTTP/1.1 404 Not Found

• Pod indeksem 9.0.14 pojawia się błąd: Błąd gniazda # 11004

debugowania Trials

• to samo demo może z powodzeniem GET HTML od strony HTTPS.

• Jeśli wkleję powyższy adres URL do przeglądarki, wyświetli oczekiwany wynik XML.

Byłbym wdzięczny za wszelkie porady dotyczące przyczyny.

Answer 1

Ten wpis jest po prostu niekompletne, dzikie domysły.

Może Remy może pomóc ci to poprawić. Za pomocą poniższego kodu otrzymuję złe żądanie HTTP/1.1 400, ale nie zastanawiam się, ponieważ API reference mówi o Common Query Parameters gdzie jest wymagane co najmniej podpis cyfrowy, który utworzysz dla żądania, czego nie wiem, jak to zrobić .

Nie mogę tego przetestować, ponieważ nie mam tam konta. Ale myślę, że

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

Zasadniczo trzeba użyć właściwej biblioteki, tj:

Dla Indy 10.5.7 Zastosowanie openssl-1.0.1e-i386-win32 lub openssl-1.0.1e-x64_86 -win64 z http://indy.fulgan.com/SSL/ możesz pobrać demo z ssl: http://indy.fulgan.com/ZIP/

Pozdrawiam

Jose