Вземете име на единица от InitTable - хакнете System.pas

UnitNames съдържа множество имена на единици. Те са Pascal къси низове, свързани. Въпреки това, както ще видим, те не са имената, от които се нуждаете.

Разбийте програмата за отстраняване на грешки в InitUnits и оценете:

PAnsiChar(InitContext.InitTable.TypeInfo.UnitNames)

В моя прост тестов проект, конзолно приложение, което използва само SysUtils, виждате следното:

#$F'System.SysUtils'#6'System'#$18'System.Internal.ExcUtils'#$F'System.SysConst'
#7'SysInit'#$10'System.Character'#$E'Winapi.Windows'#$E'System.UITypes'
#$C'System.Types'#$10'System.RTLConsts'#$C'Winapi.PsAPI'#$F'Winapi.SHFolder'
#$F'Winapi.ImageHlp‹À'

Първият символ е дължината на низа. Те са свързани едно след друго, с общо InitContext.InitTable.TypeInfo.UnitCount имена. За моя прост проект InitContext.InitTable.TypeInfo.UnitCount се оценява на 13.

Тези имена обаче не съответстват на единиците, които са инициализирани. В моя тестов проект InitContext.InitTable^.UnitCount има стойност 18 и единиците се инициализират в доста различен ред от изброения по-горе. Както съм сигурен, че знаете, SysInit винаги е на първо място. Както можете да видите от горното, той е в средата на списъка. Така че, докато InitContext.InitTable.TypeInfo.UnitNames ви дава списък с определени единици, той няма връзка с единиците, които изискват инициализация, нито реда на инициализация.

Тъй като го прочетох, UnitNames не може да ви помогне тук. Вярвам, че ще трябва да използвате файла с подробна карта, за да декодирате това. Трябва да потърсите името на функцията Table^[I].Init. Ако използвате, например, madExcept, това ще бъде лесно да се направи.

Разбира се, може да не успеете да извършите търсенето в InitUnits. Изправени сте пред ситуация с кокошка и яйце. Може да се наложи поне някои единици да бъдат инициализирани, преди да започнете с регистрирането.

Например, изглежда, че се опитвате да разпределите низова променлива. Това ще се провали, защото разпределителят на RTL стек не е инициализиран. Вашият код за регистриране не може да извърши никакво динамично разпределение с помощта на RTL купчината, ако очаквате да го извикате преди RTL да бъде инициализиран.

Всичко това ми изглежда пресилено. Ако бях на твое място, щях:

1. Идентифицирайте единиците по индекс при регистриране. Това е запис на стойността на I.
2. Използвайте резултатите от вашето профилиране, за да определите кои индекси са проблемните.
3. Под програмата за отстраняване на грешки използвайте условна точка на прекъсване, за да прекъсвате при извикването на TProc(P)(), свързано с индекса, който сте идентифицирали в предишната стъпка.
4. Влезте в P, за да разберете към коя единица е прикрепен.

Като цяло е най-добре да НЕ разчитате на реда на конструкторите на класове, секциите за инициализация, деструкторите на класове и секциите за финализиране.

В голям (1.2M LOC) проект човек няма да може да заключи кой е редът, който Delphi ще използва.

Най-добре е да преработите кода си, за да избегнете такива зависимости, или да използвате страничен ефект на модела на Singleton (инициализирайте, когато е необходимо за първи път).

И все пак, ако наистина трябва да изведете поръчката, можете ръчно да регистрирате всички

• Записи в раздела за инициализация

• Записи в раздела за финализиране

• конструктори на класове

• деструктори на класове

Един безопасен начин да го направите е като използвате Windows API - OutputDebugString()

Можете да използвате следната единица, за да ви помогне с регистрирането

unit unt_Debug;
{$SCOPEDENUMS ON}

interface

uses
  // System
  System.SysUtils
  {$IFDEF MACOS}
  ,FMX.Types
  {$ELSE}
  ,Winapi.Windows
  {$ENDIF};

{$WARN SYMBOL_PLATFORM OFF}
/// <remarks>
/// Output debug string. Output debug string can be seen in Delphi
/// View|Debug Windows|Event Log or with 3-rd party programs such as
/// dbgview.exe from SysInternals (www.sysinternals.com)
/// </remarks>
procedure ODS(const Text: string);

procedure ReportClassConstructorCall(const C: TClass);

procedure ReportClassDestructorCall(const C: TClass);

procedure ReportInitializationSection(const UnitName: string);

procedure ReportFinalizationSection(const UnitName: string);

implementation

procedure ReportClassConstructorCall(const C: TClass);
begin
  ODS(Format('%0:s class constructor invoked.', [C.ClassName]));
end;

procedure ReportClassDestructorCall(const C: TClass);
begin
  ODS(Format('%0:s class destructor invoked.', [C.ClassName]));
end;

procedure ReportInitializationSection(const UnitName: string);
begin
  ODS(Format('Unit %0:s - entering Initialization section.', [UnitName]));
end;

procedure ReportFinalizationSection(const UnitName: string);
begin
  ODS(Format('Unit %0:s - entering Finalization section.', [UnitName]));
end;

procedure ODS(const Text: string);
begin
  {$IFDEF DEBUG}
  {$IFDEF MACOS}
  // http://stackoverflow.com/questions/12405447/outputdebugstring-with-delphi-for-macosunit unt_Debug;
   Log.d(Text);
  {$ENDIF}
  {$IFDEF LINUX}
  __write(stderr, AText, Length(AText));
  __write(stderr, EOL, Length(EOL));
  {$ENDIF}
  {$IFDEF MSWINDOWS}
  OutputDebugString(PWideChar(Text));
  {$ENDIF}
  {$ENDIF}
end;

{$WARN SYMBOL_PLATFORM ON}

end.

Може да се използва например по следния начин:

unit Sample;

interface

type
  TSample = class
  public
    class constructor Create;
    class destructor Destroy;
  end;

implementation

uses
  unt_Debug;

class constructor TSample.Create;
begin
  ReportClassConstructorCall(TSample);
  // Do stuff
end;

class destructor TSample.Destroy;
begin
  ReportClassDestructorCall(TSample);
  // Do stuff
end;

initialization

  ReportInitializationSection(TSample.UnitName);
  // do stuff

finalization

  ReportFinalizationSection(TSample.UnitName);
  // do stuff

end.