I wrote a function to make JSON more readable, and naturally I wonder if I missed something crucial so that it…

I wrote a function to make JSON more readable, and naturally I wonder if I missed something crucial so that it eventually will break?

There are probably more efficient ways to work with strings than concatenating character by character, but performance was not a key goal.

I hereby commit it to public code review 😉

https://pastebin.com/Juks92Y2

Simple code snippets to get AD user information

Simple code snippets to get AD user information

I wrote a small AD snippet just the other day, to check which AD groups a specific AD user was member of. I needed to check if a user was member of a specific AD group, to enable or disable some “super user” functions in the system management application.

Note that it uses web.wintypes.adstypes which may only be available in XE5 and upwards?

#ActiveDirectory #XE7 http://pastebin.com/EYwHUerR

http://pastebin.com/EYwHUerR

Simple way of relaunching an application or a service

Simple way of relaunching an application or a service

For example after replacing the .exe file for an upgrade (under Windows).

Uses CustomDebugOut (see other post).

FDCRelauncher.pas – http://pastebin.com/YCiqiNAq

#delphi #sourcecode

http://pastebin.com/YCiqiNAq

OutputDebugString override

OutputDebugString override

Simple override for Windows.OutputDebugString which adds a timestamp, thread id and memory, and an overloaded string version to get rid of those pesky pChar casts.

The output shows up in the in the BDS Event Log, or it can be captured while running live with Sysinternal’s DebugView (http://technet.microsoft.com/en-us/sysinternals/bb896647.aspx).

CustomDebugOut.pas – http://pastebin.com/GM7DE18L

#delphi #sourcecode

http://pastebin.com/GM7DE18L