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

各位老师好，本人才学习delphi不久。想写个网页自动登陆程序，但是破与自己技术不行，不会弄，
特意来请教各位老师，能否帮我下。在delphi中 怎么连接HTTPS网站提交数据和接收呢？》希望能给份简单的代码，在次感谢~谢谢~

解决方案 »

  1.   

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

  2.   

    IdHTTP + IdSSLIOHandlerSocketOpenSSL + OpenSSL库
      

  3.   

    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&#69070'));
        finally
          pOpenSSL.Free;
        end;
      finally
        phttp.Free;
      end;
    end;
      

  4.   

    提示 :[错误] Unit1.pas(31): Undeclared identifier: 'TIdSSLIOHandlerSocketOpenSSL'请问TIdSSLIOHandlerSocketOpenSSL 是在哪个单元里面呀?
      

  5.   

    低版本可能是TIdSSLIOHandlerSocket
      

  6.   

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

  7.   

    需要下载SSL库http://indy.fulgan.com/SSL/Archive/
      

  8.   

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

  9.   

    我的邮件是 [email protected]谢谢老师
      

  10.   

    老师为什么有些能连接上有些连接不上呢？
    我连接的是 https://shop.lwll.net/index.jsp 连接不上
    我想做个自动登陆的程序，可惜现在连接不上呢。
    提示错误：Socket Error #10061
            Connection refused.
      

  11.   

    我现在没有低版本的环境，在高版本当中是正常的，要不你更换一下SSL的版本。
    类似于：pOpenSSL.SSLOptions.Method := sslvTLSv1;
      

  12.   

    是更换SSL协议，不是版本。某些网站只支持Tls协议。
      

  13.   

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