libmicrohttpd demo

(* This file is part of libmicrohttpd Copyright (C) 2007, 2008 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 querystring_example.pp (Original: querystring_example.c) * @brief example for how to get the query string from libmicrohttpd * Call with an URI ending with something like "?q=QUERY" * @author Christian Grothoff / Silvio Clécio *) program querystring_example; {$mode objfpc}{$H+} uses sysutils, cmem, ctypes, cutils, libmicrohttpd; const PAGE: Pcchar = 'libmicrohttpd demoQuery string for "%s" was "%s"'; 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 fmt: Pcchar; val: Pcchar; me: Pcchar; response: PMHD_Response; ret: cint; begin fmt := cls; if 0 <> strcomp(method, 'GET') then Exit(MHD_NO); if @aptr <> ptr^ then begin ptr^ := @aptr; Exit(MHD_YES); end; ptr^ := nil; val := MHD_lookup_connection_value(connection, MHD_GET_ARGUMENT_KIND, 'q'); me := Malloc(snprintf(nil, 0, fmt, Pcchar('q'), val) + 1); if me = nil then Exit(MHD_NO); sprintf(me, fmt, Pcchar('q'), val); response := MHD_create_response_from_buffer(strlen(me), Pointer(me), MHD_RESPMEM_MUST_FREE); if response = nil then begin Free(me); Exit(MHD_NO); end; 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_THREAD_PER_CONNECTION or MHD_USE_DEBUG, StrToInt(argv[1]), nil, nil, @ahc_echo, PAGE, MHD_OPTION_END); if d = nil then Halt(1); ReadLn; MHD_stop_daemon(d); end.