有没有人能帮帮我 5555

小桂叶 2021-04-17 03:16:17

最近要调用一个接口原本是很简单的但是他们的站点只支持 tlsv1.3的 delphi有什么方法能够调用这种接口吗？谢谢大家

...全文

3123 9 打赏收藏转发到动态举报

写回复

用AI写文章

9 条回复

切换为时间正序

请发表友善的回复…

发表回复

天行归来 2021-04-25

打赏
举报

引用 9 楼小桂叶的回复:

[quote=引用 8 楼天行归来的回复:][quote=引用 7 楼小桂叶的回复:][quote=引用 6 楼天行归来的回复:]Delphi10环境，用 IXMLHTTPRequest ，测试 https://halfrost.com/tls1-3_start/ 这个网站，可正常返回。
var
  resp: string;
  http: IXMLHTTPRequest ;
begin
  http:= CoXMLHTTP60.Create();
  http.open('Get', 'https://halfrost.com/tls1-3_start/', false, EmptyParam, EmptyParam);
  http.send(EmptyParam);
  resp := http.responseText;
end;

引用 6 楼天行归来的回复:

Delphi10环境，用 IXMLHTTPRequest ，测试 https://halfrost.com/tls1-3_start/ 这个网站，可正常返回。
var
  resp: string;
  http: IXMLHTTPRequest ;
begin
  http:= CoXMLHTTP60.Create();
  http.open('Get', 'https://halfrost.com/tls1-3_start/', false, EmptyParam, EmptyParam);
  http.send(EmptyParam);
  resp := http.responseText;
end;

你好我问一下我在32位的系统里使用时报系统错误 -2146697208 是因为版本太低吗？[/quote] Delphi哪个版本的？[/quote] DELPHI 10编译的动态库在delphi6里调用的在我自己的电脑上（win7）运行没有问题但是放到32位xp的电脑上就会报系统错误， 32位的电脑的ie打不开我调用的网站（tls1.3）是这个电脑版本太低了吗？如果想运行的话只有升级ie吗？[/quote] 这个倒是没有研究，可以试下xp环境下，浏览器访问你的网站是否正常，另外，看下 libeay32.dll 和 ssleay32.dll 不同电脑版本是否有什么差异，找下最新32位放到xp环境下看是否正常。

小桂叶 2021-04-25

打赏
举报

引用 8 楼天行归来的回复:

[quote=引用 7 楼小桂叶的回复:][quote=引用 6 楼天行归来的回复:]Delphi10环境，用 IXMLHTTPRequest ，测试 https://halfrost.com/tls1-3_start/ 这个网站，可正常返回。
var
  resp: string;
  http: IXMLHTTPRequest ;
begin
  http:= CoXMLHTTP60.Create();
  http.open('Get', 'https://halfrost.com/tls1-3_start/', false, EmptyParam, EmptyParam);
  http.send(EmptyParam);
  resp := http.responseText;
end;

引用 6 楼天行归来的回复:

Delphi10环境，用 IXMLHTTPRequest ，测试 https://halfrost.com/tls1-3_start/ 这个网站，可正常返回。
var
  resp: string;
  http: IXMLHTTPRequest ;
begin
  http:= CoXMLHTTP60.Create();
  http.open('Get', 'https://halfrost.com/tls1-3_start/', false, EmptyParam, EmptyParam);
  http.send(EmptyParam);
  resp := http.responseText;
end;

小桂叶 2021-04-22

打赏
举报

引用 6 楼天行归来的回复:

Delphi10环境，用 IXMLHTTPRequest ，测试 https://halfrost.com/tls1-3_start/ 这个网站，可正常返回。
var
  resp: string;
  http: IXMLHTTPRequest ;
begin
  http:= CoXMLHTTP60.Create();
  http.open('Get', 'https://halfrost.com/tls1-3_start/', false, EmptyParam, EmptyParam);
  http.send(EmptyParam);
  resp := http.responseText;
end;

引用 6 楼天行归来的回复:

Delphi10环境，用 IXMLHTTPRequest ，测试 https://halfrost.com/tls1-3_start/ 这个网站，可正常返回。
var
  resp: string;
  http: IXMLHTTPRequest ;
begin
  http:= CoXMLHTTP60.Create();
  http.open('Get', 'https://halfrost.com/tls1-3_start/', false, EmptyParam, EmptyParam);
  http.send(EmptyParam);
  resp := http.responseText;
end;

你好我问一下我在32位的系统里使用时报系统错误 -2146697208 是因为版本太低吗？

天行归来 2021-04-22

打赏
举报

引用 7 楼小桂叶的回复:

[quote=引用 6 楼天行归来的回复:]Delphi10环境，用 IXMLHTTPRequest ，测试 https://halfrost.com/tls1-3_start/ 这个网站，可正常返回。
var
  resp: string;
  http: IXMLHTTPRequest ;
begin
  http:= CoXMLHTTP60.Create();
  http.open('Get', 'https://halfrost.com/tls1-3_start/', false, EmptyParam, EmptyParam);
  http.send(EmptyParam);
  resp := http.responseText;
end;

引用 6 楼天行归来的回复:

Delphi10环境，用 IXMLHTTPRequest ，测试 https://halfrost.com/tls1-3_start/ 这个网站，可正常返回。
var
  resp: string;
  http: IXMLHTTPRequest ;
begin
  http:= CoXMLHTTP60.Create();
  http.open('Get', 'https://halfrost.com/tls1-3_start/', false, EmptyParam, EmptyParam);
  http.send(EmptyParam);
  resp := http.responseText;
end;

你好我问一下我在32位的系统里使用时报系统错误 -2146697208 是因为版本太低吗？[/quote] Delphi哪个版本的？

天行归来 2021-04-18

打赏
举报

Delphi10环境，用 IXMLHTTPRequest ，测试 https://halfrost.com/tls1-3_start/ 这个网站，可正常返回。


var
  resp: string;
  http: IXMLHTTPRequest ;
begin
  http:= CoXMLHTTP60.Create();
  http.open('Get', 'https://halfrost.com/tls1-3_start/', false, EmptyParam, EmptyParam);
  http.send(EmptyParam);
  resp := http.responseText;
end;