12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182 |
- (*
- This file is part of libmicrohttpd
- Copyright (C) 2007 Christian Grothoff (and other contributing authors)
- This library is free software; you can redistribute it and/or
- modify it under the terms of the GNU Lesser General Public
- License as published by the Free Software Foundation; either
- version 2.1 of the License, or (at your option) any later version.
- This library is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- Lesser General Public License for more details.
- You should have received a copy of the GNU Lesser General Public
- License along with this library; if not, write to the Free Software
- Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
- *)
- (**
- * @file minimal_example.pp (Original: minimal_example.c)
- * @brief minimal example for how to use libmicrohttpd
- * @author Christian Grothoff / Silvio Clécio
- *)
- program minimal_example;
- {$mode objfpc}{$H+}
- uses
- sysutils, cutils, libmicrohttpd;
- const
- PAGE: Pcchar = '<html><head><title>libmicrohttpd demo</title></head><body>libmicrohttpd demo</body></html>';
- function ahc_echo(cls: Pointer; connection: PMHD_Connection; url: Pcchar;
- method: Pcchar; version: Pcchar; upload_data: Pcchar;
- upload_data_size: Psize_t; ptr: PPointer): cint; cdecl;
- const
- aptr: cint = 0;
- var
- me: Pcchar;
- response: PMHD_Response;
- ret: cint;
- begin
- me := cls;
- if 0 <> strcomp(method, 'GET') then
- Exit(MHD_NO);
- if @aptr <> ptr^ then
- begin
- ptr^ := @aptr;
- Exit(MHD_YES);
- end;
- ptr^ := nil;
- response := MHD_create_response_from_buffer(strlen(me), Pointer(me),
- MHD_RESPMEM_PERSISTENT);
- ret := MHD_queue_response(connection, MHD_HTTP_OK, response);
- MHD_destroy_response(response);
- Result := ret;
- end;
- var
- d: PMHD_Daemon;
- begin
- if argc <> 2 then
- begin
- WriteLn(argv[0], ' PORT');
- Halt(1);
- end;
- d := MHD_start_daemon(// MHD_USE_SELECT_INTERNALLY or MHD_USE_DEBUG or MHD_USE_POLL,
- MHD_USE_SELECT_INTERNALLY or MHD_USE_DEBUG,
- // MHD_USE_THREAD_PER_CONNECTION or MHD_USE_DEBUG or MHD_USE_POLL,
- // MHD_USE_THREAD_PER_CONNECTION or MHD_USE_DEBUG,
- StrToInt(argv[1]),
- nil, nil, @ahc_echo, PAGE,
- MHD_OPTION_CONNECTION_TIMEOUT, cuint(120),
- MHD_OPTION_END);
- if d = nil then
- Halt(1);
- ReadLn;
- MHD_stop_daemon(d);
- end.
|