FileSYstemTestSvr.dpr 1.2 KB

123456789101112131415161718192021222324252627282930313233
  1. { $HDR$}
  2. {**********************************************************************}
  3. { Unit archived using Team Coherence }
  4. { Team Coherence is Copyright 2002 by Quality Software Components }
  5. { }
  6. { For further information / comments, visit our WEB site at }
  7. { http://www.TeamCoherence.com }
  8. {**********************************************************************}
  9. {}
  10. { $Log: 17159: FileSYstemTestSvr.dpr
  11. {
  12. { Rev 1.0 3/14/2003 06:59:16 PM JPMugaas
  13. { FTPFileSystem Test program.
  14. }
  15. program FileSYstemTestSvr;
  16. uses
  17. Forms,
  18. FileSYstemTestMain in 'FileSYstemTestMain.pas' {frmServer},
  19. IdFTPBaseFileSystem in '..\..\source\Indy10\IdFTPBaseFileSystem.pas',
  20. IdFTPServer in '..\..\source\Indy10\IdFTPServer.pas',
  21. IdFTPFileSystem in '..\..\source\Indy10\IdFTPFileSystem.pas',
  22. IdFTPList in '..\..\source\Indy10\IdFTPList.pas',
  23. IdFTPListOutput in '..\..\source\Indy10\IdFTPListOutput.pas',
  24. IdSync in '..\..\source\Indy10\Core\IdSync.pas';
  25. {$R *.res}
  26. begin
  27. Application.Initialize;
  28. Application.CreateForm(TfrmServer, frmServer);
  29. Application.Run;
  30. end.