WinHttp Delphi包装器

问题描述

请告知Delphi XE中是否有WinHTTP包装器

Please advise if there is a WinHTTP wrapper in Delphi XE

按优先顺序排列：

1. 开箱即用的Delphi


2. 带有移植例程的第三方开源pas文件


3. a xxx_TLB.pas包装器

解决方案：

由于注释不允许使用格式化代码，因此我在问题中粘贴解决方案：

Since comments do not allow formatted code I am pasting the solution in the questions:

const
  winhttpdll = 'winhttp.dll';

  WINHTTP_ACCESS_TYPE_DEFAULT_PROXY = 0;
  WINHTTP_FLAG_REFRESH              = $00000100;
  WINHTTP_FLAG_SECURE               = $00800000;
  WINHTTP_ADDREQ_FLAG_COALESCE      = $40000000;
  WINHTTP_QUERY_FLAG_NUMBER         = $20000000;

function WinHttpOpen(pwszUserAgent: PWideChar; dwAccessType: DWORD;
  pwszProxyName, pwszProxyBypass: PWideChar; dwFlags: DWORD): HINTERNET; stdcall; external winhttpdll;
function WinHttpConnect(hSession: HINTERNET; pswzServerName: PWideChar;
  nServerPort: INTERNET_PORT; dwReserved: DWORD): HINTERNET; stdcall; external winhttpdll;
function WinHttpOpenRequest(hConnect: HINTERNET; pwszVerb: PWideChar;
  pwszObjectName: PWideChar; pwszVersion: PWideChar; pwszReferer: PWideChar;
  ppwszAcceptTypes: PLPWSTR; dwFlags: DWORD): HINTERNET; stdcall; external winhttpdll;
function WinHttpCloseHandle(hInternet: HINTERNET): BOOL; stdcall; external winhttpdll;
function WinHttpAddRequestHeaders(hRequest: HINTERNET; pwszHeaders: PWideChar; dwHeadersLength: DWORD;
  dwModifiers: DWORD): BOOL; stdcall; external winhttpdll;
function WinHttpSendRequest(hRequest: HINTERNET; pwszHeaders: PWideChar;
  dwHeadersLength: DWORD; lpOptional: Pointer; dwOptionalLength: DWORD; dwTotalLength: DWORD;
  dwContext: DWORD): BOOL; stdcall; external winhttpdll;
function WinHttpReceiveResponse(hRequest: HINTERNET;
  lpReserved: Pointer): BOOL; stdcall; external winhttpdll;
function WinHttpQueryHeaders(hRequest: HINTERNET; dwInfoLevel: DWORD; pwszName: PWideChar;
  lpBuffer: Pointer; var lpdwBufferLength, lpdwIndex: DWORD): BOOL; stdcall; external winhttpdll;
function WinHttpReadData(hRequest: HINTERNET; lpBuffer: Pointer;
  dwNumberOfBytesToRead: DWORD; var lpdwNumberOfBytesRead: DWORD): BOOL; stdcall; external winhttpdll;
function WinHttpQueryDataAvailable(hRequest: HINTERNET; var lpdwNumberOfBytesAvailable: DWORD): BOOL;
  stdcall; external winhttpdll;
function WinHttpSetOption(hInternet: HINTERNET; dwOption: DWORD; lpBuffer: Pointer; dwBufferLength: DWORD): BOOL;
  stdcall; external winhttpdll;
function WinHttpQueryOption(hInternet: HINTERNET; dwOption: DWORD; var lpBuffer: Pointer; var lpdwBufferLength: DWORD): BOOL;
  stdcall; external winhttpdll;
function WinHttpWriteData(hRequest: HINTERNET; lpBuffer: Pointer; dwNumberOfBytesToWrite: DWORD;
  var lpdwNumberOfBytesWritten: DWORD): BOOL; stdcall; external winhttpdll;
function WinHttpCheckPlatform(): BOOL; stdcall; external winhttpdll;

还有更多失踪者：

WinHttpCrackUrl
WinHttpCreateUrl
WinHttpSetStatusCallback
WinHttpTimeFromSystemTime
WinHttpTimeToSystemTime

推荐答案

如果要在应用程序中实现HTTP客户端访问，则可以考虑以下几种选择：

If you want to implement an HTTP client access in your application, you may consider several choices:

• 使用提供的Indy组件；


• 使用第三方组件，例如Synapse，ICS或您自己的基于WinSock的包装程序；


• 使用WinINet;


• 使用WinHTTP。

• Use the provided Indy components;
• Use third-party components like Synapse, ICS or your own WinSock-based wrapper;
• Use WinINet;
• Use WinHTTP.

对于，对于其HTTP / 1.1连接层，我们试图避免外部依赖，但并未需要所有Indy的功能和开销。

For our ORM, for its HTTP/1.1 connection layer, we tried to avoid external dependencies, and did not have the need of all Indy's features and overhead.

我们首先编写了自己的WinSock包装器，然后尝试了WinInet。在测试基准上使用WinINet时，我们发现它运行缓慢。

We first wrote our own WinSock wrapper, then tried out WinInet. When used on our testing benchmark, we found out that WinINet was dead slow.

然后，我们尝试使用WinHTTP（Microsoft提供的新API），发现运行速度很快。与直接WinSock访问一样快，而无需编写所有包装器代码。

Then we tried WinHTTP, the new API provided by Microsoft, and we found out this was blazing fast. As fast as direct WinSock access, without the need of writing all the wrapper code.

这是我们的开源WinHTTP包装器，位于。从Delphi 5到XE进行了测试。

So here is our OpenSource WinHTTP wrapper, in the unit named SynCrtSock. Tested from Delphi 5 up to XE.

您会看到，我们对WinINet和WinHTTP使用了相同的通用类。实际上，两个库都非常接近。

You'll see that we used the same generic class for both WinINet and WinHTTP. In fact, both libraries are very close.

请参见。有关自动代理检索的说明。

See this article for details. There is a note about automatic proxy retrieval.

编辑：即将推出的Delphi XE2，您将可以交叉编译到Mac OSX。在这种情况下，使用抽象表示完全有意义。类，例如 SynCrtSock 。在Windows下，它将使用WinHTTP，但在Mac OS X下，它将调用套接字API。要编译代码，只需调整类类型，而不是代码即可。

with the upcoming Delphi XE2, you'll be able to cross-compile to Mac OS X. In this case, it does perfectly make sense to use "abstract" classes, like SynCrtSock. Under Windows, it will use WinHTTP, but under Mac OS X, it will call the socket API. To make your code compile, you'll just to adjust the class type, not your code.

这篇关于WinHttp Delphi包装器的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！