[SOLVED] Help for the start of HTTPServer

[egsuh]

Hi,
I can write CGI or FCGI web server, but not the simple(?) HTTPServer.  I cannot make it start.
Please see my following example.

Code: Pascal  [Select][+][-]

1. program HTTPServer;
2.  
3. {$mode objfpc}{$H+}
4.  
5. uses
6.   Sysutils, fpwebfile,  fphttpapp;
7.  
8. begin
9.   RegisterFileLocation('Demos','C:\inetpub\wwwroot\Demos');
10.   Application.Title:='httpproject1';
11.   Application.Port:=8040;
12.   Application.Initialize;
13.   Application.Run;
14. end.

No other units.

I run this, open a browser, and type "http://localhost:8040/demos/abc.html".
What I get is an error message (attached file).

This is my first time to try HTTPServer. Please advise me what I'm doing wrong.

Windows 10, and IIS is running. So, localhost/demos/abc.html works fine. 

[PascalDragon]

You're probably falling victim to this problem which results in the simple RegisterFileLocation not working Windows.

It should be possible to use the following “hack” instead (requires 3.2.0):

Code: Pascal  [Select][+][-]

1. begin
2.   TSimpleFileModule.BaseDir := 'C:\inetpub\wwwroot\Demos';
3.   HTTPRouter.RegisterRoute('/Demos/*', TSimpleFileModule.HandleSimpleFileRequest);
4.   // ...
5. end.

Or if your program is started from C:\ as well you can try this:

Code: Pascal  [Select][+][-]

1. RegisterFileLocation('/Demos/*','/inetpub\wwwroot\Demos');

This is a so called drive absolute path and uses the drive of the current working directory as root (this is done by Windows). The ‘/’ instead of ‘\’ is necessary because of the code in RegisterFileLocation, otherwise ‘\’ would be okay.

[egsuh]

simple RegisterFileLocation not working Windows.

Ah... problem with Windows file definition.  My current FPC version is 3.0.8. I'll upgrade it and try your first hack. Thank you very much.

[PascalDragon]

Ah... problem with Windows file definition.  My current FPC version is 3.0.8. I'll upgrade it and try your first hack. Thank you very much.

I take it you either mean FPC 3.0.4 or Lazarus 2.0.8?

[egsuh]

I take it you either mean FPC 3.0.4 or Lazarus 2.0.8?

You are right. Sorry for the confusion.