Will not load GUI!

[noname]

weird ... yes

working with version E
i ran a debug trace

it gets to procedure TmainFrm.FormCreate
it starts initVFS();
it does not get to updateUrlBox();

in initVFS();
it freezes when it starts addFile(f);

in addFile(f); it freezes when it starts FindClose(sr);
it does not get to "if not recursing then"

the weird thing is
if you put a showmessage intruction just before addFile(f);
like this:

include(f.flags, _root);
showmessage('initVFS ... addFile') ; // #####
addFile(f);
VFSmodified:=FALSE;
end; // initVFS

as soon as you click OK ... the gui starts
even if fromIP = customIP
without the showmessage, if fromIP = customIP the gui won't start

the gui starts properly showing the custom ip in the address box

it seems to get stuck in function Tmainfrm.addFile
it freezes the first time it hits the FindClose(sr); instruction
normally it will execute that instruction 4 or 5 times then the gui will start

why fromIP = customIP causes this i don't know
the gui starts ok if fromIP <> customIP

[noname]

also
search-better-ip in the ini seems to have no effect

in procedure findSimilarIP i changed

if fromIP = customIP then

to

if searchBetterIP and (fromIP = customIP) then

and now the gui will start whatever custom-ip is set to
when search-better-ip=no

it finds and displays my local address
this may not be what you intended though

also
i like the log font set to verdana 8
it might be too large on some machines

[rejetto]

i see a possible problem

in addFile() you should replace this

Code: [Select]

if f.isRealFolder() and not f._is(_autoupdate)
and (findFirst(f.fullname+'\*.*',faAnyfile, sr)=0) then
  repeat
  if sr.name[1]<>'.' then
    addfile(Tfile.create(f.fullname+'\'+sr.name), n, FALSE, TRUE );
  until findnext(sr)<>0;
FindClose(sr);

with this

Code: [Select]

if f.isRealFolder() and not f._is(_autoupdate) then
  if findFirst(f.fullname+'\*.*',faAnyfile, sr) = 0 then
    begin
      repeat
      if sr.name[1]<>'.' then
        addfile(Tfile.create(f.fullname+'\'+sr.name), n, FALSE, TRUE );
      until findnext(sr)<>0;
    FindClose(sr);
    end;
let me know if this works

[noname]

let me know if this works

yes, gui starts ok now

[rejetto]

ok, i will apply this fix in the next release

[Anonymous]

I have a similar problem,1.5c is stable working,but 1.5d..1.5e....cannot

work....OK!!!

[rejetto]

does this work?
http://www.uniroma1.com/rejetto/temp/hfs.exe

ver: 1.5f
+ Dual mode ban list: ban/allow
+ Log menu -> "Log file"
+ File Menu -> "Hide tree"
- hang on starting

[Anonymous]

hfs 1.5f have fix the problem!!!!seem so stable!!!!