Оболочка WinHttp Delphi

пожалуйста, сообщите, есть ли оболочка WinHTTP в Delphi XE

в порядке предпочтения:

  1. Дельфи из блока коробки
  2. сторонний файл pas с открытым исходным кодом с портированными процедурами ввода
  3. a xxx_TLB.pas wrapper

устранение:

поскольку комментарии не позволяют форматировать код, я вставляю решение в вопросы:

const
  winhttpdll = 'winhttp.dll';

  WINHTTP_ACCESS_TYPE_DEFAULT_PROXY = 0;
  WINHTTP_FLAG_REFRESH              = 000100;
  WINHTTP_FLAG_SECURE               = 800000;
  WINHTTP_ADDREQ_FLAG_COALESCE      = 000000;
  WINHTTP_QUERY_FLAG_NUMBER         = 000000;

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
9
delphi delphi-xe winhttp wrapper

2 ответов

Если вы хотите реализовать клиентский доступ HTTP в своем приложении, вы можете рассмотреть несколько вариантов:

  • используйте предоставленные компоненты Indy;
  • используйте сторонние компоненты, такие как Synapse, ICS или собственную оболочку WinSock;
  • Использовать WinINet;
  • Используйте WinHTTP.

на наши ОРМ, для своего уровня соединения HTTP / 1.1, мы попытались избежать внешних зависимостей, и не имели потребность всех Indy особенности и накладные расходы.

мы сначала написали нашу собственную оболочку WinSock, а затем попробовали WinInet. Когда мы использовали наш тестовый тест, мы обнаружили, что WinINet был очень медленным.

затем мы попробовали WinHTTP, новый API, предоставленный Microsoft, и мы узнали, что это было быстро. Так же быстро, как прямой доступ WinSock, без необходимости написания всего кода оболочки.

Итак, вот наша оболочка WinHTTP с открытым исходным кодом, в устройство с именем SynCrtSock. Проверенный от Delphi 5 до XE.

вы увидите, что мы использовали один и тот же универсальный класс для WinINet и WinHTTP. На самом деле обе библиотеки очень близки.

посмотреть эту статью. Существует примечание об автоматическом извлечении прокси.

Edit: с предстоящим Delphi XE2 вы сможете скомпилировать в Mac OS X. В этом случае имеет смысл использовать "абстрактные" классы, такие как SynCrtSock. Под Windows, это используйте WinHTTP, но под Mac OS X он вызовет API сокета. Чтобы скомпилировать код, вам нужно просто настроить тип класса, а не код.

11
  • проект
  • Импорт Библиотеки Типов
  • службы Microsoft WinHTTP, версия 5.1 (версия 5.1) C:\Windows\system32\winhttp.dll

и затем использовать его:

var
   http: IWinHttpRequest;
   szUrl: WideString;
begin
   szUrl := 'http://stackoverflow.com/questions/6725348/winhttp-delphi-wrapper';

   http := CoWinHttpRequest.Create;
   http.open('GET', szUrl, False);
   http.send(EmptyParam);

   if (http.status = 200) then
       ShowMessage(http.responseText);

так:

  • - это из коробки - с помощью инструментов окно
  • это с открытым исходным кодом-вы можете изменить источник, как вам нравится
  • это TLB
6