Posted by jpluimers on 2018/10/23
Finally: “new overall direction of removing ARC” for Delphi 10.3 Rio and later.
Via [WayBack] Delphi Rio – New IDE Configuration with Search Box – New compiler dialog – Improve code completion – Inline variables – Rafael Dipold – Google+
Hopefully zero-based strings are the next to go…
Related: [WayBack] Directions for ARC Memory Management in Delphi
–jeroen
Posted in Delphi, Development, Software Development | 11 Comments »
Posted by jpluimers on 2018/10/23
A very interesting thread at [WayBack] Do i need to create one TFormatSettings instance for each thread that needs it? If i want the same settings (for all threads), th… – Dany Marmur – Google+
It’s about:
Recommended reading!
It made me go back to these style guides (from oldest to newest):
And Stefan Glienke reminded me naming is always hard, so I found back these from a distant past:
Note most of the above Links point to (archives of) Delphi 2007 documentation as the behaviour is that old and that the below identifiers were not mentioned in the thread.
The FormatSettings variable was introduced in Delphi XE but only documented in XE2 and up.
Until that, other global variables like the [WayBack] SysUtils.DecimalSeparator Variable were used.
–jeroen
Posted in Delphi, Development, internatiolanization (i18n) and localization (l10), Software Development | Leave a Comment »
Posted by jpluimers on 2018/10/18
Some links on Indy SSL Perfect Forward Secrecy especially for the [WayBack] SSL_CTX_set_ecdh_auto method that was introduced in OpenSSL 1.0.2.
SSL_CTX_set_ecdh_auto as function, since in OpenSSL it is a macro)
SSL_CTRL_SET_ECDH_AUTO directly)Indy now has it built in: [WayBack] Patches from Jeroen Wiert Pluimers: · graemeg/indy@659f629 · GitHub (this is on a regular git mirror of the official Indy svn repository).
–jeroen
Posted in Delphi, Development, Indy, Software Development | 1 Comment »
Posted by jpluimers on 2018/10/18
[WayBack] How can I search for Delphi documentation? – Stack Overflow explains how I’ve been searching Delphi documentation for almost a decade.
I love how Google Search filters can be used, and even mentioning “docwiki” or “docwiki delphi” usually narrows your search down to the official documentation.
However, since a while, [Archive.is] docwiki.embarcadero.com/robots.txt disallows older indexing by search indexes or archiving in the WayBack machine.
So with older Delphi versions, I tend to archive using Archive.is instead:
For the most recent Delphi version, I archive both the non-versioned link and the versioned link. Depending on the unit naming, these URLs can be used:
–jeroen
Posted in Delphi, Development, Software Development | Leave a Comment »
Posted by jpluimers on 2018/10/17
The Delphi styling mechanism hard codes style paths for Delphi built-in styles.
During compilation, a .VRC file is generated for your project (in this example ProjectName.vrc which is a resource compiler script. This was introduced by Delphi 2007 (see: Pre-build trick does not work to circumvent [BRCC32 Error] xxx.vrc(1): error creating xxx.res (via: Embarcadero Discussion Forums & StackOverflow)), got extended over time and by now this script can includes at least:
For the latter, you can get errors like this one:
[BRCC32 Error] ProjectName.vrc(63): file not found: C:\Users\Public\Documents\RAD Studio\10.0\Styles\SlateClassico.vsf
The solution to this error is simple:
.vsf extension (in this case StateClassico)Example files :
/* ----- VS_VERSION.dwFileFlags ----- */
#define VS_FF_DEBUG 0x00000001L
#define VS_FF_PRERELEASE 0x00000002L
#define VS_FF_PATCHED 0x00000004L
#define VS_FF_PRIVATEBUILD 0x00000008L
#define VS_FF_INFOINFERRED 0x00000010L
#define VS_FF_SPECIALBUILD 0x00000020L
#define VS_FFI_FILEFLAGSMASK 0x0000003FL
/* ----- VS_VERSION.dwFileOS ----- */
#define VOS_UNKNOWN 0x00000000L
#define VOS_DOS 0x00010000L
#define VOS_OS216 0x00020000L
#define VOS_OS232 0x00030000L
#define VOS_NT 0x00040000L
#define VOS_WINCE 0x00050000L
#define VOS__BASE 0x00000000L
#define VOS__WINDOWS16 0x00000001L
#define VOS__PM16 0x00000002L
#define VOS__PM32 0x00000003L
#define VOS__WINDOWS32 0x00000004L
#define VOS_DOS_WINDOWS16 0x00010001L
#define VOS_DOS_WINDOWS32 0x00010004L
#define VOS_OS216_PM16 0x00020002L
#define VOS_OS232_PM32 0x00030003L
#define VOS_NT_WINDOWS32 0x00040004L
/* ----- VS_VERSION.dwFileType ----- */
#define VFT_UNKNOWN 0x00000000L
#define VFT_APP 0x00000001L
#define VFT_DLL 0x00000002L
#define VFT_DRV 0x00000003L
#define VFT_FONT 0x00000004L
#define VFT_VXD 0x00000005L
#define VFT_STATIC_LIB 0x00000007L
1 VERSIONINFO
FILEVERSION 1, 0, 124, 56
PRODUCTVERSION 1, 0, 0, 0
FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
FILEOS VOS__WINDOWS32
FILETYPE VFT_APP
{
BLOCK "StringFileInfo"
{
BLOCK "040904E4"
{
VALUE "FileVersion", "1.0.124.56\000\000"
VALUE "ProductVersion", "1.0.0.0\000\000"
VALUE "ProductName", "My server\000\000"
VALUE "CompanyName", "My company\000\000"
}
}
BLOCK "VarFileInfo"
{
VALUE "Translation", 1033, 1252
}
}
and
MAINICON ICON "MyProject_Icon.ico"
1 24 "MyProject.$manifest"
PLATFORMTARGETS RCDATA {1}
SlateClassico VCLSTYLE "C:\\Users\\Public\\Documents\\RAD Studio\\10.0\\Styles\\SlateClassico.vsf"
–jeroen
Posted in Delphi, Development, Software Development | 2 Comments »
Posted by jpluimers on 2018/10/17
This has a really neat Windows API trick [WayBack] delphi – How can I sanitize a string for use as a filename? – Stack Overflow by [WayBack] Alex.
Via: [WayBack] Interesting use of MoveFile, with NIL as the first parameter. https://stackoverflow.com/a/961500/49925 – Thomas Mueller (dummzeuch) – Google+
function IsValidFilePath(const FileName: String): Boolean; var S: String; I: Integer; begin Result := False; S := FileName; repeat I := LastDelimiter('\/', S); MoveFile(nil, PChar(S)); if (GetLastError = ERROR_ALREADY_EXISTS) or ( (GetFileAttributes(PChar(Copy(S, I + 1, MaxInt))) = INVALID_FILE_ATTRIBUTES) and (GetLastError=ERROR_INVALID_NAME) ) then Exit; if I>0 then S := Copy(S,1,I-1); until I = 0; Result := True; end;
–jeroen
Posted in Delphi, Development, Software Development, Windows Development | 3 Comments »
Posted by jpluimers on 2018/10/16
[WayBack] Delphi Unit Dependency Scanner with sources at [WayBack] GitHub – norgepaul/DUDS
via:
Note the scanner mentioned by Stefan now generates a 404; however there is an archived page.
Future idea: use Delphi AST as parser instead of the current internal tokeniser/parser combination.
And of course there is one in MMX (which has been free for a while now): [WayBack] Unit Dependency Analyzer – MMX
–jeroen
Posted in Delphi, Development, Software Development | 3 Comments »
Posted by jpluimers on 2018/10/11
What is the proper way for pooling of TCustomConnection instances in Delphi, that allows to distinguish between instances that have effectively equal connection properties and the ones that are effectively unequal?
I’ve tried searching the RTL and VCL sources and didn’t find a generic way.
I could copy either of the specific ones I found (see list below) and adapt them to a more generic solution or adapt one of the answers in #16404051 to be for TCustomConnection, but I wonder if there is an existing solution for TCustomConnection in the first place.
Specific ones I found in Delphi XE8:
- DBX: unit Data.DBXPool
- FireDAC: unit FireDAC.Stan.Pool
- IBX: unit IBX.IBConnectionBroker
Source [WayBack] database connection – Looking for a generic way to pool TCusomConnection in Delphi – Stack Overflow
Hopefully by now I’ve some implementation for this that works nicely.
If not, these might get me started too:
In the .NET world, I take these things for granted, and it looks like ADO already does it out of the box as well:
–jeroen
via: [WayBack] Is there a Delphi library that allows for pooling of TCustomConnection… – Jeroen Wiert Pluimers – Google+
Posted in Delphi, Delphi XE8, Development, Software Development | 2 Comments »
Posted by jpluimers on 2018/10/10
The below came in really useful in an old project I took over that was full of bugs having to do with improper casts and FreeAndNil usage.
EDIT 20181010: WordPress.com keeps mangling angle-brackets in pre and code sections, so I added the code to a gist; see link below.
First the examples.
procedure TMyServer.UnbindFromIdTcpServerStatusContext(const aContext: TIdContext);
var
lClientSession: TClientSession;
begin
lClientSession := TObjectHelper.Cast<TClientSession>(aContext.Data);
...
end;
type
TBaseDataInterface = class(TObject)
strict private
FDatabase: TIBDatabase;
FTransaction: TIBTransaction;
...
end;
destructor TBaseDataInterface.Destroy();
begin
TObjectHelper.FreeAndNil(FDatabase);
TObjectHelper.FreeAndNil(FTransaction);
...
inherited Destroy();
end;
And the implementation.
unit ObjectHelperUnit;
interface
type
TObjectHelper = record
class function Cast<T: class>(const aValue: TObject): T; static;
class procedure FreeAndNil<T: class>(var Value: T); static;
end;
implementation
uses
System.SysConst,
System.SysUtils;
class function TObjectHelper.Cast<T>(const aValue: TObject): T;
var
lException: Exception;
begin
if Assigned(aValue) then
begin
if aValue is T then
Result := T(aValue)
else
begin
lException := EInvalidCast.CreateFmt('%s; actual type %s but expected %s.',
[SInvalidCast, aValue.QualifiedClassName, T.QualifiedClassName]);
raise lException;
end;
end
else
Result := nil;
end;
class procedure TObjectHelper.FreeAndNil<T>(var Value: T);
begin
System.SysUtils.FreeAndNil(Value);
end;
end.
–jeroen
Gist:
| unit ObjectHelperUnit; | |
| interface | |
| type | |
| TObjectHelper = record | |
| class function Cast<T: class>(const aValue: TObject): T; static; | |
| class procedure FreeAndNil<T: class>(var Value: T); static; | |
| end; | |
| implementation | |
| uses | |
| System.SysConst, | |
| System.SysUtils; | |
| class function TObjectHelper.Cast<T>(const aValue: TObject): T; | |
| var | |
| lException: Exception; | |
| begin | |
| if Assigned(aValue) then | |
| begin | |
| if aValue is T then | |
| Result := T(aValue) | |
| else | |
| begin | |
| lException := EInvalidCast.CreateFmt('%s; actual type %s but expected %s.', | |
| [SInvalidCast, aValue.QualifiedClassName, T.QualifiedClassName]); | |
| raise lException at ReturnAddress; | |
| end; | |
| end | |
| else | |
| Result := nil; | |
| end; | |
| class procedure TObjectHelper.FreeAndNil<T>(var Value: T); | |
| begin | |
| System.SysUtils.FreeAndNil(Value); | |
| end; | |
| end. |
| procedure TMyServer.UnbindFromIdTcpServerStatusContext(const aContext: TIdContext); | |
| var | |
| lClientSession: TClientSession; | |
| begin | |
| lClientSession := TObjectHelper.Cast<TClientSession>(aContext.Data); | |
| … | |
| end; | |
| type | |
| TBaseDataInterface = class(TObject) | |
| strict private | |
| FDatabase: TIBDatabase; | |
| FTransaction: TIBTransaction; | |
| … | |
| end; | |
| destructor TBaseDataInterface.Destroy(); | |
| begin | |
| TObjectHelper.FreeAndNil(FDatabase); | |
| TObjectHelper.FreeAndNil(FTransaction); | |
| … | |
| inherited Destroy(); | |
| end; |
Posted in Delphi, Development, Software Development | 16 Comments »
Posted by jpluimers on 2018/10/09
Blast from the past, but still relevant, this article by Peter Below:
This article follows the path of a keystroke message through the VCL. You will learn how the key processing is implemented, how the OnKey events work and what intervention points for the programmer can be found in the whole process. In addition, things like message processing are explained, and you will learn how to trace messages in the debugger from the message loop to their eventual destination.
Source: [WayBack] A Key’s Odyssey
Via: [WayBack] Vcl.Controls.pasprocedure TWinControl.CNKeyDown(var Message: TWMKeyDown);..if IsMenuKey(Message) then Exit; … – Attila Kovacs – Google+
-jeroen
Posted in Conference Topics, Conferences, Delphi, Development, Event, Software Development | Leave a Comment »
The Wiert Corner - irregular stream of stuff 