fileserver.dpr

来自「Delphi快速开发Web Server」· DPR 代码 · 共 29 行

program FileServer;

{$include rtcDeploy.inc}

uses
  {$ifdef rtcDeploy}
  FastMM4,
  FastMove,
  {$endif}
  Forms,
  Server_Form in 'Server_Form.pas' {RtcFileServer: TRtcDataServer},
  rtcFileProvider in '..\DataProviders\rtcFileProvider.pas' {File_Provider: TDataModule},
  HTTP_Module in 'HTTP_Module.pas' {HTTP_Server: TDataModule};

{$R *.res}

begin
  Application.Initialize;
  Application.Title := 'RTC WebServer Demo';
  Application.CreateForm(TRtcFileServer, RtcFileServer);
  Application.CreateForm(THTTP_Server, HTTP_Server);
  if ParamCount>0 then
    begin
    Http_Server.Server.ServerPort:=ParamStr(1);
    RtcFileServer.btnListen.Click;
    end;
  Application.Run;
end.