rejetto forum

Software => HFS ~ HTTP File Server => Programmers corner => Topic started by: itzbrendon on November 26, 2008, 10:45:07 PM

Title: SlaveParams Error
Post by: itzbrendon on November 26, 2008, 10:45:07 PM
Trying to compile HFS 2.2e with Turbo Delphi I get this error:

Code: [Select]
[Pascal Error] hfs.dpr(52): E2029 Declaration expected but identifier 'SlaveParams' found
It's the only error that I haven't been able to solve on my own, can anyone help me out here?
Title: Re: SlaveParams Error
Post by: Mars on November 27, 2008, 12:15:41 AM
Some time the file hfs.dpr is modified when you try to compile hfs.exe

Compare your hfs.dpr with that contained in the archives zip, in best restore this file in its version of origin,

you can delete 2 lines in this file

Quote
....
program hfs;

uses
{$IFDEF EX_DEBUG}
  ftmExceptionForm,
{$ENDIF}
  monoLib,
  Forms,
  windows,
....
Title: Re: SlaveParams Error
Post by: itzbrendon on November 27, 2008, 12:36:05 AM
This is what my hfs.dpr looks like:
Code: [Select]
{
Copyright (C) 2002-2008  Massimo Melina (www.rejetto.com)

This file is part of HFS ~ HTTP File Server.

    HFS is free software; you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    the Free Software Foundation; either version 2 of the License, or
    (at your option) any later version.

    HFS 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 General Public License for more details.

    You should have received a copy of the G  NU General Public License
    along with HSG; if not, write to the Free Software
    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
}
{$INCLUDE defs.inc }
program hfs;

uses
  monoLib,
  Forms,
  windows,
  types,
  main in 'main.pas' {mainFrm},
  editDlg in 'editDlg.pas' {editFrm},
  newuserpassDlg in 'newuserpassDlg.pas' {newuserpassFrm},
  optionsDlg in 'optionsDlg.pas' {optionsFrm},
  utillib in 'utillib.pas',
  longinputDlg in 'longinputDlg.pas' {longinputFrm},
  folderKindDlg in 'folderKindDlg.pas' {folderKindFrm},
  shellExtDlg in 'shellExtDlg.pas' {shellExtFrm},
  diffDlg in 'diffDlg.pas' {diffFrm},
  classesLib in 'classesLib.pas',
  ipsEverDlg in 'ipsEverDlg.pas' {ipsEverFrm},
  WSocket in '..\Delphi Libraries\OverbyteIcsV5\Delphi\Vc32\WSocket.pas',
  WSockBuf in '..\Delphi Libraries\OverbyteIcsV5\Delphi\Vc32\WSockBuf.pas',
  IcsLogger in '..\Delphi Libraries\OverbyteIcsV5\Delphi\Vc32\IcsLogger.pas',
  HttpProt in '..\Delphi Libraries\OverbyteIcsV5\Delphi\Vc32\HttpProt.pas',
  IcsNtlmMsgs in '..\Delphi Libraries\OverbyteIcsV5\Delphi\Vc32\IcsNtlmMsgs.pas',
  IcsDES in '..\Delphi Libraries\OverbyteIcsV5\Delphi\Vc32\IcsDES.pas',
  IcsMD4 in '..\Delphi Libraries\OverbyteIcsV5\Delphi\Vc32\IcsMD4.pas',
  MimeUtil in '..\Delphi Libraries\OverbyteIcsV5\Delphi\Vc32\MimeUtil.pas',
  HttpContCod in '..\Delphi Libraries\OverbyteIcsV5\Delphi\Vc32\HttpContCod.pas',
  IcsUrl in '..\Delphi Libraries\OverbyteIcsV5\Delphi\Vc32\IcsUrl.pas',
  IcsMD5 in '..\Delphi Libraries\OverbyteIcsV5\Delphi\Vc32\IcsMD5.pas',
  RegExpr in '..\Delphi Libraries\regexpr\Source\RegExpr.pas';

SlaveParams:=processSlaveParams;
{$IFDEF EX_DEBUG}initErrorHandler('HFS '+main.VERSION);{$ENDIF}
Application.Initialize();
Application.CreateForm(TmainFrm, mainFrm);
  Application.CreateForm(TnewuserpassFrm, newuserpassFrm);
  Application.CreateForm(ToptionsFrm, optionsFrm);
  Application.CreateForm(TshellExtFrm, shellExtFrm);
  Application.CreateForm(TdiffFrm, diffFrm);
  Application.CreateForm(TipsEverFrm, ipsEverFrm);
  mainfrm.finalInit();
Application.Run;
{$IFDEF EX_DEBUG}closeErrorHandler();{$ENDIF}
end.
Application.CreateForm(TmainFrm, mainFrm);
  Application.CreateForm(TnewuserpassFrm, newuserpassFrm);
  Application.CreateForm(ToptionsFrm, optionsFrm);
  Application.CreateForm(TshellExtFrm, shellExtFrm);
  Application.CreateForm(TdiffFrm, diffFrm);
  Application.CreateForm(TipsEverFrm, ipsEverFrm);
Title: Re: SlaveParams Error
Post by: itzbrendon on November 27, 2008, 12:41:28 AM
Nevermind, I figured out what you meant and fixed it, thanks =D
Title: Re: SlaveParams Error
Post by: Mars on November 27, 2008, 06:08:11 PM
at every new build , you have to do the same action on hfs.dpr ;)
Title: compile HFS 2.2e Error
Post by: zhbitdragon on December 10, 2008, 08:54:39 AM
Trying to compile HFS 2.2e with  Delphi 2009 I get some error:
It's the only error that I haven't been able to solve on my own, can anyone help me out here?
Is it with the compiler, see how the compiler, to be able to compile a source of hfs?thanks
Title: Re: SlaveParams Error
Post by: rejetto on January 19, 2009, 12:56:34 PM
you didn't post the error message