diff options
| author | michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2015-10-17 08:13:58 +0000 |
|---|---|---|
| committer | michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2015-10-17 08:13:58 +0000 |
| commit | 749005d0e07af70a86963fb167df1aae44ae33b8 (patch) | |
| tree | cb80fbfbb0d701b9ebe63884b06e4c04dd8c0600 /packages/libmicrohttpd/examples/fileserver_example.pp | |
| parent | fd48fbb220429d54fce7b147099444b4def5ca20 (diff) | |
| download | fpc-749005d0e07af70a86963fb167df1aae44ae33b8.tar.gz | |
* Added libmicrohttpd, from Silvio Clecio.
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@32067 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'packages/libmicrohttpd/examples/fileserver_example.pp')
| -rw-r--r-- | packages/libmicrohttpd/examples/fileserver_example.pp | 115 |
1 files changed, 115 insertions, 0 deletions
diff --git a/packages/libmicrohttpd/examples/fileserver_example.pp b/packages/libmicrohttpd/examples/fileserver_example.pp new file mode 100644 index 0000000000..b4a08f8cf1 --- /dev/null +++ b/packages/libmicrohttpd/examples/fileserver_example.pp @@ -0,0 +1,115 @@ +(* + 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 fileserver_example.pp (Original: fileserver_example.c) + * @brief minimal example for how to use libmicrohttpd to serve files + * @author Christian Grothoff / Silvio Clécio + *) + +program fileserver_example; + +{$mode objfpc}{$H+} + +uses + sysutils, BaseUnix, cutils, libmicrohttpd; + +const + PAGE: Pcchar = '<html><head><title>File not found</title></head><body>File not found</body></html>'; + + function file_reader(cls: Pointer; pos: cuint64; buf: Pcchar; + max: size_t): ssize_t; cdecl; + var + &file: FILEptr; + begin + &file := cls; + fseek(&file, pos, SEEK_SET); + Result := fread(buf, 1, max, &file); + end; + + procedure free_callback(cls: Pointer); cdecl; + var + &file: FILEptr; + begin + &file := cls; + fclose(&file); + end; + + 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 + response: PMHD_Response; + ret: cint; + &file: FILEptr; + buf: stat; + begin + if (0 <> strcomp(method, MHD_HTTP_METHOD_GET)) and + (0 <> strcomp(method, MHD_HTTP_METHOD_HEAD)) then + Exit(MHD_NO); (* unexpected method *) + if @aptr <> ptr^ then + begin + (* do never respond on first call *) + ptr^ := @aptr; + Exit(MHD_YES); + end; + ptr^ := nil; (* reset when done *) + if 0 = FpStat(@url[1], buf) then + &file := fopen(@url[1], fopenread) + else + &file := nil; + if nil = &file then + begin + response := MHD_create_response_from_buffer(strlen(PAGE), Pointer(PAGE), + MHD_RESPMEM_PERSISTENT); + ret := MHD_queue_response(connection, MHD_HTTP_NOT_FOUND, response); + MHD_destroy_response(response); + end + else + begin + response := MHD_create_response_from_callback(buf.st_size, 32 * 1024, (* 32k page size *) + @file_reader, &file, @free_callback); + if nil = response then + begin + fclose(&file); + Exit(MHD_NO); + end; + ret := MHD_queue_response(connection, MHD_HTTP_OK, response); + MHD_destroy_response(response); + end; + 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. + |