mORMot Open Source

itSDS

Member

From: Germany

Registered: 2014-04-24

Posts: 506

regression in ExeVersion ProgramName

Hi AB Today i found a regression in ExeVersion.ProgramName

Our EXE Name is: RestServer.Service.Exe as you can see it contains 2 DOT (.)

In one of the Former SynCommens the Following Code did the Right Thing and set ProgramName to : RestServer.Service

      ProgramName := StringToUTF8(ExtractFileName(ProgramFileName));
      i := length(ProgramName);
      while i>0 do
        if ProgramName[i]='.' then begin
          SetLength(ProgramName,i-1);
          break;
        end else
        dec(i);

But actual (don't know exactly when you changed it) ProgramName is set to: RestServer missing the .Service by the following code:

      ProgramName := Split(StringToUTF8(ExtractFileName(ProgramFileName)),'.');

Please can you fix this

Last edited by itSDS (2017-03-04 15:03:55)

---

Rad Studio 12.1 Santorini

ab

Administrator

From: France

Registered: 2010-06-21

Posts: 14,240

Website

Re: regression in ExeVersion ProgramName

Please check https://synopse.info/fossil/info/221c74bfd5

Sorry for the regression.

itSDS

Member

From: Germany

Registered: 2014-04-24

Posts: 506

Re: regression in ExeVersion ProgramName

TY i'll check it. Just to get a timestamp for the regression, it happened 28.2.2017 16:32)

---

Rad Studio 12.1 Santorini