Edit Question - KnowledgeHub

Title Body

Please advise if there is a WinHTTP wrapper in Delphi XE In order of preference: a Delphi out of the box unit a third party open source pas file with ported entry routines a xxx_TLB.pas wrapper Solution: 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

Tags (comma-separated) Cancel