Delphi_StackTraces

KO | EN

gitlite — search

#sql #cli #tailwindcss #cpp #openai #rag #swift #ruby #self-hosted #nlp

Delphi_StackTraces

(★ 18)

Functions for reading MAP file and getting exception stack traces with example

파일 탐색기

ZIP 다운로드

- ResAdd.dpr
Ice.Debug.pas
Ice.Utils.pas
README.md
StackTraceSample.dpr
StackTraceSample.dproj

# CDN으로 사용하기

jsDelivr

jsDelivr는 공개 GitHub 리포지토리를 별도 설정 없이 CDN으로 즉시 서빙합니다. 버전과 파일을 고르면 웹페이지에 바로 붙일 수 있는 링크와 예시 코드가 만들어집니다.

버전

파일

링크

예시

// repository documentation

Was this content helpful?

★ 0 (0 ratings)

Delphi call stacks with function names and line numbers
=======================================================

This project consisting of two small units shows how to get call stacks for exceptions (and even for any random line)
and, with the help of MAP file, get all info corresponding to each address of call stack: unit, function and even number
of line in source code.
Bonus abilities include:

- Getting line number of currently executed instruction
- Getting name of currently executed function/method

Demo project shows sample of use.

Built-in MAP files
------------------

Separate MAP files could be inconvenient - they're big, they must be kept in sync with binary, they could be deleted and so on.
Solution is to inject MAP file into binary.

1. Compile small utility called ResAdd from the corresponding folder of this repo. I copied it to `$(BDS)\Tools\` but that's optional

2. In the options of your project go to Build events > Post-build events > Commands and add the following:

`$(BDS)\Tools\ResAdd.exe $(OUTPUTPATH) MapFileZ $(OUTPUTDIR)$(OUTPUTNAME).map compress`

where `$(BDS)\Tools\ResAdd.exe` is path to ResAdd for my setup, you can modify this for yours.

3. Add following code to your project:

```pascal
   uses Zlib, Windows;

// Load MAP file from <exename>.map or, if not exists, from RT_RCDATA 'MapFileZ' resource (compressed)
   // Raises exception if fails to read from file, silently passes if fails to read from resource.
   // Idea is:
   //   - By default built-in MAP is loaded, the binary is standalone
   //   - Release configs without MAP file raise no errors, user can check result with MapFileLoaded
   //   - If something changes, external MAP file has priority to not have to setup the new binary.
   //   - Existing binary built without MAP file could still load the external file if provided
   procedure LoadMapFile;
   var
     sl: TStringList;
     rs: TResourceStream;
     zds: TZDecompressionStream;
     ss: TStringStream;
   begin
     if FileExists(ChangeFileExt(ParamStr(0), '.map')) then
     begin
       sl := TStringList.Create;
       sl.LoadFromFile(ChangeFileExt(ParamStr(0), '.map'), TEncoding.UTF8);
       ReadMapFile(sl.Text);
       sl.Free;
     end
     else
     begin
       rs := nil; zds := nil; ss := nil;
       try
         rs := TResourceStream.Create(HInstance, 'MapFileZ', RT_RCDATA);
         zds := TZDecompressionStream.Create(rs);
         ss := TStringStream.Create('', TEncoding.ASCII);
         ss.LoadFromStream(zds);
         ReadMapFile(ss.DataString);
       except
       end;
       FreeAndNil(zds);
       FreeAndNil(rs);
       FreeAndNil(ss);
     end;
   end;

// Setup call stack handler and load MAP file
   procedure PrepareCallStacksAndMapFile;
   begin
     InstallExceptionCallStack;
     LoadMapFile;
   end;
   ```

and call `PrepareCallStacksAndMapFile` somewhere at start point.

4. Cool, now you have slim binary containing synced MAP file that occupies just a small space.

Delphi_StackTraces

오너의 다른 레포

파일 탐색기

# CDN으로 사용하기

Was this content helpful?

Recent Feedback

Delphi_StackTraces

오너의 다른 레포

파일 탐색기

# CDN으로 사용하기

Was this content helpful?

Recent Feedback

Download README