Indy TIdHTTP

Question

ile ilgili sorunları gönderin

Amazon'un SES Hizmetine Indy's TIdHTTP kullanarak gönderme sorunları yaşıyorum. HTTP/1.1 404

Not Found: Indy 10.5.7 altında

• hatası alıyorum

  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; 
  

  Sonuç: Burada

  i kullanıyorum kod örneği

• Indy 9.0.14 altında hata mesajı alıyorum: Soket Hatası # 11004

Hata ayıklama Denemeler

• Aynı demo başarıyla bir HTTPS web sayfasından HTML GET olabilir.

• Yukarıdaki URL'yi bir tarayıcıya yapıştırırsam, beklenen XML sonucunu gösterir.

Sebep hakkındaki her türlü tavsiyeyi takdir ediyorum.

Answer 1

Bu gönderi sadece eksik bir doğal tahminle.

Belki Remy, düzeltme yapmanıza yardımcı olabilir. Aşağıdaki kod ile HTTP/1.1 400 Hatalı İstek alıyorum ama merak ediyorum, API referenceCommon Query Parameters hakkında konuştuğum için en azından gerekli olan imza için yaratacağım dijital imza nedir? .

Bunu test edemem çünkü orada hesabım yok. Ama

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

Temelde, doğru kütüphane kullanmaya ihtiyacım var, yani:

için Indy 10.5.7 kullanım openssl-1.0.1e-i386-win32 veya openssl-1.0.1e-x64_86 -win64 http://indy.fulgan.com/SSL/ gelen sen bir ssl demo indirmek isteyebilirsiniz: http://indy.fulgan.com/ZIP/

Selamlar

Jose