请教各位老师，关于delphi 编写 连接HTTPS服务器提交和接收返回信息

[添添99]

各位老师好，本人才学习delphi不久。想写个网页自动登陆程序，但是破与自己技术不行，不会弄，
特意来请教各位老师，能否帮我下。

在delphi中 怎么连接HTTPS网站提交数据和接收呢？》

希望能给份简单的代码，在次感谢~

谢谢~

[yhf365]

找这个人吧，hfwn888
http://topic.csdn.net/u/20090422/23/722d1546-c3a8-40ef-8e13-f7dbd4fe509c.html

[僵哥]

IdHTTP + IdSSLIOHandlerSocketOpenSSL + OpenSSL库

[僵哥]

uses
  IdHTTP,IdSSLOpenSSL;

procedure TForm1.Button1Click(Sender: TObject);
var
  phttp: TIdHTTP;
  pOpenSSL: TIdSSLIOHandlerSocketOpenSSL;
begin
  pHttp := TIdHTTP.Create(Nil);
  try
    pOpenSSL := TIdSSLIOHandlerSocketOpenSSL.Create(Nil);
    try
      phttp.IOHandler := pOpenSSL;
      ShowMessage(phttp.Get('https://forums.codegear.com/thread.jspa;jsessionid=A821C611B7FFD10F9FB78A159C949973?messageID=69070𐷎'));
    finally
      pOpenSSL.Free;
    end;
  finally
    phttp.Free;
  end;
end;

[添添99]

[Quote=引用 3 楼 unsigned 的回复:]
Delphi(Pascal) codeuses
IdHTTP,IdSSLOpenSSL;

procedure TForm1.Button1Click(Sender: TObject);
var
phttp: TIdHTTP;
pOpenSSL: TIdSSLIOHandlerSocketOpenSSL;
begin
pHttp := TIdHTTP.Create(Nil);
try
pOpenSSL := TIdSSLIOHandlerSocketOpenSSL.Create(Nil);
try
phttp.IOHandler := pOpenSSL;
ShowMessage(phttp.Get('https://forums.codegear.com/thread.jspa;jsessionid=…
[/Quote]


提示 :[错误] Unit1.pas(31): Undeclared identifier: 'TIdSSLIOHandlerSocketOpenSSL'

请问TIdSSLIOHandlerSocketOpenSSL 是在哪个单元里面呀?

[僵哥]

低版本可能是TIdSSLIOHandlerSocket

[添添99]

不行啊,提示错误:Could not load ssl library.

[添添99]

老师为什么有些能连接上有些连接不上呢？
我连接的是 https://shop.lwll.net/index.jsp 连接不上
我想做个自动登陆的程序，可惜现在连接不上呢。


提示错误：Socket Error #10061
Connection refused.

[僵哥]

[Quote=引用 12 楼 hxyll521 的回复:]
老师为什么有些能连接上有些连接不上呢？
我连接的是 https://shop.lwll.net/index.jsp 连接不上
我想做个自动登陆的程序，可惜现在连接不上呢。


提示错误：Socket Error #10061
Connection refused.
[/Quote]
我现在没有低版本的环境，在高版本当中是正常的，要不你更换一下SSL的版本。
类似于：pOpenSSL.SSLOptions.Method := sslvTLSv1;

[添添99]

老师呀，我都会。没听懂你说的是什么意思，方便的话可以告诉我您的QQ号码吗？

[僵哥]

是更换SSL协议，不是版本。

某些网站只支持Tls协议。

[liuhengwinner]

Delphi 的 Indy 是有示例的，你在网上搜一下 indy9 或 indy10 的 Demo

[添添99]

各位老师帮我下啊

[僵哥]

[Quote=引用 6 楼 hxyll521 的回复:]
不行啊,提示错误:Could not load ssl library.
[/Quote]
需要下载SSL库http://indy.fulgan.com/SSL/Archive/

[添添99]

http://indy.fulgan.com/SSL/Archive/ 打不开啊，请问还有其他下载地址么？

[僵哥]

邮件

[添添99]

我的邮件是 [e-mail]

谢谢老师

[添添99]

已结帖了。不过我还是没搞会，咳~~