Testing build #230

[rejetto]

notice for the macro programmers: both "set ini" and the "notes key" opens a wide new range of applications.

download @ www.dovedove.it/hfs/hfs230.exe

what's new
! in April 2009 i will remove macros {.current downloads by user.} and {.current downloads for file.}  Please update your scripts to use just {.current downloads.}
+ new template macro: current downloads, set ini
+ {.set account|name|notes=xxx.}
+ {.set account|name|notes key=xxx=yyy.}
+ new events: [upload name] [archive name] [link]
+ new tabbed format for the regular log [link]
* .bak files are now used also in case the original file is missing [link]
- "temporarily reset options" was not affecting event scripts
- {.time|dddd.} was not supporting utf-8 [link]
- %folder% was not working in event scripts

[Kremlin]

good work. i believe set ini will allow a lot more commands to my admin panel 

[maverick]

http://www.dovedove.it/hfs/hfs230.exe link is dead.  Maybe temporary.

[rejetto]

working for me right now

[Kremlin]

Link does work, but i get a error message if i update directly on hfs 229

[bacter]

update worked without problem for me on both XP and Vista.

Thanks for your work, Rejetto!

[SamePaul]

All settings from 229 were dropped after update: Easy mode, save to Registry, no accounts, no VFS etc. Manual restore of INI from backup didn't help.
VFS has to be loaded manually, but all account restrictions were lost.
After recreating account I noticed difference in INI's: "account=" and "login" are separated by | in new INI. Adding | before "login" fixed problem with accounts, but all other settings were reconfigured manually

[rejetto]

i'm sorry for your problem samepaul

Manual restore of INI from backup didn't help.

it should. what's gone wrong with it?

VFS has to be loaded manually, but all account restrictions were lost.

mmm, to not lose restrictions you should load the VFS after you recreated the accounts.
maybe you tried to restore the INI after you loaded the VFS ?

[Mars]

the pb appear from build 230 with hfs.events and login

To use in two different tests

one with:

[disconnected]
rejetto

with the first there is a crash

Violation d'accès à l'adresse 00537E62 dans le module 'hfs.exe'. Lecture de l'adresse 00000020
HFS 2.3 beta (230)
----------------------------------------------------------------
Stack list, generated 18/03/2009 23:25:18
[00537E62]{hfs.exe     } main.cbMacros (Line 3779, "main.pas" + 121) + $12
[00546A63]{hfs.exe     } main.TmainFrm.setCfg (Line 6764, "main.pas" + 128) + $11
[00546B34]{hfs.exe     } main.TmainFrm.setCfg (Line 6770, "main.pas" + 134) + $A
[0054B0CE]{hfs.exe     } main.everySec (Line 7608, "main.pas" + 65) + $9
[004AB7A7]{hfs.exe     } WSocket.TCustomLineWSocket.EditLine (Line 6953, "wsocket.pas" + 11) + $7
[004AB7CE]{hfs.exe     } WSocket.TCustomLineWSocket.EditLine (Line 6959, "wsocket.pas" + 17) + $14
[004AB445]{hfs.exe     } WSocket.TCustomLineWSocket.Create (Line 6785, "wsocket.pas" + 0) + $9
[004AB717]{hfs.exe     } WSocket.TCustomLineWSocket.DoRecv (Line 6922, "wsocket.pas" + 37) + $0
[00458D1F]{hfs.exe     } Menus.TMenuActionLink.IsCaptionLinked (Line 680, "Menus.pas" + 0) + $3
[00458B8B]{hfs.exe     } Menus.Iterate (Line 626, "Menus.pas" + 3) + $8
[0042B458]{hfs.exe     } IniFiles.TStringHash.Add (Line 390, "IniFiles.pas" + 1) + $1D
[0046A484]{hfs.exe     } Forms.TraverseClients (Line 5527, "Forms.pas" + 2) + $13
[00492E26]{hfs.exe     } JclSysInfo.CallCPUID (Line 4099, "JclSysInfo.pas" + 6) + $2
[00492E6B]{hfs.exe     } JclSysInfo.ProcessStandard (Line 4123, "JclSysInfo.pas" + 3) + $E
[00493106]{hfs.exe     } JclSysInfo.ProcessIntel (Line 4193, "JclSysInfo.pas" + 32) + $8
[0056C6CE]{hfs.exe     } hfs.hfs (Line 96, "" + 23) + $AE51

the second later with

[connected]
rejetto

with the second, no page is done when login

Impossible d'afficher la page
La page que vous recherchez est actuellement indisponible. Le site Web rencontre peut-être des difficultés techniques, ou vous devez modifier les paramètres de votre navigateur.

the build 229 has no problem


Found the bug:

the call of the two function

function runEventScript(event:string):string;
begin result:=runScript(eventScripts[event]) end;

function runEventScript(event:string; table:array of string):string; overload;

with some events the second is called at the place of the first it is necesary to change the name of the first function and correct main.pas

[r][m]

+ new tabbed format for the regular log

Testing looks very good.
Many Thanks

[SamePaul]

i'm sorry for your problem samepaul

Manual restore of INI from backup didn't help.

it should. what's gone wrong with it?

VFS has to be loaded manually, but all account restrictions were lost.

mmm, to not lose restrictions you should load the VFS after you recreated the accounts.
maybe you tried to restore the INI after you loaded the VFS ?

It's side-effect of beta-testing, so it's ok
Seems I should note that strange problem was observed under Win7, because now I try under XP and can't reproduce.

[Kremlin]

double beta-testing side-effect then 

[Mars]

about my last post above, the solution is found:

  function runEventScript(event:string; table:array of string):string; overload;
    var
    md: TmacroData;
    sa: TStringDynArray;
  begin
  result:=trim(eventScripts[event]);
  if result = '' then exit;
  sa:=NIL;
  addArray(sa, table);
  fillchar(md, sizeof(md), 0);
  md.cd:=data;
  try
    if assigned(data.f) then// a file has been uploaded
      // this exposes file properties to the script. it must be encapsulated in a Tfile. we don't need to cache the object because we need it only once.
      md.f:=Tfile.createTemp(getFilename(data.f^))
    else if assigned(f) then
      md.f:=f
    else
      md.f:=data.lastFile;
    if assigned(md.f) and not assigned(data.f) then md.folder:=md.f.getParent(); //** this may be not enough for the temp file here above
    tryApplyMacrosAndSymbols(result, md, sa);
    finally
      if assigned(data.f) then freeAndNIL(md.f);
    end;
  end; // runEventScript

when md.f is NIL then call the function .getParent() provokes an error of execution and does not allow the call of tryApplyMacrosAndSymbols(result, md, sa).

The simple addition of if assigned(md.f) and not assigned(data.f) then resolves the problem in a satisfactory way

missing %folder% into [connected] event when user is logged  ??

[SilentPliz]

The section [upload name], in a file hfs.events does not work.

Uploads are not really made, only the *.md5 and *.comments.txt are created, not the choosed file.

It even happens that HFS crash at the opening of the browser (as described by mars), if an "event file" is used.

[Ranger]

I get this when anyone tries to access my HFS running with Stunnel. This happened after updating to 230. My other plain HFS running 230 is not having any issues. Any idea whats going on here?

Code:

Access violation at address 004AE126 in module 'hfs.exe'. Read of address 00000093
HFS 2.3 beta (230)
----------------------------------------------------------------
Stack list, generated 3/23/2009 1:08:06 PM
[004AE126]{hfs.exe     } HSlib.ThttpConn.calculateSpeed (Line 913, "hslib.pas" + 2) + $18
[00479646]{hfs.exe     } Controls.TWinControl.WMNCHitTest (Line 8180, "Controls.pas" + 5) + $8
[0041E486]{hfs.exe     } Classes.TThreadList.UnlockList (Line 3359, "classes.pas" + 1) + $7
[0043F7F8]{hfs.exe     } Graphics.FreeMemoryContexts (Line 5032, "Graphics.pas" + 12) + $5
[00476B99]{hfs.exe     } Controls.TWinControl.MainWndProc (Line 7024, "Controls.pas" + 6) + $0
[004ADCB1]{hfs.exe     } HSlib.ThttpSrv.calculateSpeed (Line 820, "hslib.pas" + 6) + $9
[004AD768]{hfs.exe     } HSlib.ThttpSrv.hertzEvent (Line 671, "hslib.pas" + 3) + $3
[004ADAFE]{hfs.exe     } HSlib.ThttpSrv.timerEvent (Line 758, "hslib.pas" + 1) + $3
[0045AD0B]{hfs.exe     } ExtCtrls.TTimer.Timer (Line 2250, "ExtCtrls.pas" + 1) + $13
[0045AB77]{hfs.exe     } ExtCtrls.TTimer.WndProc (Line 2208, "ExtCtrls.pas" + 4) + $7
[0042AC08]{hfs.exe     } Classes.StdWndProc (Line 11572, "classes.pas" + 8) + $0
[0046C470]{hfs.exe     } Controls.FindControl (Line 2103, "Controls.pas" + 6) + $C
[00494E12]{hfs.exe     } Forms.TApplication.ProcessMessage (Line 7670, "Forms.pas" + 23) + $4
[00494E57]{hfs.exe     } Forms.TApplication.HandleMessage (Line 7689, "Forms.pas" + 1) + $6
[0049075A]{hfs.exe     } Forms.TCustomForm.ShowModal (Line 5419, "Forms.pas" + 29) + $5
[004A055C]{hfs.exe     } ftmExceptionForm.TerrorHandler.ShowForm (Line 322, "ftmExceptionForm.pas" + 16) + $5
[004A01B6]{hfs.exe     } ftmExceptionForm.TerrorHandler.AppException (Line 265, "ftmExceptionForm.pas" + 10) + $5
[00495247]{hfs.exe     } Forms.TApplication.HandleException (Line 7806, "Forms.pas" + 6) + $13
[0045AB95]{hfs.exe     } ExtCtrls.TTimer.WndProc (Line 2210, "ExtCtrls.pas" + 6) + $A
[00418803]{hfs.exe     } Variants.VarSameValue (Line 4191, "variants.pas" + 2) + $6
[004ADCB1]{hfs.exe     } HSlib.ThttpSrv.calculateSpeed (Line 820, "hslib.pas" + 6) + $9
[004AD768]{hfs.exe     } HSlib.ThttpSrv.hertzEvent (Line 671, "hslib.pas" + 3) + $3
[004ADAFE]{hfs.exe     } HSlib.ThttpSrv.timerEvent (Line 758, "hslib.pas" + 1) + $3
[0045AD0B]{hfs.exe     } ExtCtrls.TTimer.Timer (Line 2250, "ExtCtrls.pas" + 1) + $13
[0045AB77]{hfs.exe     } ExtCtrls.TTimer.WndProc (Line 2208, "ExtCtrls.pas" + 4) + $7
[0042AC08]{hfs.exe     } Classes.StdWndProc (Line 11572, "classes.pas" + 8) + $0
[0046C470]{hfs.exe     } Controls.FindControl (Line 2103, "Controls.pas" + 6) + $C
[00494E12]{hfs.exe     } Forms.TApplication.ProcessMessage (Line 7670, "Forms.pas" + 23) + $4
[00494E57]{hfs.exe     } Forms.TApplication.HandleMessage (Line 7689, "Forms.pas" + 1) + $6
[0049075A]{hfs.exe     } Forms.TCustomForm.ShowModal (Line 5419, "Forms.pas" + 29) + $5
[004A055C]{hfs.exe     } ftmExceptionForm.TerrorHandler.ShowForm (Line 322, "ftmExceptionForm.pas" + 16) + $5
[004A01B6]{hfs.exe     } ftmExceptionForm.TerrorHandler.AppException (Line 265, "ftmExceptionForm.pas" + 10) + $5
[00495247]{hfs.exe     } Forms.TApplication.HandleException (Line 7806, "Forms.pas" + 6) + $13
[0045AB95]{hfs.exe     } ExtCtrls.TTimer.WndProc (Line 2210, "ExtCtrls.pas" + 6) + $A
[0047760C]{hfs.exe     } Controls.TWinControl.DefaultHandler (Line 7273, "Controls.pas" + 23) + $28
[0055A01F]{hfs.exe     } main.everySec (Line 8469, "main.pas" + 49) + $21
[0055A5AE]{hfs.exe     } main.everyTenth (Line 8569, "main.pas" + 34) + $9
[0055A5DA]{hfs.exe     } main.everyTenth (Line 8572, "main.pas" + 37) + $10
[0055A74C]{hfs.exe     } main.TmainFrm.timerEvent (Line 8599, "main.pas" + 23) + $12
[0045AD0B]{hfs.exe     } ExtCtrls.TTimer.Timer (Line 2250, "ExtCtrls.pas" + 1) + $13
[0045AB77]{hfs.exe     } ExtCtrls.TTimer.WndProc (Line 2208, "ExtCtrls.pas" + 4) + $7
[0042AC08]{hfs.exe     } Classes.StdWndProc (Line 11572, "classes.pas" + 8) + $0
[0046C470]{hfs.exe     } Controls.FindControl (Line 2103, "Controls.pas" + 6) + $C
[00494E12]{hfs.exe     } Forms.TApplication.ProcessMessage (Line 7670, "Forms.pas" + 23) + $4
[00494E57]{hfs.exe     } Forms.TApplication.HandleMessage (Line 7689, "Forms.pas" + 1) + $6
[0049075A]{hfs.exe     } Forms.TCustomForm.ShowModal (Line 5419, "Forms.pas" + 29) + $5
[004A055C]{hfs.exe     } ftmExceptionForm.TerrorHandler.ShowForm (Line 322, "ftmExceptionForm.pas" + 16) + $5
[004A01B6]{hfs.exe     } ftmExceptionForm.TerrorHandler.AppException (Line 265, "ftmExceptionForm.pas" + 10) + $5
[00495247]{hfs.exe     } Forms.TApplication.HandleException (Line 7806, "Forms.pas" + 6) + $13
[0045AB95]{hfs.exe     } ExtCtrls.TTimer.WndProc (Line 2210, "ExtCtrls.pas" + 6) + $A
[004ADCB1]{hfs.exe     } HSlib.ThttpSrv.calculateSpeed (Line 820, "hslib.pas" + 6) + $9
[004AD768]{hfs.exe     } HSlib.ThttpSrv.hertzEvent (Line 671, "hslib.pas" + 3) + $3
[004ADAFE]{hfs.exe     } HSlib.ThttpSrv.timerEvent (Line 758, "hslib.pas" + 1) + $3
[0045AD0B]{hfs.exe     } ExtCtrls.TTimer.Timer (Line 2250, "ExtCtrls.pas" + 1) + $13
[0045AB77]{hfs.exe     } ExtCtrls.TTimer.WndProc (Line 2208, "ExtCtrls.pas" + 4) + $7
[0042AC08]{hfs.exe     } Classes.StdWndProc (Line 11572, "classes.pas" + 8) + $0
[0046C470]{hfs.exe     } Controls.FindControl (Line 2103, "Controls.pas" + 6) + $C
[00494E12]{hfs.exe     } Forms.TApplication.ProcessMessage (Line 7670, "Forms.pas" + 23) + $4
[00494E57]{hfs.exe     } Forms.TApplication.HandleMessage (Line 7689, "Forms.pas" + 1) + $6
[0049075A]{hfs.exe     } Forms.TCustomForm.ShowModal (Line 5419, "Forms.pas" + 29) + $5
[004A055C]{hfs.exe     } ftmExceptionForm.TerrorHandler.ShowForm (Line 322, "ftmExceptionForm.pas" + 16) + $5
[004A01B6]{hfs.exe     } ftmExceptionForm.TerrorHandler.AppException (Line 265, "ftmExceptionForm.pas" + 10) + $5
[00495247]{hfs.exe     } Forms.TApplication.HandleException (Line 7806, "Forms.pas" + 6) + $13
[0045AB95]{hfs.exe     } ExtCtrls.TTimer.WndProc (Line 2210, "ExtCtrls.pas" + 6) + $A
[004ADCB1]{hfs.exe     } HSlib.ThttpSrv.calculateSpeed (Line 820, "hslib.pas" + 6) + $9
[004AD768]{hfs.exe     } HSlib.ThttpSrv.hertzEvent (Line 671, "hslib.pas" + 3) + $3
[004ADAFE]{hfs.exe     } HSlib.ThttpSrv.timerEvent (Line 758, "hslib.pas" + 1) + $3
[0045AD0B]{hfs.exe     } ExtCtrls.TTimer.Timer (Line 2250, "ExtCtrls.pas" + 1) + $13
[0045AB77]{hfs.exe     } ExtCtrls.TTimer.WndProc (Line 2208, "ExtCtrls.pas" + 4) + $7
[0042AC08]{hfs.exe     } Classes.StdWndProc (Line 11572, "classes.pas" + 8) + $0
[0046C470]{hfs.exe     } Controls.FindControl (Line 2103, "Controls.pas" + 6) + $C
[00494E12]{hfs.exe     } Forms.TApplication.ProcessMessage (Line 7670, "Forms.pas" + 23) + $4
[00494E57]{hfs.exe     } Forms.TApplication.HandleMessage (Line 7689, "Forms.pas" + 1) + $6
[0049075A]{hfs.exe     } Forms.TCustomForm.ShowModal (Line 5419, "Forms.pas" + 29) + $5
[004A055C]{hfs.exe     } ftmExceptionForm.TerrorHandler.ShowForm (Line 322, "ftmExceptionForm.pas" + 16) + $5
[004A01B6]{hfs.exe     } ftmExceptionForm.TerrorHandler.AppException (Line 265, "ftmExceptionForm.pas" + 10) + $5
[00495247]{hfs.exe     } Forms.TApplication.HandleException (Line 7806, "Forms.pas" + 6) + $13
[0045AB95]{hfs.exe     } ExtCtrls.TTimer.WndProc (Line 2210, "ExtCtrls.pas" + 6) + $A
[00418803]{hfs.exe     } Variants.VarSameValue (Line 4191, "variants.pas" + 2) + $6
[004ADCB1]{hfs.exe     } HSlib.ThttpSrv.calculateSpeed (Line 820, "hslib.pas" + 6) + $9
[004AD768]{hfs.exe     } HSlib.ThttpSrv.hertzEvent (Line 671, "hslib.pas" + 3) + $3
[004ADAFE]{hfs.exe     } HSlib.ThttpSrv.timerEvent (Line 758, "hslib.pas" + 1) + $3
[0045AD0B]{hfs.exe     } ExtCtrls.TTimer.Timer (Line 2250, "ExtCtrls.pas" + 1) + $13
[0045AB77]{hfs.exe     } ExtCtrls.TTimer.WndProc (Line 2208, "ExtCtrls.pas" + 4) + $7
[0042AC08]{hfs.exe     } Classes.StdWndProc (Line 11572, "classes.pas" + 8) + $0
[0046C470]{hfs.exe     } Controls.FindControl (Line 2103, "Controls.pas" + 6) + $C
[00494E12]{hfs.exe     } Forms.TApplication.ProcessMessage (Line 7670, "Forms.pas" + 23) + $4
[00494E57]{hfs.exe     } Forms.TApplication.HandleMessage (Line 7689, "Forms.pas" + 1) + $6
[0049075A]{hfs.exe     } Forms.TCustomForm.ShowModal (Line 5419, "Forms.pas" + 29) + $5
[004A055C]{hfs.exe     } ftmExceptionForm.TerrorHandler.ShowForm (Line 322, "ftmExceptionForm.pas" + 16) + $5
[004A01B6]{hfs.exe     } ftmExceptionForm.TerrorHandler.AppException (Line 265, "ftmExceptionForm.pas" + 10) + $5
[00495247]{hfs.exe     } Forms.TApplication.HandleException (Line 7806, "Forms.pas" + 6) + $13
[0045AB95]{hfs.exe     } ExtCtrls.TTimer.WndProc (Line 2210, "ExtCtrls.pas" + 6) + $A
[0047760C]{hfs.exe     } Controls.TWinControl.DefaultHandler (Line 7273, "Controls.pas" + 23) + $28
[0055A01F]{hfs.exe     } main.everySec (Line 8469, "main.pas" + 49) + $21
[0055A5AE]{hfs.exe     } main.everyTenth (Line 8569, "main.pas" + 34) + $9
[0055A5DA]{hfs.exe     } main.everyTenth (Line 8572, "main.pas" + 37) + $10
[0055A74C]{hfs.exe     } main.TmainFrm.timerEvent (Line 8599, "main.pas" + 23) + $12
[0045AD0B]{hfs.exe     } ExtCtrls.TTimer.Timer (Line 2250, "ExtCtrls.pas" + 1) + $13
[0045AB77]{hfs.exe     } ExtCtrls.TTimer.WndProc (Line 2208, "ExtCtrls.pas" + 4) + $7
[0042AC08]{hfs.exe     } Classes.StdWndProc (Line 11572, "classes.pas" + 8) + $0
[0046C470]{hfs.exe     } Controls.FindControl (Line 2103, "Controls.pas" + 6) + $C
[00494E12]{hfs.exe     } Forms.TApplication.ProcessMessage (Line 7670, "Forms.pas" + 23) + $4
[00494E57]{hfs.exe     } Forms.TApplication.HandleMessage (Line 7689, "Forms.pas" + 1) + $6
[0049075A]{hfs.exe     } Forms.TCustomForm.ShowModal (Line 5419, "Forms.pas" + 29) + $5
[004A055C]{hfs.exe     } ftmExceptionForm.TerrorHandler.ShowForm (Line 322, "ftmExceptionForm.pas" + 16) + $5
[004A01B6]{hfs.exe     } ftmExceptionForm.TerrorHandler.AppException (Line 265, "ftmExceptionForm.pas" + 10) + $5
[00495247]{hfs.exe     } Forms.TApplication.HandleException (Line 7806, "Forms.pas" + 6) + $13
[0045AB95]{hfs.exe     } ExtCtrls.TTimer.WndProc (Line 2210, "ExtCtrls.pas" + 6) + $A
[004ADCB1]{hfs.exe     } HSlib.ThttpSrv.calculateSpeed (Line 820, "hslib.pas" + 6) + $9
[004AD768]{hfs.exe     } HSlib.ThttpSrv.hertzEvent (Line 671, "hslib.pas" + 3) + $3
[004ADAFE]{hfs.exe     } HSlib.ThttpSrv.timerEvent (Line 758, "hslib.pas" + 1) + $3
[0045AD0B]{hfs.exe     } ExtCtrls.TTimer.Timer (Line 2250, "ExtCtrls.pas" + 1) + $13
[0045AB77]{hfs.exe     } ExtCtrls.TTimer.WndProc (Line 2208, "ExtCtrls.pas" + 4) + $7
[0042AC08]{hfs.exe     } Classes.StdWndProc (Line 11572, "classes.pas" + 8) + $0
[0046C470]{hfs.exe     } Controls.FindControl (Line 2103, "Controls.pas" + 6) + $C
[00494E12]{hfs.exe     } Forms.TApplication.ProcessMessage (Line 7670, "Forms.pas" + 23) + $4
[00494E57]{hfs.exe     } Forms.TApplication.HandleMessage (Line 7689, "Forms.pas" + 1) + $6
[0049075A]{hfs.exe     } Forms.TCustomForm.ShowModal (Line 5419, "Forms.pas" + 29) + $5
[004A055C]{hfs.exe     } ftmExceptionForm.TerrorHandler.ShowForm (Line 322, "ftmExceptionForm.pas" + 16) + $5
[004A01B6]{hfs.exe     } ftmExceptionForm.TerrorHandler.AppException (Line 265, "ftmExceptionForm.pas" + 10) + $5
[00495247]{hfs.exe     } Forms.TApplication.HandleException (Line 7806, "Forms.pas" + 6) + $13
[0045AB95]{hfs.exe     } ExtCtrls.TTimer.WndProc (Line 2210, "ExtCtrls.pas" + 6) + $A
[004ADCB1]{hfs.exe     } HSlib.ThttpSrv.calculateSpeed (Line 820, "hslib.pas" + 6) + $9
[004AD768]{hfs.exe     } HSlib.ThttpSrv.hertzEvent (Line 671, "hslib.pas" + 3) + $3
[004ADAFE]{hfs.exe     } HSlib.ThttpSrv.timerEvent (Line 758, "hslib.pas" + 1) + $3
[0045AD0B]{hfs.exe     } ExtCtrls.TTimer.Timer (Line 2250, "ExtCtrls.pas" + 1) + $13
[0045AB77]{hfs.exe     } ExtCtrls.TTimer.WndProc (Line 2208, "ExtCtrls.pas" + 4) + $7
[0042AC08]{hfs.exe     } Classes.StdWndProc (Line 11572, "classes.pas" + 8) + $0
[0046C470]{hfs.exe     } Controls.FindControl (Line 2103, "Controls.pas" + 6) + $C
[00494E12]{hfs.exe     } Forms.TApplication.ProcessMessage (Line 7670, "Forms.pas" + 23) + $4
[00494E57]{hfs.exe     } Forms.TApplication.HandleMessage (Line 7689, "Forms.pas" + 1) + $6
[0049075A]{hfs.exe     } Forms.TCustomForm.ShowModal (Line 5419, "Forms.pas" + 29) + $5
[004A055C]{hfs.exe     } ftmExceptionForm.TerrorHandler.ShowForm (Line 322, "ftmExceptionForm.pas" + 16) + $5
[004A01B6]{hfs.exe     } ftmExceptionForm.TerrorHandler.AppException (Line 265, "ftmExceptionForm.pas" + 10) + $5
[00495247]{hfs.exe     } Forms.TApplication.HandleException (Line 7806, "Forms.pas" + 6) + $13
[0045AB95]{hfs.exe     } ExtCtrls.TTimer.WndProc (Line 2210, "ExtCtrls.pas" + 6) + $A
[00418803]{hfs.exe     } Variants.VarSameValue (Line 4191, "variants.pas" + 2) + $6
[004ADCB1]{hfs.exe     } HSlib.ThttpSrv.calculateSpeed (Line 820, "hslib.pas" + 6) + $9

....message was shortened due to length (its much much longer).