libmicrohttpd.pp 22 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509
  1. {
  2. This file is part of the Free Pascal packages
  3. Copyright (c) 2015 by Silvio Clecio, Gilson Nunes and Joao Morais
  4. See the file COPYING.FPC, included in this distribution,
  5. for details about the copyright.
  6. This program is distributed in the hope that it will be useful,
  7. but WITHOUT ANY WARRANTY; without even the implied warranty of
  8. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  9. **********************************************************************
  10. The GNU libmicrohttpd library is governed by GNU copyright, see the
  11. GNU libmicrohttpd website for this:
  12. https://www.gnu.org/software/libmicrohttpd/
  13. }
  14. {$IFNDEF FPC_DOTTEDUNITS}
  15. unit libmicrohttpd;
  16. {$ENDIF FPC_DOTTEDUNITS}
  17. interface
  18. {$IFDEF FPC_DOTTEDUNITS}
  19. uses
  20. {$IFDEF MSWINDOWS}
  21. WinApi.Winsock2,
  22. {$ENDIF}
  23. {$IFDEF FPC}
  24. {$IFDEF UNIX}UnixApi.Base, UnixApi.Unix,{$ENDIF}System.CTypes, System.Net.Sockets
  25. {$ELSE}
  26. WinTypes
  27. {$ENDIF};
  28. {$ELSE FPC_DOTTEDUNITS}
  29. uses
  30. {$IFDEF MSWINDOWS}
  31. WinSock2,
  32. {$ENDIF}
  33. {$IFDEF FPC}
  34. {$IFDEF UNIX}BaseUnix, Unix,{$ENDIF}CTypes, Sockets
  35. {$ELSE}
  36. WinTypes
  37. {$ENDIF};
  38. {$ENDIF FPC_DOTTEDUNITS}
  39. const
  40. MHD_LIB_NAME = {$IFDEF MSWINDOWS}'libmicrohttpd-10'{$ELSE}'microhttpd'{$ENDIF};
  41. {$IFDEF FPC}
  42. {$PACKRECORDS C}
  43. {$ENDIF}
  44. {$IFDEF UNIX}
  45. FD_SETSIZE = 64;
  46. {$ENDIF}
  47. {$IFDEF UINT64_MAX}
  48. MHD_SIZE_UNKNOWN = UINT64_MAX;
  49. {$ELSE}
  50. MHD_SIZE_UNKNOWN = -1;
  51. {$ENDIF}
  52. {$IFDEF SIZE_MAX}
  53. MHD_CONTENT_READER_END_OF_STREAM = SIZE_MAX;
  54. MHD_CONTENT_READER_END_WITH_ERROR = SIZE_MAX - 1;
  55. {$ELSE}
  56. MHD_CONTENT_READER_END_OF_STREAM = -1;
  57. MHD_CONTENT_READER_END_WITH_ERROR = -2;
  58. {$ENDIF}
  59. {$IFNDEF MHD_SOCKET_DEFINED}
  60. {$IF NOT DEFINED(WIN32) OR DEFINED(_SYS_TYPES_FD_SET)}
  61. MHD_POSIX_SOCKETS = 1;
  62. MHD_INVALID_SOCKET = -1;
  63. {$ELSE}
  64. MHD_WINSOCK_SOCKETS = 1;
  65. MHD_INVALID_SOCKET = INVALID_SOCKET;
  66. {$ENDIF}
  67. MHD_SOCKET_DEFINED = 1;
  68. {$ENDIF}
  69. MHD_VERSION = $00094601;
  70. MHD_YES = 1;
  71. MHD_NO = 0;
  72. MHD_INVALID_NONCE = -1;
  73. MHD_ICY_FLAG = -2147483648;
  74. MHD_LONG_LONG_PRINTF = 'll';
  75. MHD_UNSIGNED_LONG_LONG_PRINTF = '%llu';
  76. // HTTP codes
  77. MHD_HTTP_CONTINUE = 100;
  78. MHD_HTTP_SWITCHING_PROTOCOLS = 101;
  79. MHD_HTTP_PROCESSING = 102;
  80. MHD_HTTP_OK = 200;
  81. MHD_HTTP_CREATED = 201;
  82. MHD_HTTP_ACCEPTED = 202;
  83. MHD_HTTP_NON_AUTHORITATIVE_INFORMATION = 203;
  84. MHD_HTTP_NO_CONTENT = 204;
  85. MHD_HTTP_RESET_CONTENT = 205;
  86. MHD_HTTP_PARTIAL_CONTENT = 206;
  87. MHD_HTTP_MULTI_STATUS = 207;
  88. MHD_HTTP_MULTIPLE_CHOICES = 300;
  89. MHD_HTTP_MOVED_PERMANENTLY = 301;
  90. MHD_HTTP_FOUND = 302;
  91. MHD_HTTP_SEE_OTHER = 303;
  92. MHD_HTTP_NOT_MODIFIED = 304;
  93. MHD_HTTP_USE_PROXY = 305;
  94. MHD_HTTP_SWITCH_PROXY = 306;
  95. MHD_HTTP_TEMPORARY_REDIRECT = 307;
  96. MHD_HTTP_BAD_REQUEST = 400;
  97. MHD_HTTP_UNAUTHORIZED = 401;
  98. MHD_HTTP_PAYMENT_REQUIRED = 402;
  99. MHD_HTTP_FORBIDDEN = 403;
  100. MHD_HTTP_NOT_FOUND = 404;
  101. MHD_HTTP_METHOD_NOT_ALLOWED = 405;
  102. MHD_HTTP_NOT_ACCEPTABLE = 406;
  103. MHD_HTTP_PROXY_AUTHENTICATION_REQUIRED = 407;
  104. MHD_HTTP_REQUEST_TIMEOUT = 408;
  105. MHD_HTTP_CONFLICT = 409;
  106. MHD_HTTP_GONE = 410;
  107. MHD_HTTP_LENGTH_REQUIRED = 411;
  108. MHD_HTTP_PRECONDITION_FAILED = 412;
  109. MHD_HTTP_REQUEST_ENTITY_TOO_LARGE = 413;
  110. MHD_HTTP_REQUEST_URI_TOO_LONG = 414;
  111. MHD_HTTP_UNSUPPORTED_MEDIA_TYPE = 415;
  112. MHD_HTTP_REQUESTED_RANGE_NOT_SATISFIABLE = 416;
  113. MHD_HTTP_EXPECTATION_FAILED = 417;
  114. MHD_HTTP_UNPROCESSABLE_ENTITY = 422;
  115. MHD_HTTP_LOCKED = 423;
  116. MHD_HTTP_FAILED_DEPENDENCY = 424;
  117. MHD_HTTP_UNORDERED_COLLECTION = 425;
  118. MHD_HTTP_UPGRADE_REQUIRED = 426;
  119. MHD_HTTP_NO_RESPONSE = 444;
  120. MHD_HTTP_RETRY_WITH = 449;
  121. MHD_HTTP_BLOCKED_BY_WINDOWS_PARENTAL_CONTROLS = 450;
  122. MHD_HTTP_UNAVAILABLE_FOR_LEGAL_REASONS = 451;
  123. MHD_HTTP_INTERNAL_SERVER_ERROR = 500;
  124. MHD_HTTP_NOT_IMPLEMENTED = 501;
  125. MHD_HTTP_BAD_GATEWAY = 502;
  126. MHD_HTTP_SERVICE_UNAVAILABLE = 503;
  127. MHD_HTTP_GATEWAY_TIMEOUT = 504;
  128. MHD_HTTP_HTTP_VERSION_NOT_SUPPORTED = 505;
  129. MHD_HTTP_VARIANT_ALSO_NEGOTIATES = 506;
  130. MHD_HTTP_INSUFFICIENT_STORAGE = 507;
  131. MHD_HTTP_BANDWIDTH_LIMIT_EXCEEDED = 509;
  132. MHD_HTTP_NOT_EXTENDED = 510;
  133. // HTTP headers
  134. MHD_HTTP_HEADER_ACCEPT = 'Accept';
  135. MHD_HTTP_HEADER_ACCEPT_CHARSET = 'Accept-Charset';
  136. MHD_HTTP_HEADER_ACCEPT_ENCODING = 'Accept-Encoding';
  137. MHD_HTTP_HEADER_ACCEPT_LANGUAGE = 'Accept-Language';
  138. MHD_HTTP_HEADER_ACCEPT_RANGES = 'Accept-Ranges';
  139. MHD_HTTP_HEADER_AGE = 'Age';
  140. MHD_HTTP_HEADER_ALLOW = 'Allow';
  141. MHD_HTTP_HEADER_AUTHORIZATION = 'Authorization';
  142. MHD_HTTP_HEADER_CACHE_CONTROL = 'Cache-Control';
  143. MHD_HTTP_HEADER_CONNECTION = 'Connection';
  144. MHD_HTTP_HEADER_CONTENT_ENCODING = 'Content-Encoding';
  145. MHD_HTTP_HEADER_CONTENT_LANGUAGE = 'Content-Language';
  146. MHD_HTTP_HEADER_CONTENT_LENGTH = 'Content-Length';
  147. MHD_HTTP_HEADER_CONTENT_LOCATION = 'Content-Location';
  148. MHD_HTTP_HEADER_CONTENT_MD5 = 'Content-MD5';
  149. MHD_HTTP_HEADER_CONTENT_RANGE = 'Content-Range';
  150. MHD_HTTP_HEADER_CONTENT_TYPE = 'Content-Type';
  151. MHD_HTTP_HEADER_COOKIE = 'Cookie';
  152. MHD_HTTP_HEADER_DATE = 'Date';
  153. MHD_HTTP_HEADER_ETAG = 'ETag';
  154. MHD_HTTP_HEADER_EXPECT = 'Expect';
  155. MHD_HTTP_HEADER_EXPIRES = 'Expires';
  156. MHD_HTTP_HEADER_FROM = 'From';
  157. MHD_HTTP_HEADER_HOST = 'Host';
  158. MHD_HTTP_HEADER_IF_MATCH = 'If-Match';
  159. MHD_HTTP_HEADER_IF_MODIFIED_SINCE = 'If-Modified-Since';
  160. MHD_HTTP_HEADER_IF_NONE_MATCH = 'If-None-Match';
  161. MHD_HTTP_HEADER_IF_RANGE = 'If-Range';
  162. MHD_HTTP_HEADER_IF_UNMODIFIED_SINCE = 'If-Unmodified-Since';
  163. MHD_HTTP_HEADER_LAST_MODIFIED = 'Last-Modified';
  164. MHD_HTTP_HEADER_LOCATION = 'Location';
  165. MHD_HTTP_HEADER_MAX_FORWARDS = 'Max-Forwards';
  166. MHD_HTTP_HEADER_PRAGMA = 'Pragma';
  167. MHD_HTTP_HEADER_PROXY_AUTHENTICATE = 'Proxy-Authenticate';
  168. MHD_HTTP_HEADER_PROXY_AUTHORIZATION = 'Proxy-Authorization';
  169. MHD_HTTP_HEADER_RANGE = 'Range';
  170. MHD_HTTP_HEADER_REFERER = 'Referer';
  171. MHD_HTTP_HEADER_RETRY_AFTER = 'Retry-After';
  172. MHD_HTTP_HEADER_SERVER = 'Server';
  173. MHD_HTTP_HEADER_SET_COOKIE = 'Set-Cookie';
  174. MHD_HTTP_HEADER_SET_COOKIE2 = 'Set-Cookie2';
  175. MHD_HTTP_HEADER_TE = 'TE';
  176. MHD_HTTP_HEADER_TRAILER = 'Trailer';
  177. MHD_HTTP_HEADER_TRANSFER_ENCODING = 'Transfer-Encoding';
  178. MHD_HTTP_HEADER_UPGRADE = 'Upgrade';
  179. MHD_HTTP_HEADER_USER_AGENT = 'User-Agent';
  180. MHD_HTTP_HEADER_VARY = 'Vary';
  181. MHD_HTTP_HEADER_VIA = 'Via';
  182. MHD_HTTP_HEADER_WARNING = 'Warning';
  183. MHD_HTTP_HEADER_WWW_AUTHENTICATE = 'WWW-Authenticate';
  184. MHD_HTTP_HEADER_ACCESS_CONTROL_ALLOW_ORIGIN = 'Access-Control-Allow-Origin';
  185. MHD_HTTP_HEADER_CONTENT_DISPOSITION = 'Content-Disposition';
  186. MHD_HTTP_VERSION_1_0 = 'HTTP/1.0';
  187. MHD_HTTP_VERSION_1_1 = 'HTTP/1.1';
  188. MHD_HTTP_METHOD_CONNECT = 'CONNECT';
  189. MHD_HTTP_METHOD_DELETE = 'DELETE';
  190. MHD_HTTP_METHOD_GET = 'GET';
  191. MHD_HTTP_METHOD_HEAD = 'HEAD';
  192. MHD_HTTP_METHOD_OPTIONS = 'OPTIONS';
  193. MHD_HTTP_METHOD_POST = 'POST';
  194. MHD_HTTP_METHOD_PUT = 'PUT';
  195. MHD_HTTP_METHOD_PATCH = 'PATCH';
  196. MHD_HTTP_METHOD_TRACE = 'TRACE';
  197. MHD_HTTP_POST_ENCODING_FORM_URLENCODED = 'application/x-www-form-urlencoded';
  198. MHD_HTTP_POST_ENCODING_MULTIPART_FORMDATA = 'multipart/form-data';
  199. // MHD_ValueKind enum items
  200. MHD_RESPONSE_HEADER_KIND = 0;
  201. MHD_HEADER_KIND = 1;
  202. MHD_COOKIE_KIND = 2;
  203. MHD_POSTDATA_KIND = 4;
  204. MHD_GET_ARGUMENT_KIND = 8;
  205. MHD_FOOTER_KIND = 16;
  206. // MHD_FLAG enum items
  207. MHD_NO_FLAG = 0;
  208. MHD_USE_DEBUG = 1;
  209. MHD_USE_SSL = 2;
  210. MHD_USE_THREAD_PER_CONNECTION = 4;
  211. MHD_USE_INTERNAL_POLLING_THREAD = 8;
  212. MHD_USE_SELECT_INTERNALLY = 8 deprecated 'use MHD_USE_INTERNAL_POLLING_THREAD';
  213. MHD_USE_IPv6 = 16;
  214. MHD_USE_PEDANTIC_CHECKS = 32;
  215. MHD_USE_POLL = 64;
  216. MHD_USE_POLL_INTERNALLY = MHD_USE_SELECT_INTERNALLY or MHD_USE_POLL;
  217. MHD_SUPPRESS_DATE_NO_CLOCK = 128;
  218. MHD_USE_NO_LISTEN_SOCKET = 256;
  219. MHD_USE_EPOLL_LINUX_ONLY = 512;
  220. MHD_USE_EPOLL_INTERNALLY_LINUX_ONLY = MHD_USE_SELECT_INTERNALLY or MHD_USE_EPOLL_LINUX_ONLY;
  221. MHD_USE_PIPE_FOR_SHUTDOWN = 1024;
  222. MHD_USE_DUAL_STACK = MHD_USE_IPv6 or 2048;
  223. MHD_USE_EPOLL_TURBO = 4096;
  224. MHD_USE_SUSPEND_RESUME = 8192 or MHD_USE_PIPE_FOR_SHUTDOWN;
  225. MHD_USE_TCP_FASTOPEN = 16384;
  226. // MHD_OPTION enum items
  227. MHD_OPTION_END = 0;
  228. MHD_OPTION_CONNECTION_MEMORY_LIMIT = 1;
  229. MHD_OPTION_CONNECTION_LIMIT = 2;
  230. MHD_OPTION_CONNECTION_TIMEOUT = 3;
  231. MHD_OPTION_NOTIFY_COMPLETED = 4;
  232. MHD_OPTION_PER_IP_CONNECTION_LIMIT = 5;
  233. MHD_OPTION_SOCK_ADDR = 6;
  234. MHD_OPTION_URI_LOG_CALLBACK = 7;
  235. MHD_OPTION_HTTPS_MEM_KEY = 8;
  236. MHD_OPTION_HTTPS_MEM_CERT = 9;
  237. MHD_OPTION_HTTPS_CRED_TYPE = 10;
  238. MHD_OPTION_HTTPS_PRIORITIES = 11;
  239. MHD_OPTION_LISTEN_SOCKET = 12;
  240. MHD_OPTION_EXTERNAL_LOGGER = 13;
  241. MHD_OPTION_THREAD_POOL_SIZE = 14;
  242. MHD_OPTION_ARRAY = 15;
  243. MHD_OPTION_UNESCAPE_CALLBACK = 16;
  244. MHD_OPTION_DIGEST_AUTH_RANDOM = 17;
  245. MHD_OPTION_NONCE_NC_SIZE = 18;
  246. MHD_OPTION_THREAD_STACK_SIZE = 19;
  247. MHD_OPTION_HTTPS_MEM_TRUST = 20;
  248. MHD_OPTION_CONNECTION_MEMORY_INCREMENT = 21;
  249. MHD_OPTION_HTTPS_CERT_CALLBACK = 22;
  250. MHD_OPTION_TCP_FASTOPEN_QUEUE_SIZE = 23;
  251. MHD_OPTION_HTTPS_MEM_DHPARAMS = 24;
  252. MHD_OPTION_LISTENING_ADDRESS_REUSE = 25;
  253. MHD_OPTION_HTTPS_KEY_PASSWORD = 26;
  254. MHD_OPTION_NOTIFY_CONNECTION = 27;
  255. // MHD_RequestTerminationCode enum items
  256. MHD_REQUEST_TERMINATED_COMPLETED_OK = 0;
  257. MHD_REQUEST_TERMINATED_WITH_ERROR = 1;
  258. MHD_REQUEST_TERMINATED_TIMEOUT_REACHED = 2;
  259. MHD_REQUEST_TERMINATED_DAEMON_SHUTDOWN = 3;
  260. MHD_REQUEST_TERMINATED_READ_ERROR = 4;
  261. MHD_REQUEST_TERMINATED_CLIENT_ABORT = 5;
  262. // MHD_ConnectionNotificationCode enum items
  263. MHD_CONNECTION_NOTIFY_STARTED = 0;
  264. MHD_CONNECTION_NOTIFY_CLOSED = 1;
  265. // MHD_ConnectionInfoType enum items
  266. MHD_CONNECTION_INFO_CIPHER_ALGO = 0;
  267. MHD_CONNECTION_INFO_PROTOCOL = 1;
  268. MHD_CONNECTION_INFO_CLIENT_ADDRESS = 2;
  269. MHD_CONNECTION_INFO_GNUTLS_SESSION = 3;
  270. MHD_CONNECTION_INFO_GNUTLS_CLIENT_CERT = 4;
  271. MHD_CONNECTION_INFO_DAEMON = 5;
  272. MHD_CONNECTION_INFO_CONNECTION_FD = 6;
  273. MHD_CONNECTION_INFO_SOCKET_CONTEXT = 7;
  274. // MHD_DaemonInfoType enum items
  275. MHD_DAEMON_INFO_KEY_SIZE = 0;
  276. MHD_DAEMON_INFO_MAC_KEY_SIZE = 1;
  277. MHD_DAEMON_INFO_LISTEN_FD = 2;
  278. MHD_DAEMON_INFO_EPOLL_FD_LINUX_ONLY = 3;
  279. MHD_DAEMON_INFO_CURRENT_CONNECTIONS = 4;
  280. // MHD_ResponseFlags enum items
  281. MHD_RF_NONE = 0;
  282. MHD_RF_HTTP_VERSION_1_0_ONLY = 1;
  283. // MHD_ResponseOptions enum items
  284. MHD_RO_END = 0;
  285. // MHD_ResponseMemoryMode enum items
  286. MHD_RESPMEM_PERSISTENT = 0;
  287. MHD_RESPMEM_MUST_FREE = 1;
  288. MHD_RESPMEM_MUST_COPY = 2;
  289. // MHD_CONNECTION_OPTION enum items
  290. MHD_CONNECTION_OPTION_TIMEOUT = 0;
  291. // MHD_FEATURE enum items
  292. MHD_FEATURE_MESSGES = 1;
  293. MHD_FEATURE_SSL = 2;
  294. MHD_FEATURE_HTTPS_CERT_CALLBACK = 3;
  295. MHD_FEATURE_IPv6 = 4;
  296. MHD_FEATURE_IPv6_ONLY = 5;
  297. MHD_FEATURE_POLL = 6;
  298. MHD_FEATURE_EPOLL = 7;
  299. MHD_FEATURE_SHUTDOWN_LISTEN_SOCKET = 8;
  300. MHD_FEATURE_SOCKETPAIR = 9;
  301. MHD_FEATURE_TCP_FASTOPEN = 10;
  302. MHD_FEATURE_BASIC_AUTH = 11;
  303. MHD_FEATURE_DIGEST_AUTH = 12;
  304. MHD_FEATURE_POSTPROCESSOR = 13;
  305. MHD_FEATURE_HTTPS_KEY_PASSWORD = 14;
  306. MHD_FEATURE_LARGE_FILE = 15;
  307. type
  308. Pcchar = PAnsiChar;
  309. Ppcchar = ^Pcchar;
  310. va_list = Pointer;
  311. {$IFDEF FPC}
  312. cint = {$IFDEF FPC_DOTTEDUNITS}System.{$ENDIF}CTypes.cint;
  313. cuint = {$IFDEF FPC_DOTTEDUNITS}System.{$ENDIF}CTypes.cuint;
  314. cuint16 = {$IFDEF FPC_DOTTEDUNITS}System.{$ENDIF}CTypes.cuint16;
  315. cuint64 = {$IFDEF FPC_DOTTEDUNITS}System.{$ENDIF}CTypes.cuint64;
  316. culonglong = {$IFDEF FPC_DOTTEDUNITS}System.{$ENDIF}CTypes.culonglong;
  317. socklen_t = {$IFDEF UNIX}{$IFDEF FPC_DOTTEDUNITS}UnixApi.Base{$ELSE}BaseUnix{$ENDIF}.socklen_t{$ELSE}LongInt{$ENDIF};
  318. size_t = {$IFDEF UNIX}{$IFDEF FPC_DOTTEDUNITS}UnixApi.Base{$ELSE}BaseUnix{$ENDIF}{$ELSE}{$IFDEF FPC_DOTTEDUNITS}System.Net.{$ENDIF}Sockets{$ENDIF}.size_t;
  319. Psize_t =
  320. {$IFDEF UNIX}
  321. {$IFDEF FPC_DOTTEDUNITS}UnixApi.Base{$ELSE}BaseUnix{$ENDIF}.pSize_t
  322. {$ELSE}
  323. ^{$IFDEF FPC_DOTTEDUNITS}System.Net.{$ENDIF}Sockets.size_t
  324. {$ENDIF}
  325. ;
  326. Pfd_set = {$IFDEF UNIX}{$IFDEF FPC_DOTTEDUNITS}UnixApi.Base{$ELSE}BaseUnix{$ENDIF}.pFDSet{$ELSE}{$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}WinSock2.PFDSet{$ENDIF};
  327. ssize_t = {$IFDEF UNIX}{$IFDEF FPC_DOTTEDUNITS}UnixApi.Base{$ELSE}BaseUnix{$ENDIF}{$ELSE}{$IFDEF FPC_DOTTEDUNITS}System.Net.{$ENDIF}Sockets{$ENDIF}.ssize_t;
  328. psockaddr = {$IFDEF FPC_DOTTEDUNITS}System.Net.{$ENDIF}Sockets.psockaddr;
  329. {$ELSE}
  330. cint = LongInt;
  331. cuint = LongWord;
  332. cuint16 = Word;
  333. cuint64 = UInt64;
  334. culonglong = UInt64;
  335. socklen_t = LongInt;
  336. size_t = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}WinTypes.SIZE_T;
  337. Psize_t = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}WinTypes.PSIZE_T;
  338. Pfd_set = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}WinSock2.PFdSet;
  339. ssize_t = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}WinTypes.SSIZE_T;
  340. psockaddr = {$IFDEF FPC_DOTTEDUNITS}WinApi.{$ENDIF}WinSock2.PSockAddr;
  341. {$ENDIF}
  342. {$IFNDEF MHD_SOCKET_DEFINED}
  343. PMHD_socket = ^MHD_socket;
  344. {$IF NOT DEFINED(WIN32) OR DEFINED(_SYS_TYPES_FD_SET)}
  345. MHD_socket = cint;
  346. {$ELSE}
  347. MHD_socket = TSocket;
  348. {$ENDIF}
  349. {$ENDIF}
  350. MHD_LONG_LONG = clonglong;
  351. PMHD_LONG_LONG = ^MHD_LONG_LONG;
  352. MHD_UNSIGNED_LONG_LONG = culonglong;
  353. PMHD_UNSIGNED_LONG_LONG = ^MHD_UNSIGNED_LONG_LONG;
  354. // enums
  355. MHD_ValueKind = LongInt;
  356. MHD_FLAG = LongInt;
  357. MHD_OPTION = LongInt;
  358. MHD_RequestTerminationCode = LongInt;
  359. MHD_ConnectionNotificationCode = LongInt;
  360. MHD_ConnectionInfoType = LongInt;
  361. MHD_DaemonInfoType = LongInt;
  362. MHD_ResponseFlags = LongInt;
  363. MHD_ResponseOptions = LongInt;
  364. MHD_ResponseMemoryMode = LongInt;
  365. MHD_CONNECTION_OPTION = LongInt;
  366. MHD_FEATURE = LongInt;
  367. MHD_Daemon = record
  368. end;
  369. PMHD_Daemon = ^MHD_Daemon;
  370. MHD_Connection = record
  371. end;
  372. PMHD_Connection = ^MHD_Connection;
  373. MHD_Response = record
  374. end;
  375. PMHD_Response = ^MHD_Response;
  376. MHD_PostProcessor = record
  377. end;
  378. PMHD_PostProcessor = ^MHD_PostProcessor;
  379. MHD_OptionItem = record
  380. option: MHD_OPTION;
  381. value: ssize_t;
  382. ptr_value: Pointer;
  383. end;
  384. PMHD_OptionItem = ^MHD_OptionItem;
  385. MHD_ConnectionInfo = record
  386. case LongInt of
  387. 0: (cipher_algorithm: cint);
  388. 1: (protocol: cint);
  389. 2: (connect_fd: MHD_socket);
  390. 3: (tls_session: Pointer);
  391. 4: (client_cert: Pointer);
  392. 5: (client_addr: psockaddr);
  393. 6: (daemon: PMHD_Daemon);
  394. 7: (socket_context: ^Pointer);
  395. end;
  396. PMHD_ConnectionInfo = ^MHD_ConnectionInfo;
  397. MHD_DaemonInfo = record
  398. case LongInt of
  399. 0: (key_size: size_t);
  400. 1: (mac_key_size: size_t);
  401. 2: (listen_fd: MHD_socket);
  402. 3: (num_connections: cuint);
  403. end;
  404. PMHD_DaemonInfo = ^MHD_DaemonInfo;
  405. MHD_LogCallback = procedure(cls: Pointer; fm: Pcchar; ap: va_list); cdecl;
  406. MHD_PanicCallback = procedure(cls: Pointer; &file: Pcchar; line: cuint; reason: Pcchar); cdecl;
  407. MHD_AcceptPolicyCallback = function(cls: Pointer; addr: psockaddr; addrlen: socklen_t): cint; cdecl;
  408. MHD_AccessHandlerCallback = function(cls: Pointer; connection: PMHD_Connection; url: Pcchar; method: Pcchar; version: Pcchar; upload_data: Pcchar; upload_data_size: pSize_t; con_cls: PPointer): cint; cdecl;
  409. MHD_RequestCompletedCallback = procedure(cls: Pointer; connection: PMHD_Connection; con_cls: PPointer; toe: MHD_RequestTerminationCode); cdecl;
  410. MHD_NotifyConnectionCallback = procedure(cls: Pointer; connection: PMHD_Connection; socket_context: PPointer; toe: MHD_ConnectionNotificationCode); cdecl;
  411. MHD_KeyValueIterator = function(cls: Pointer; kind: MHD_ValueKind; key: Pcchar; value: Pcchar): cint; cdecl;
  412. MHD_ContentReaderCallback = function(cls: pointer; pos: cuint64; buf: Pcchar; max: size_t): ssize_t; cdecl;
  413. MHD_ContentReaderFreeCallback = procedure(cls: Pointer); cdecl;
  414. MHD_PostDataIterator = function(cls: Pointer; kind: MHD_ValueKind; key: Pcchar; filename: Pcchar; content_type: Pcchar; transfer_encoding: Pcchar; data: Pcchar; off: cuint64; size: size_t): cint; cdecl;
  415. function MHD_get_reason_phrase_for(code: cuint): Pcchar; cdecl; external MHD_LIB_NAME name 'MHD_get_reason_phrase_for';
  416. function MHD_start_daemon_va(flags: cuint; port: cuint16; apc: MHD_AcceptPolicyCallback; apc_cls: Pointer; dh: MHD_AccessHandlerCallback; dh_cls: Pointer; ap: va_list): PMHD_Daemon; cdecl; external MHD_LIB_NAME name 'MHD_start_daemon_va';
  417. function MHD_start_daemon(flags: cuint; port: cuint16; apc: MHD_AcceptPolicyCallback; apc_cls: Pointer; dh: MHD_AccessHandlerCallback; dh_cls: Pointer): PMHD_Daemon; cdecl; varargs; external MHD_LIB_NAME name 'MHD_start_daemon';
  418. function MHD_quiesce_daemon(daemon: PMHD_Daemon): MHD_socket; cdecl; external MHD_LIB_NAME name 'MHD_quiesce_daemon';
  419. procedure MHD_stop_daemon(daemon: PMHD_Daemon); cdecl; external MHD_LIB_NAME name 'MHD_stop_daemon';
  420. function MHD_add_connection(daemon: PMHD_Daemon; client_socket: MHD_socket; addr: psockaddr; addrlen: socklen_t): cint; cdecl; external MHD_LIB_NAME name 'MHD_add_connection';
  421. function MHD_get_fdset(daemon: PMHD_Daemon; read_fd_set: Pfd_set; write_fd_set: Pfd_set; except_fd_set: Pfd_set; max_fd: PMHD_socket): cint; cdecl; external MHD_LIB_NAME name 'MHD_get_fdset';
  422. function MHD_get_fdset2(daemon: PMHD_Daemon; read_fd_set: Pfd_set; write_fd_set: Pfd_set; except_fd_set: Pfd_set; max_fd: PMHD_socket; fd_setsize: cuint): cint; cdecl; external MHD_LIB_NAME name 'MHD_get_fdset2';
  423. function MHD_get_timeout(daemon: PMHD_Daemon; timeout: PMHD_UNSIGNED_LONG_LONG): cint; cdecl; external MHD_LIB_NAME name 'MHD_get_timeout';
  424. function MHD_run(daemon: PMHD_Daemon): cint; cdecl; external MHD_LIB_NAME name 'MHD_run';
  425. function MHD_run_from_select(daemon: PMHD_Daemon; read_fd_set: Pfd_set; write_fd_set: Pfd_set; except_fd_set: Pfd_set): cint; cdecl; external MHD_LIB_NAME name 'MHD_run_from_select';
  426. function MHD_get_connection_values(connection: PMHD_Connection; kind: MHD_ValueKind; iterator: MHD_KeyValueIterator; iterator_cls: pointer): cint; cdecl; external MHD_LIB_NAME name 'MHD_get_connection_values';
  427. function MHD_set_connection_value(connection: PMHD_Connection; kind: MHD_ValueKind; key: Pcchar; value: Pcchar): cint; cdecl; external MHD_LIB_NAME name 'MHD_set_connection_value';
  428. procedure MHD_set_panic_func(cb: MHD_PanicCallback; cls: Pointer); cdecl; external MHD_LIB_NAME name 'MHD_set_panic_func';
  429. function MHD_http_unescape(val: Pcchar): size_t; cdecl; external MHD_LIB_NAME name 'MHD_http_unescape';
  430. function MHD_lookup_connection_value(connection: PMHD_Connection; kind: MHD_ValueKind; key: Pcchar): Pcchar; cdecl; external MHD_LIB_NAME name 'MHD_lookup_connection_value';
  431. function MHD_queue_response(connection: PMHD_Connection; status_code: cuint; response: PMHD_Response): cint; cdecl; external MHD_LIB_NAME name 'MHD_queue_response';
  432. procedure MHD_suspend_connection(connection: PMHD_Connection); cdecl; external MHD_LIB_NAME name 'MHD_suspend_connection';
  433. procedure MHD_resume_connection(connection: PMHD_Connection); cdecl; external MHD_LIB_NAME name 'MHD_resume_connection';
  434. function MHD_set_response_options(response: PMHD_Response; flags: MHD_ResponseFlags): cint; cdecl; varargs; external MHD_LIB_NAME name 'MHD_set_response_options';
  435. function MHD_create_response_from_callback(size: cuint64; block_size: size_t; crc: MHD_ContentReaderCallback; crc_cls: pointer; crfc: MHD_ContentReaderFreeCallback): PMHD_Response; cdecl; external MHD_LIB_NAME name 'MHD_create_response_from_callback';
  436. function MHD_create_response_from_buffer(size: size_t; buffer: Pointer; mode: MHD_ResponseMemoryMode): PMHD_Response; cdecl; external MHD_LIB_NAME name 'MHD_create_response_from_buffer';
  437. function MHD_create_response_from_fd(size: size_t; fd: cint): PMHD_Response; cdecl; external MHD_LIB_NAME name 'MHD_create_response_from_fd';
  438. function MHD_create_response_from_fd64(size: cuint64; fd: cint): PMHD_Response; cdecl; external MHD_LIB_NAME name 'MHD_create_response_from_fd64';
  439. function MHD_create_response_from_fd_at_offset64(size: cuint64; fd: cint; offset: cuint64): PMHD_Response;cdecl;external MHD_LIB_NAME name 'MHD_create_response_from_fd_at_offset64';
  440. procedure MHD_destroy_response(response: PMHD_Response); cdecl; external MHD_LIB_NAME name 'MHD_destroy_response';
  441. function MHD_add_response_header(response: PMHD_Response; header: Pcchar; content: Pcchar): cint; cdecl; external MHD_LIB_NAME name 'MHD_add_response_header';
  442. function MHD_add_response_footer(response: PMHD_Response; footer: Pcchar; content: Pcchar): cint; cdecl; external MHD_LIB_NAME name 'MHD_add_response_footer';
  443. function MHD_del_response_header(response: PMHD_Response; header: Pcchar; content: Pcchar): cint; cdecl; external MHD_LIB_NAME name 'MHD_del_response_header';
  444. function MHD_get_response_headers(response: PMHD_Response; iterator: MHD_KeyValueIterator; iterator_cls: Pointer): cint; cdecl; external MHD_LIB_NAME name 'MHD_get_response_headers';
  445. function MHD_get_response_header(response: PMHD_Response; key: Pcchar): Pcchar; cdecl; external MHD_LIB_NAME name 'MHD_get_response_header';
  446. function MHD_create_post_processor(connection: PMHD_Connection; buffer_size: size_t; iter: MHD_PostDataIterator; iter_cls: pointer): PMHD_PostProcessor; cdecl; external MHD_LIB_NAME name 'MHD_create_post_processor';
  447. function MHD_post_process(pp: PMHD_PostProcessor; post_data: Pcchar; post_data_len: size_t): cint; cdecl; external MHD_LIB_NAME name 'MHD_post_process';
  448. function MHD_destroy_post_processor(pp: PMHD_PostProcessor): cint; cdecl; external MHD_LIB_NAME name 'MHD_destroy_post_processor';
  449. function MHD_digest_auth_get_username(connection: PMHD_Connection): Pcchar; cdecl; external MHD_LIB_NAME name 'MHD_digest_auth_get_username';
  450. function MHD_digest_auth_check(connection: PMHD_Connection; realm: Pcchar; username: Pcchar; password: Pcchar; nonce_timeout: cuint): cint; cdecl; external MHD_LIB_NAME name 'MHD_digest_auth_check';
  451. function MHD_queue_auth_fail_response(connection: PMHD_Connection; realm: Pcchar; opaque: Pcchar; response: PMHD_Response; signal_stale: cint): cint; cdecl; external MHD_LIB_NAME name 'MHD_queue_auth_fail_response';
  452. function MHD_basic_auth_get_username_password(connection: PMHD_Connection; password: PPcchar): Pcchar; cdecl; external MHD_LIB_NAME name 'MHD_basic_auth_get_username_password';
  453. function MHD_queue_basic_auth_fail_response(connection: PMHD_Connection; realm: Pcchar; response: PMHD_Response): cint; cdecl; external MHD_LIB_NAME name 'MHD_queue_basic_auth_fail_response';
  454. function MHD_get_connection_info(connection: PMHD_Connection; info_type: MHD_ConnectionInfoType): PMHD_ConnectionInfo; cdecl; varargs; external MHD_LIB_NAME name 'MHD_get_connection_info';
  455. function MHD_set_connection_option(connection: PMHD_Connection; option: MHD_CONNECTION_OPTION): cint; cdecl; varargs; external MHD_LIB_NAME name 'MHD_set_connection_option';
  456. function MHD_get_daemon_info(daemon: PMHD_Daemon; info_type: MHD_DaemonInfoType): PMHD_DaemonInfo; cdecl; varargs; external MHD_LIB_NAME name 'MHD_get_daemon_info';
  457. function MHD_get_version: Pcchar; cdecl; external MHD_LIB_NAME name 'MHD_get_version';
  458. function MHD_is_feature_supported(feature: MHD_FEATURE): cint; cdecl; external MHD_LIB_NAME name 'MHD_is_feature_supported';
  459. implementation
  460. end.