simple standalone HTTP File server.
lazarus / 38-Networking and Web Programming

----------------------------------------------------------------------
rasberryrabbit · 2014-05-28 03:15

Simple standalone Http file server.
It has no problem with Huge file upload. 

It need LNet Visual for compile.

example application
http://www.mediafire.com/download/75g4h8358tx885l/webfilelnet32.zip

(updated) FileExists is not properly work on Linux, change processing
order and works on linux well.

(updated) Refine folder creation function.

(updated) Refine message logging component, work well with gtk2 and
windows.

example html.
form action must have 'upload.action.htm'.
Code: [Select]<html>
<head>
<meta http-equiv="Content-Type" content="text/html;
charset=utf-8"></head>
<body>
<div>
<form name="folder" method="get" action="/%ED%95%98%ED%95%98/%EB%AC%B4
%EC%96%B4%EB%AC%B4%EC%96%B4/upload.action.htm"
enctype="multipart/form-data">
<input type="text" name="folder" value="">
<input type="submit" value="create">
</div>
<p><hr /></p>
<div>
<form name="file" method="post" action="/%ED%95%98%ED%95%98/%EB%AC%B4%
EC%96%B4%EB%AC%B4%EC%96%B4/upload.action.htm" enctype="multipart/form-
data">
<input type="file" name="fileupload">
<input type="file" name="fileupload">
<input type="file" name="fileupload">
<input type="submit" value="send">
<input name="MAX_FILE_SIZE" value="1073741824" type="hidden" /></form>
</div><p><hr /></p>
</body></html>

----------------------------------------------------------------------
BigChimp · 2014-05-29 11:20

Interesting. How does it compare to the lazwebextra package that is
supplied with Lazarus (but not installed by default)?

----------------------------------------------------------------------
Leledumbo · 2014-05-29 12:25

Quote from: BigChimp on May 29, 2014, 01:20:20 pmInteresting. How does
it compare to the lazwebextra package that is supplied with Lazarus
(but not installed by default)?
I think it's better to say: how does it compare to fcl-web's
TFPHTTPServer?

----------------------------------------------------------------------
BigChimp · 2014-05-29 12:38

AFAIU, they're the same thing, aren't they

----------------------------------------------------------------------
Leledumbo · 2014-05-29 13:19

Quote from: BigChimp on May 29, 2014, 02:38:16 pmAFAIU, they're the
same thing, aren't they
Well not really, TFPHTTPServer can be accessed without installing
lazwebextra. The package only installs some wizards + html menu (which
I find somewhat useless, my hand codes faster than that).

----------------------------------------------------------------------
rasberryrabbit · 2014-05-30 03:25

Quote from: Leledumbo on May 29, 2014, 02:25:19 pmQuote from: BigChimp
on May 29, 2014, 01:20:20 pmInteresting. How does it compare to the
lazwebextra package that is supplied with Lazarus (but not installed
by default)?
I think it's better to say: how does it compare to fcl-web's
TFPHTTPServer?

I made same http server with 'TFPHTTPServer', but there is a problem
on big files.
'TFPHTTPServer' store uploaded http stream data in memory and then
stored temp files.
It's big problem for me and I resolve that problem.
'TFPHTTPServer' http socket class overriding cannnot work for me.

My solution is store file directly dest location and not store whole
file stream data in memory.
You can upload unlimited size of files with my unit.

----------------------------------------------------------------------
BigChimp · 2014-05-30 09:32

Interesting, thanks for the explanation!