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

再谈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;

1.   FCustomHeaders := [TNetHeader.Create(sUserAgent, DefaultUserAgent)];

2.   FInternalCredentialsStorage := TCredentialsStorage.Create;

3.   FInstances := TObjectDictionary<string, TURLClient>.Create;

4.   FCredentialsStorage := FInternalCredentialsStorage;

5.   FConnectionTimeout := DefaultConnectionTimeout;

6.   FResponseTimeout := DefaultResponseTimeout;

end;

其中：

1.   public const

2.     DefaultConnectionTimeout = 60000;

3.     DefaultResponseTimeout = 60000;

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

1.  

2. const

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

4.  

5. // Common Header Names

6. sUserAgent = 'User-Agent'; // Do not translate

7. sAccept = 'Accept'; // Do not translate

8. sAcceptCharset = 'Accept-Charset'; // Do not translate

9. sAcceptEncoding = 'Accept-Encoding'; // Do not translate

10. sAcceptLanguage = 'Accept-Language'; // Do not translate

11. sAcceptRanges = 'Accept-Ranges'; // Do not translate

12. sContentEncoding = 'Content-Encoding'; // Do not translate

13. sContentLanguage = 'Content-Language'; // Do not translate

14. sContentLength = 'Content-Length'; // Do not translate

15. sContentType = 'Content-Type'; // Do not translate

16. sLastModified = 'Last-Modified'; // Do not translate

17. sContentDisposition = 'Content-Disposition'; // Do not translate

18.  

19. sLocation = 'Location'; // Do not translate

20. sSetCookie = 'Set-Cookie'; // Do not translate

21. sCookie = 'Cookie'; // Do not translate

22.  

23. sRange = 'Range'; // Do not translate

24.  

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

26.  

27. sWWWAuthenticate = 'WWW-Authenticate'; // Do not translate

28. sProxyAuthenticate = 'Proxy-Authenticate'; // Do not translate

29. sAuthorization = 'Authorization'; // Do not translate

30. sProxyAuthorization = 'Proxy-Authorization'; // Do not translate

例如 ：

1. TNetHTTPClient.ConnectionTimeout := 5000; // 5秒

2. TNetHTTPClient.ResponseTimeout := 10000; // 10秒

3. TNetHTTPClient.AcceptCharSet := 'utf-8';

4. TNetHTTPClient.AcceptEncoding:='65001';

5. TNetHTTPClient.AcceptLanguage:='zh-CN';

6. TNetHTTPClient.ContentType := 'text/html';

7. TNetHTTPClient.UserAgent := 'Embarcadero URI Client/1.0';

 

三、相关文章：

1、delphi XE Restful:RestClien案例RESTDebugger.dproj和RESTDemos.dproj的调用参数及格式设置：  https://blog.csdn.net/pulledup/article/details/104242744

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