Delphi的idhttp post提交报IOHandler value is not valid错误

文章介绍了如何在Delphi2007环境下,使用Indy10.2.3组件库中的TIdHTTP和TIdSSLIOHandlerSocketOpenSSL来支持HTTPS访问,需要配合SSLeay32.dll和libeay32.dll库,并提供了一个简单的示例代码。同时指出,对于某些HTTPS站点,可能需要额外处理cookie管理。
摘要由CSDN通过智能技术生成

在这里插入图片描述
出现这种问题的原因是由于访问的 URL地址为https或存在其跳转地址为https。

首先单纯使用idhttp是只能访问http,而https则需要搭配IdSSLIOHandlerSocketOpenSSL来实现对https的访问支持,当然还需要在系统目录或编译目标程序的同目录下有ssleay32.dll与libeay32.dll两个SLL协议的支持库。

下面贴出一个简单示例,但对于需要管理cookie的自然要继续完善idhttp的其他项设置,尤其是有些https站是屏蔽直接使用IdCookieManager的。

function TMyHttp.SSLGetS(URL: string): string;
var
  Http: TIdhttp;
  SSLIO: TIdSSLIOHandlerSocketOpenSSL;
begin
  Http := TIdHttp.Create(nil);
  Http.ProtocolVersion := pv1_1;
  Http.HandleRedirects := True;
  SSLIO := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
  SSLIO.SSLOptions.Method:=sslvTLSv1;
  SSLIO.SSLOptions.Mode := sslmClient;
  try
    try
      Http.IOHandler:=SSLIO;
      Result := Http.Get(URL);
    except
      Result := '';
    end;
  except
 
  end;
  Http.Disconnect;
  FreeAndNil(SSLIO);
  FreeAndNil(Http);
end;

我使用的是Delphi 2007,它最高仅支持Indy10.2.3版本,搭配前面提到的两个OpenSLL Shared Library 1.0.1.5(1.0.1.e)版本文件。

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 0
    评论
Delphi 2010 是一个集成开发环境(IDE),供开发者使用 Object Pascal 编程语言。要使用 Delphi 2010 的 IdHTTP 组件进行 JSON 提交,首先需要将 IdHTTP 组件放置在窗体的设计区域或者手动创建一个 IdHTTP 对象。 在代码中,需要导入 IdHTTP 单元,然后创建一个 IdHTTP 对象。然后,使用 Post 方法将 JSON 数据提交到服务器。在 Post 方法中,我们需要设置请求的 URL,并将 JSON 数据转换为字节数组。 具体代码如下: 1. 首先,确保你已经导入 IdHTTP 单元: ``` uses IdHTTP; ``` 2. 在窗体或类的声明部分,添加一个私有变量来持有 IdHTTP 对象: ``` private Http: TIdHTTP; ``` 3. 在创建窗体或类的构造函数中,创建 IdHTTP 对象并设置一些属性: ``` constructor TForm1.Create(AOwner: TComponent); begin inherited Create(AOwner); Http := TIdHTTP.Create(Self); Http.HandleRedirects := True; end; ``` 4. 在需要提交 JSON 数据的地方,使用以下代码: ``` procedure TForm1.PostJSONData(const URL: string; const JSONData: string); var Request: TStringStream; Response: string; begin Request := TStringStream.Create(JSONData, TEncoding.UTF8); try Response := Http.Post(URL, Request); ShowMessage(Response); // 可以根据需要处理服务器的响应结果 finally Request.Free; end; end; ``` 在这个例子中,URL 是目标服务器的地址,JSONData 是要提交的 JSON 数据。完成后,你可以根据需要处理服务器的响应结果。 这是使用 Delphi 2010 的 IdHTTP 组件提交 JSON 数据的简单示例。希望对你有所帮助!
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

香煎三文鱼

你的鼓励将是我创作的最大动力!

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值