如何在Delphi中创建HTTPS POST请求？

在Delphi中执行HTTPS POST请求的最简单方法是什么？我在制作HTTP POST请求时没有问题，但我怎样才能使用SSL？我一直在搜索，并没有找到任何解释得很好的东西。如何在Delphi中创建HTTPS POST请求？

这是我试过的代码：

procedure TForm1.FormCreate(Sender: TObject); 
var 
    responseXML:TMemoryStream; 
    responseFromServer:string; 
begin 
    responseXML := TMemoryStream.Create; 
    IdSSLIOHandlerSocketOpenSSL1 := TIdSSLIOHandlerSocketOpenSSL.Create(self); 
    with idSSLIOHandlerSocketOpenSSL1 do 
    begin 
     SSLOptions.Method := sslvSSLv2; 
     SSLOptions.Mode := sslmUnassigned; 
     SSLOptions.VerifyMode := []; 
     SSLOptions.VerifyDepth := 0; 
     host := ''; 
    end; 

    IdHTTP1 := TIdHTTP.Create(Self); 
    with IdHTTP1 do 
    begin 
     IOHandler := IdSSLIOHandlerSocketOpenSSL1; 
     AllowCookies := True; 
     ProxyParams.BasicAuthentication := False; 
     ProxyParams.ProxyPort := 0; 
     Request.ContentLength := -1; 
     Request.ContentRangeEnd := 0; 
     Request.ContentRangeStart := 0; 
     Request.Accept := 'text/html, */*'; 
     Request.BasicAuthentication := False; 
     Request.UserAgent := 'Mozilla/3.0 (compatible; Indy Library)'; 
     HTTPOptions := [hoForceEncodeParams]; 
    end; 
    responsefromserver := IdHTTP1.Post('https://.../','name1=value1&name2=value2&....'); 
end;

当我尝试运行它，我得到以下错误：

Project myProject.exe raised exception class EFOpenError with message 'Cannot open file "C:\...\Projects\Debug\Win32\name1=value1name2=value2 The system cannot find the file specified'.

我不明白这一点。我发送参数，尽管错误听起来像我会发送一个文件。

另外我还在myProject.exe文件夹中包含了libeay32.dll和ssleay32.dll。

来源

2010-11-19 Peacelyk

你有没有找到解决这个问题？ – 2017-02-15 14:30:11

你没有指定你的Delphi版本或indy版本，但是我在使用Delphi 2009和HTTPS捆绑Indy之前遇到了一些问题，当我从indy svn得到最新源码时，问题就解决了。

来源

2010-11-19 18:37:01

如果您想尝试Indy之外的其他功能，您可以查找基于WinInet的代码，网上有很多可用的代码。这里有一个简单的：http://www.explainth.at/en/delphi/winwrap.shtml

下面是从一个更大的商业包装的例子：http://www.clevercomponents.com/articles/article009/httppost.asp

或者，干脆利用什么StackOverflow上： How to send a HTTP POST Request in Delphi using WinInet api

来源

2010-11-19 19:10:41

另一个替代方案是印Synapse。

这个类库提供岗位的完全控制，而且还提供了一个简单的衬垫POST方法，以及：

function HttpPostURL(const URL, URLData: string; const Data: TStream): Boolean;

来源

2010-11-19 19:13:05

您的HttpPostURL函数是否支持https？ – Ampere 2014-07-01 13:34:16

http://chee-yang.blogspot.com/2008/03/using-indy-https-client-to-consume.html

var S: TStringList; 
    M: TStream; 
begin 
S := TStringList.Create; 
M := TMemoryStream.Create; 
try 
    S.Values['Email'] := 'your google account'; 
    S.Values['Passwd'] := 'your password'; 
    S.Values['source'] := 'estream-sqloffice-1.1.1.1'; 
    S.Values['service'] := 'cl'; 

    IdHTTP1.IOHandler := IdSSLIOHandlerSocketOpenSSL1; 
    IdHTTP1.Request.ContentType := 'application/x-www-form-urlencoded'; 
    IdHTTP1.Post('https://www.google.com/accounts/ClientLogin', S, M); 
    Memo1.Lines.Add(Format('Response Code: %d', [IdHTTP1.ResponseCode])); 
    Memo1.Lines.Add(Format('Response Text: %s', [IdHTTP1.ResponseText])); 

    M.Position := 0; 
    S.LoadFromStream(M); 
    Memo1.Lines.AddStrings(S); 
finally 
    S.Free; 
    M.Free; 
end;

末;

来源

2013-11-24 11:16:27

如何在Delphi中创建HTTPS POST请求？

回答

相关问题