Posted by jpluimers on 2021/01/07
[WayBack] Named Pipes unit for Delphi | Mick’s Mix by Russell Libby, for which (Apr 7, 2013) Francoise Piette has updated this source code for Delphi XE3 and put it on his website at [WayBack] OverByte – Blog Source Code as [WayBack] IpcUsingPipes.zip.
–jeroen
Posted in Delphi, Development, Software Development | Leave a Comment »
Posted by jpluimers on 2021/01/06
Every time my scan VM logs on I get the dialog on the right.
Every time I finish an OCR scan, I get the dialog below.
There are two reasons I want to close the ABBY dialog:
I do not want to fully get rid of these dialogs, as often being aware of the progress is important, and I always forget how to re-enable things. If you can do without the dialogs, then try these:
I did use one nice feature of AutoHotKey: their Windows Spy utility, which is implemented as a AHK script: [WayBack] AutoHotKey-scripts/WindowSpy.ahk at master · elig0n/AutoHotKey-scripts · GitHub. In the past this was a separate executable, so do not start looking for that any more. You can get it either after a full install of the [WayBack] Releases · Lexikos/AutoHotkey_L · GitHub, or by extracting from the most current AutoHotKey.zip from [Archive.is] AutoHotkey Downloads.
Related:
- [WayBack] Changes & New Features | AutoHotkey
1.1.27.00 – December 25, 2017
Changes:
Replaced AU3_Spy.exe with WindowSpy.ahk.
…
- [WayBack] autohotkey – What is AU3_Spy.exe? Where can I find it? – Stack Overflow
- Search for
Spyin
This gets these for the Create Cloud and ABBY windows:
I contemplated about using AutoIt (freeware, but closed source) or AutoHotKey_L (the current active fork of AutoHotKey).
AutoIt is now closed source, forked in the past as AutoHotKey, which has a lot of half backed – usually poorly documented – scripts needing you to learn a new API wrapper around existing Windows API functionality.
So I reverted back to using the Windows API using Delphi: a simple repeat loop, to check for the existence of the underlying processes, windows and controls, plus some logic to terminate then the user stops the application (Ctrl-C, Ctrl-Break), logs off, or Windows shuts down.
Releated Windows API keywords and posts:
SetConsoleCtrlHandler and HandlerRoutine parameter dwCtrlType values CTRL_C_EVENT, CTRL_BREAK_EVENT, CTRL_CLOSE_EVENT, CTRL_LOGOFF_EVENT and CTRL_SHUTDOWN_EVENT.
HandlerRoutine is called in a separate thread, implying you should be very careful with what you do. Best is to only set some flags. Worst is to go GUI handling (DO NOT CALL ShowMessage HERE!)SetConsoleCtrlHandler for console applications, the service related RegisterServiceCtrlHandler and RegisterServiceCtrlHandlerEx calls and the Windows messages to watch for GUI applications: WM_QUERYENDSESSION and WM_POWERBROADCAST.
I could have used AutoHotKey with these hints to get it working:
Note that when you run on MacOS, you need an alternative like for instance the video below shows via [WayBack] Stop ScanSnap From Prompting You When You Scan.
–jeroen
Posted in Development, Fujitsu ScanSnap, Hardware, ix100, ix500, Power User, Scanners, Scripting, Software Development, Windows, Windows 10, Windows 8.1 | Leave a Comment »
Posted by jpluimers on 2021/01/06
Batch files are often a pain to write, but you cannot always rewrite them in PowerShell.
The pain below is about deleting parts of environment variables in batch files.
I’ll just redirect to and quote from posts that can way better describe this than I do:
The variable _test containing 12345abcabc is used for all the following examples:
::Replace '12345' with 'Hello ' SET _test=12345abcabc SET _result=%_test:12345=Hello % ECHO %_result% =Hello abcabc ::Replace the character string 'ab' with 'xy' SET _test=12345abcabc SET _result=%_test:ab=xy% ECHO %_result% =12345xycxyc ::Delete the character string 'ab' SET _test=12345abcabc SET _result=%_test:ab=% ECHO %_result% =12345cc ::Delete the character string 'ab' and everything before it SET _test=12345abcabc SET _result=%_test:*ab=% ECHO %_result% =cabc ::Replace the character string 'ab' and everything before it with 'XY' SET _test=12345abcabc SET _result=%_test:*ab=XY% ECHO %_result% =XYcabc :: To remove characters from the right hand side of a string is :: a two step process and requires the use of a CALL statement :: e.g. SET _test=The quick brown fox jumps over the lazy dog :: To delete everything after the string 'brown' :: first delete 'brown' and everything before it SET _endbit=%_test:*brown=% Echo We dont want: [%_endbit%] ::Now remove this from the original string CALL SET _result=%%_test:%_endbit%=%% echo %_result%All the examples on this page assume the default Expansion of variables, if you are using
DelayedExpansionthen you can choose to change the variable references to!_variable!instead of%_variable%One advantage of
DelayedExpansionis that it will allow you to replace the%character, it will still have to be escaped as%%but the replace action will then treat it like any other character:Replace the letter P with a percent symbol:
Setlocal EnableDelayedExpansion
_demo=somePdemoPtextP
_demo=!_demo:P=%%!Remove spaces from a text string
To delete space characters use the same syntax as above:
SET _no_spaces=%_some_var: =%
–jeroen
Posted in Batch-Files, Development, Scripting, Software Development | Leave a Comment »
Posted by jpluimers on 2021/01/06
A while ago, there was a nice discussion on smart pointers at [WayBack] Smart Pointers – Generics vrs non-generic implementastion – RTL and Delphi Object Pascal – Delphi-PRAXiS [en].
Conclusion from that:
Shared/IShared<T>/TShared<T> from Spring4D has all of the above advantagesThe discussion mentioned above includes both feature and speed comparisons.
I was a bit amazed that at CodeRage 2018, Marco Cantu introduced yet another smart pointer implementation: one worse than existing implementations, and one with only basic demonstration code, leaving out a test suite.
There have many posts on my blog about smart pointers (see the list below), but Spring4D smart pointer implementation has been around for such a long time that any well respected Delphi developer by now should use them. The source is at Shared/IShared (search for {$REGION 'Shared smart pointer'} at the current repository).
This list below on my Smart Pointer related blog posts might not be fully complete, but at least mentions that by now you should be using Spring4D.
IInterface usage.
Posted in Conference Topics, Conferences, Delphi, Development, Event, Software Development, Spring4D | Leave a Comment »
Posted by jpluimers on 2021/01/05
[WayBack] GitHub – andOTP/andOTP: Open source two-factor authentication for Android.
A few highlights:
PlayStore: [WayBack] andOTP – Android OTP Authenticator – Apps on Google Play
• Free and Open-Source
• Requires minimal permissions:
• Camera access for QR code scanning
• Storage access for import and export of the database
• Encrypted storage with two backends:
• Android KeyStore (can cause problems, please only use if you absolutely have to)
• Password / PIN
• Multiple backup options:
• Plain-text
• Password-protected
• OpenPGP-encrypted
• Sleek minimalistic Material Design with three different themes:
• Light
• Dark
• Black (for OLED screens)
• Great Usability
• Compatible with Google Authenticator
Via: [WayBack] ‘Aanvallen via ss7-protocol om 2fa-sms’jes te onderscheppen nemen toe’ – Computer – Nieuws – Tweakers
Check out @Jaykul’s Tweet: https://twitter.com/Jaykul/status/1091200778121957377
Instead of Google authenticator and Authy
Via https://twitter.com/martinfowler/status/1091097388201230339
Related :
Nope. It’s just a secret encoded in a QR code.
Here’s the docs on the format of the URI in the QR code: https://t.co/AJhT6PFAzx
The QR code delivers a simple, durable, shared secret.
Use U2F if you can. It is much safer, as it cannot be phished or copied.
Depends on your risk model. Device to device transfer would be a good mid-ground, but doesn’t solve the “my phone was stolen/bricked/damaged” scenario.
Which is your bigger risk – duplicating (normally encrypted) secrets or losing your device and access to everything?
github.com/.../Key-Uri-Format The QR code delivers a simple, durable, shared secret. Use U2F if you can. It is much safer, as it cannot be phished or copied.”
–jeroen
Posted in Android, Authy, Development, Mobile Development, Security, Software Development | Leave a Comment »
Posted by jpluimers on 2021/01/05
Small batch file that only deletes a registry key if it exists:
:DeleteKeyIfItExists reg query %1 >nul 2>&1 if %errorlevel% equ 0 reg delete %1 /f goto :eof
It is based on:
stderr and stdout to nul (the >nul 2>&1 bit)reg query with the appropriate errorlevel value for equality (equ operator) for 0 (existence); you can also use 1 for non-existence.Based on:
You want:
dir > a.txt 2>&1The syntax
2>&1will redirect2(stderr) to1(stdout).You can also hide messages by redirecting to
NUL, more explanation and examples on MSDN.
–jeroen
Posted in Batch-Files, Development, Scripting, Software Development | Leave a Comment »
Posted by jpluimers on 2021/01/05
It looks like there are pages [WayBack] IDEIds21 – RAD Studio … [WayBack] IDEIds21 – RAD Studio.
Maybe I ever find time to find out where they are referenced from and why there is no IDEIds1 page.
–jeroen
Posted in Delphi, Development, Software Development | Leave a Comment »
Posted by jpluimers on 2021/01/04
I totally forgot that upx – UPX – the Ultimate Packer for eXecutables has been on GitHub for quite a while, which meant I was running a really old version 3.91.
There have been quite a few things updated and documented in [Archive.is] upx-news.txt covering these milestones:
Via UPX – Wikipedia
–jeroen
Posted in Development, Power User, Software Development, Windows, Windows Development | Leave a Comment »
Posted by jpluimers on 2020/12/31
I wonder what the limitation of OutputDebugStringW is, as OutputDebugStringA had a limit imposed by the DBWIN_BUFFER which was 4K (minus a bit overhead):
–jeroen
Posted in Development, Software Development, Windows Development | Leave a Comment »
Posted by jpluimers on 2020/12/31
I like questions like [WayBack] How to check if parent menu item has “checked” child item? – VCL – Delphi-PRAXiS [en]
It means that the asker is closely looking at her or his coding.
This is important, as it helps to get your programming idioms consistent.
The code started out as:
function HasCheckedSubItems(AMenuItem: TMenuItem): Boolean;
var
i: integer;
begin
Result := False;
for i := 0 to AMenuItem.Count - 1 do
if AMenuItem.Items[i].Checked then
Exit(True);
end;
and finally ended up as:
function HasCheckedSubItems(AMenuItem: TMenuItem): Boolean;
var
I: integer;
begin
for I := 0 to AMenuItem.Count - 1 do
if AMenuItem.Items[I].Checked then
Exit(True);
Exit(False);
end;
Which is close to what I’d use, no matter the Delphi version:
function HasCheckedSubItems(const AMenuItem: TMenuItem): Boolean;
var
I: integer;
begin
for I := 0 to AMenuItem.Count - 1 do
if AMenuItem.Items[I].Checked then
begin
Result := True;
Exit;
end;
Result := False;
end;
My argumentation for the last form is that assignment and jumps are too conceptually different to combine in one statement.
The second form moves just one assignment, which on the current scale of nanosecond execution might not sound much, but conceptually limits the assignment to once per function call.
If you are interested in more thoughts on this topic,
–jeroen
Posted in Delphi, Development, Software Development | Leave a Comment »
The Wiert Corner - irregular stream of stuff 