Author Topic: SlaveParams Error  (Read 2184 times)

0 Members and 1 Guest are viewing this topic.

Offline itzbrendon

  • Occasional poster
  • *
  • Posts: 3
    • View Profile
SlaveParams Error
« on: November 26, 2008, 04: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?

Offline Mars

  • Operator
  • Insane poster
  • *****
  • Posts: 1587
    • View Profile
Re: SlaveParams Error
« Reply #1 on: November 26, 2008, 06:15:41 PM »
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,
....

Offline itzbrendon

  • Occasional poster
  • *
  • Posts: 3
    • View Profile
Re: SlaveParams Error
« Reply #2 on: November 26, 2008, 06:36:05 PM »
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);

Offline itzbrendon

  • Occasional poster
  • *
  • Posts: 3
    • View Profile
Re: SlaveParams Error
« Reply #3 on: November 26, 2008, 06:41:28 PM »
Nevermind, I figured out what you meant and fixed it, thanks =D

Offline Mars

  • Operator
  • Insane poster
  • *****
  • Posts: 1587
    • View Profile
Re: SlaveParams Error
« Reply #4 on: November 27, 2008, 12:08:11 PM »
at every new build , you have to do the same action on hfs.dpr ;)

Offline zhbitdragon

  • Occasional poster
  • *
  • Posts: 2
    • View Profile
compile HFS 2.2e Error
« Reply #5 on: December 10, 2008, 02: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

Offline rejetto

  • Administrator
  • Insane programmer
  • *
  • Posts: 12501
  • Country: it
    • View Profile
Re: SlaveParams Error
« Reply #6 on: January 19, 2009, 06:56:34 AM »
you didn't post the error message