再谈Delphi XE的System.Net.HttpClientComponent、System.Net.HttpClient、System.Net.URLClient

最新推荐文章于 2023-06-16 15:13:38 发布

专讲冷知识

最新推荐文章于 2023-06-16 15:13:38 发布

阅读量1.3k

点赞数 1

分类专栏： RestFul 文章标签： rest 分布式 https post http

本文链接：https://blog.csdn.net/pulledup/article/details/106522975

版权

RestFul 专栏收录该内容

41 篇文章

订阅专栏

本文深入解析了DelphiXE中的System.Net.HttpClientComponent、System.Net.HttpClient和System.Net.URLClient组件的继承关系和使用细节，包括TURLClient的默认配置参数，如连接和响应超时时间、默认用户代理等，并提供了调整这些参数的示例。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

再谈Delphi XE的System.Net.HttpClientComponent、System.Net.HttpClient、System.Net.URLClient

一、继承关系

System.Net.HttpClientComponent -> TNetHTTPClient.Create(nil);

-> System.Net.HttpClient

System.Net.HttpClient -> THTTPClient.Create;

-> System.Net.URLClient

System.Net.URLClient -> THTTPClient(TURLSchemes.GetURLClientInstance('HTTP'));

-> : TURLClient;

二、TURLClient.Create自动获取默认值

constructor TURLClient.Create;
begin
inherited;

  FCustomHeaders := [TNetHeader.Create(sUserAgent, DefaultUserAgent)];
  FInternalCredentialsStorage := TCredentialsStorage.Create;
  FInstances := TObjectDictionary<string, TURLClient>.Create;
  FCredentialsStorage := FInternalCredentialsStorage;
  FConnectionTimeout := DefaultConnectionTimeout;
  FResponseTimeout := DefaultResponseTimeout;

end;

其中：

  public const
    DefaultConnectionTimeout = 60000;
    DefaultResponseTimeout = 60000;

-----------> System.NetConsts


const
  DefaultUserAgent = 'Embarcadero URI Client/1.0'; // Do not translate

  // Common Header Names
  sUserAgent = 'User-Agent'; // Do not translate
  sAccept = 'Accept'; // Do not translate
  sAcceptCharset = 'Accept-Charset'; // Do not translate
  sAcceptEncoding = 'Accept-Encoding'; // Do not translate
  sAcceptLanguage = 'Accept-Language'; // Do not translate
  sAcceptRanges = 'Accept-Ranges'; // Do not translate
  sContentEncoding = 'Content-Encoding'; // Do not translate
  sContentLanguage = 'Content-Language'; // Do not translate
  sContentLength = 'Content-Length'; // Do not translate
  sContentType = 'Content-Type'; // Do not translate
  sLastModified = 'Last-Modified'; // Do not translate
  sContentDisposition = 'Content-Disposition'; // Do not translate

  sLocation = 'Location'; // Do not translate
  sSetCookie = 'Set-Cookie'; // Do not translate
  sCookie = 'Cookie'; // Do not translate

  sRange = 'Range'; // Do not translate

  sXMethodOverride = 'x-method-override'; // Do not translate

  sWWWAuthenticate  = 'WWW-Authenticate'; // Do not translate
  sProxyAuthenticate  = 'Proxy-Authenticate'; // Do not translate
  sAuthorization = 'Authorization'; // Do not translate
  sProxyAuthorization = 'Proxy-Authorization'; // Do not translate

例如：

        TNetHTTPClient.ConnectionTimeout := 5000; // 5秒
        TNetHTTPClient.ResponseTimeout := 10000; // 10秒
        TNetHTTPClient.AcceptCharSet := 'utf-8';
        TNetHTTPClient.AcceptEncoding:='65001';
        TNetHTTPClient.AcceptLanguage:='zh-CN';
        TNetHTTPClient.ContentType := 'text/html';
        TNetHTTPClient.UserAgent := 'Embarcadero URI Client/1.0';

2、delphi Restful:客户端实现的四种方式及其比较：https://blog.csdn.net/pulledup/article/details/104132753

3、delphi XE应用Restful时Rest组件的delphi XE ContentType即delphi XE mime type怎样获取和表达：

https://blog.csdn.net/pulledup/article/details/105408763

喜欢的话，就在下面点个赞、收藏就好了，方便看下次的分享：