如题,最好能附上源码,谢谢大家了!

解决方案 »

  1.   

    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;