yoy - “Why-O-Why”

yoy.be - Why-O-Why

Welcome 06/05/2005
Is this your first visit? Click here for more information about this site. QuickStart...

selected recent changes and comments, log in to see more, browse or filter to see all...

RegEx Golf

Spoiler alert (don't look below if you indend to have a go yourself first)
this is how I got 3003 points and all green checkmarks on http://regex.alf.nu/ with only about half an hour wasted.

1.  Plain strings (205)
Warming up:
    a?foo
2.  Anchors (208)
Yes, I know about anchors:
    k$
3.  Ranges (202)
And about ranges:
    [a-f]{4}
4.  Backrefs (201)
And about backrefs:
    (...).*\1
5.  Abba (188)
Had to look up negation for this one since I generally do that in periferal logic
    ^(?!.*([aeio])(.)\2\1)
6.  A man, a plan (162)
What's the plan? And a little cheat to nip that one on the right that ends with p
    (.)(.)((.)\4|.?)\2\1([^p]|$)
7.  Prime (262)
All odd numbers except 2 and 25 and multiples of 3
    ^(?!(xxx){2,}?$)(?!x{25}$)(xx|x(xx)+)$
8.  Four (182)
Four vowels? Except the latin tree
    ([aeiou])(?!.*eae)(.*?\1){3}
9.  Order (179)
I'm getting lazy, just fiddled around with classes to get this one
    ([a-c][c-f]|[l-o]o|h[io]|[st]y)
10. Triples (565)
Tired even, just did a blunt force on this one, I don't know how to make regex'es do math, still a nice score though
    ([03]0[369]|402|[035]1[25]|390|175|^953|^32|[06]0[02]$|7[258]0?$)
11. Glob (310)
Just enumerating combinations here, could perhaps be shorter but I'm thinking about grabbing a bite in a minute
    ^((.+) matches \2|\*(.{3,6})\*(.*)? matches .+\3.+\4.*|(.+)\* matches \5.+|\*(.+) matches .+\6|^[b\*][ipr].+)$
12. Balance (283)
Oh this one is just a trick from the book
    ^(<(<(<(<(<(<(<>)*>)*>)*>)*>)*>)*>)*$
13. Powers (56)
Only I forgot how to recurse expressions
    ^((((((((((x)\10?)\9?)\8?)\7?)\6?)\5?)\4?)\3?)\2?)\1?$

location: spotted on the net > IT-related > development related
created: 20/12/2013 17:20:54 « modified: 22/12/2013 23:03:02 weight: 0

Bitcoin Grant: funding the future

http://bitcoingrant.org/

Realistisch gezien, maak ik geenenkele kans. Maar, stel! Stel dat het mogelijk zou zijn dat je uit het anonieme een bedrag krijgt per maand waar je comfortabel kan leven, om in ruil je tijdens de kantoor-uren in te zetten voor het constructief meewerken aan een of meer open-source projecten. Hoe zou dat in het echt werken? Ik vroeg me recent al af als ik eventuele winsten die ik dit jaar zou halen op de stijgende Bitcoin koers moet aangeven aan de inkomstenbelasting. Hoeveel is het forfait eigenlijk? Ik denk niet dat ik dat zal bereiken, maar toch. Zou de fiscus het snappen? "Waar komt dat geld van? Is het zwart?" Eeuh, nee, ja, misschien, ik weet het niet. In theorie kan je het zelfs niet weten. Gezien er geen bedrijfsvorm is die je als werknemer inschrijft, zal dit als zelfstandige moeten. Gemakkelijker gezegd dan gedaan in ons apenlandje, en best met wat gevolgen. Zoals wat je moet afdragen aan de sociale kas en ervoor zorgen dat je boekhouding klopt voor onder meer BTW. Urgh. En als dat in de vorm van een eenpersoonsbedrijf moet moet dat waarschijnlijk met een businessplan, en marktonderzoek? Hoe ligt open source software in de markt? Dat alleen al ligt moeilijk want dat zorgt niet rechtstreeks voor je inkomsten. Bon, overdag braaf gaan werken en 's avonds als hobby wat sleutelen aan een sourceforge/github/codeplex dingetje lijkt plots al bij al zo slecht nog niet.

location: spotted on the net > IT-related > development related
created: 8/04/2013 19:50:27 « modified: 8/04/2013 19:50:27 weight: 0

"database locked" errors with SQLITE_CONFIG_SERIALIZED

I've been impressed by sqlite3 ever since I get to know about it. It's open source, and even more it's really put in the public domain completely avoiding the licensing headache. I haven't read the source in great detail, but as I understand it it's all in a single big file! Even how it works internally is impressive.

Since I didn't like the options available, I created my own very thin wrapper for sqlite3.dll without much trouble. Only in this one multi-threaded application, I've run into an occasional "database locked" error, so I had to search documentation and source for what I can do about it.

Working with other database solutions, I've had the common sense of using a database connection for each thread, so each could work with the database undisturbed by eachother. As it turns out this is not required with sqlite3! As stated with SQLITE_CONFIG_SERIALIZED, which is the default setting, you're better off using a single connection over all threads. Indeed in my case it solved the "database locked" errors.

location: Application Development > Data Storage > SQLite
created: 23/03/2013 22:36:26 « modified: 23/03/2013 22:36:26 weight: 0
tokens:

Delphi's TDateTime in a datetime column: how to manipulate from SQL?

Thanks to sqlite's manifest typing, it's possible to insert Delphi's TDateTime values in a field defined by SQL as datetime. I was using this for a while without any problem before I found out sqlite was actually storing a floating point value. There may be a problem though when you try to manipulate these dates with SQL. I searched around for a suitable conversion, and using default sqlite features, I came up with this code:

datetime('1900-01-01','+'||myDateField||' day')

where myDateField is a column or value of type datetime.

location: freeware > TSQLite
created: 19/03/2013 22:25:01 « modified: 19/03/2013 22:25:01 weight: 0

How to create a shell extension context menu.

I've put it up here, but since it's a pretty good boiler plate code, I'll put it up here as well. Include a unit like this one into an ActiveX library. I especially had a though time to get the values right that are based on idCmdFirst and get sent back when a menu item is invoked. Something that gives pretty strange results if you don't get it right.

unit demoContextMenu;

interface

uses
  Windows, Classes, ActiveX, ComObj, ShlObj;

type
  PItemIDList=LPCITEMIDLIST;

  { TContextMenu }
  TContextMenu = class(TComObject, IShellExtInit, IContextMenu)
  private
	Files:TStringList;
  protected
	{ IShellExtInit }
	function IShellExtInit.Initialize = SEIInitialize;
	function SEIInitialize(pidlFolder: PItemIDList; lpdobj: IDataObject;
	  hKeyProgID: HKEY): HResult; stdcall;
	{ IContextMenu }
	function QueryContextMenu(Menu: HMENU; indexMenu, idCmdFirst, idCmdLast,
	  uFlags: UINT): HResult; stdcall;
	function InvokeCommand(var lpici: TCMInvokeCommandInfo): HResult; stdcall;
	function GetCommandString(idCmd: UINT_Ptr; uType: UINT; pwReserved: PUINT;
	  pszName: LPSTR; cchMax: UINT): HResult; stdcall;
  public
	procedure Initialize; override;
	destructor Destroy; override;
  end;

const
  Class_ContextMenu: TGUID = '{put a new GUID here by pressing Ctrl+Shift+G}';

implementation

uses ComServ, SysUtils, Registry;

procedure TContextMenu.Initialize;
begin
  inherited;
  Files:=TStringList.Create;
end;

destructor TContextMenu.Destroy;
begin
  Files.Free;
  inherited;
end;

function TContextMenu.SEIInitialize(pidlFolder: PItemIDList;
  lpdobj: IDataObject; hKeyProgID: HKEY): HResult; stdcall;
var
  StgMedium: TStgMedium;
  FormatEtc: TFormatEtc;
  i,c:integer;
  s:string;
begin
  if lpdobj=nil then Result:=E_INVALIDARG else
   begin
	FormatEtc.cfFormat:=CF_HDROP;
	FormatEtc.ptd:=nil;
	FormatEtc.dwAspect:=DVASPECT_CONTENT;
	FormatEtc.lindex:=-1;
	FormatEtc.tymed:=TYMED_HGLOBAL;

	Result:=lpdobj.GetData(FormatEtc,StgMedium);
	if not(Failed(Result)) then
	 begin
	  c:=DragQueryFile(StgMedium.hGlobal,$FFFFFFFF,nil,0);
	  for i:=0 to c-1 do
	   begin
		SetLength(s,1024);
		SetLength(s,DragQueryFile(StgMedium.hGlobal,i,PChar(s),1024));
		Files.Add(s);
	   end;
	  ReleaseStgMedium(StgMedium);
	  Result:=NOERROR;
	 end;
   end;
end;

function TContextMenu.QueryContextMenu(Menu: HMENU; indexMenu, idCmdFirst,
  idCmdLast, uFlags: UINT): HResult; stdcall;
var
  h:HMENU;
  i:integer;
begin
  i:=1;
  h:=CreatePopupMenu;
  AppendMenu(h,MF_STRING,idCmdFirst+i,'Menu item one');      inc(i);
  AppendMenu(h,MF_STRING,idCmdFirst+i,'Menu item two');      inc(i);
  AppendMenu(h,MF_STRING,idCmdFirst+i,'Menu item three');    inc(i);
  InsertMenu(Menu,indexMenu,
	MF_BYPOSITION or MF_POPUP or MF_STRING,h,'DemoContextMenu');
  Result:=i;
end;

function TContextMenu.InvokeCommand(var lpici: TCMInvokeCommandInfo): HResult;
  stdcall;
begin
  Result := E_FAIL;
  //not called by application
  if HiWord(Integer(lpici.lpVerb))=0 then
	begin
	  Result := NOERROR;
	  case LoWord(Integer(lpici.lpVerb)) of
		1:;//perform action one (use data in Files:TStringList)
		2:;//perform action two
		3:;//perform action three
		else Result := E_INVALIDARG;
	  end;
	end;
end;

function TContextMenu.GetCommandString(idCmd: UINT_Ptr; uType: UINT;
  pwReserved: PUINT; pszName: LPSTR; cchMax: UINT): HResult; stdcall;
begin
  if idCmd=0 then
   begin
	if (uType=GCS_HELPTEXTW) then
	  StrCopy(pszName,'Perform one of several functions on files');
	Result:=NOERROR;
   end
  else
	Result:=E_INVALIDARG;
end;

type
  TContextMenuFactory = class(TComObjectFactory)
  public
	procedure UpdateRegistry(Register: Boolean); override;
  end;

procedure TContextMenuFactory.UpdateRegistry(Register: Boolean);
var
  ClassID:string;
  r:TRegistry;
begin
  if Register then
   begin
	inherited UpdateRegistry(Register);

	ClassID := GUIDToString(Class_ContextMenu);
	CreateRegKey('*\shellex', '', '');
	CreateRegKey('*\shellex\ContextMenuHandlers', '', '');
	CreateRegKey('*\shellex\ContextMenuHandlers\DemoContextMenu', '', ClassID);

	CreateRegKey('Folder\shellex', '', '');
	CreateRegKey('Folder\shellex\ContextMenuHandlers', '', '');
	CreateRegKey('Folder\shellex\ContextMenuHandlers\DemoContextMenu', '', ClassID);

	if Win32Platform=VER_PLATFORM_WIN32_NT then
	 begin
	  r:=TRegistry.Create;
	  try
		r.RootKey:=HKEY_LOCAL_MACHINE;
		r.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Shell Extensions',True);
		r.OpenKey('Approved',True);
		r.WriteString(ClassID,'DemoContextMenu Shell Extension');
	  finally
		r.Free;
	  end;
	 end;

   end
  else
   begin
	DeleteRegKey('Folder\shellex\ContextMenuHandlers\DemoContextMenu');
	DeleteRegKey('*\shellex\ContextMenuHandlers\DemoContextMenu');

	inherited UpdateRegistry(Register);
   end;
end;

initialization
  TContextMenuFactory.Create(ComServer, TContextMenu, Class_ContextMenu,
	'', 'DemoContextMenu Shell Extension', ciMultiInstance, tmApartment);
end.

location: Application Development > Programming Languages > Object Pascal > Delphi > ActiveX / COM objects
created: 12/11/2012 16:41:31 « modified: 12/11/2012 16:42:58 weight: 0
tokens:

E-mail over HTTP

It might be a stupid idea, but why has no-one ever thought of mapping SMTP/POP3/IMAP onto HTTP. (Or has someone?)
I know, there's a lot on the blogosphere about e-mail and it being broken in all kinds of ways, or not at all, but I don't want to touch upon that.

What I think it really is about is a clean straight-forward way of sending asynchronous messages to eachother. SMTP was created specifically for that. But it is getting old. Really old. Even so, it is based on a number of even older protocols (RFC822, anyone?). It's only normal that protocols cooperate or are based on eachother, but some are clearly established and are a really good fit for most if not all situations and environments, and some are established but happen to be the least worse solution that is available, just waiting to get replaced by something better, as soon as the folk could agree on the replacement.

HTTP was designed to transport hypertext. At first from a server to a client, but basically in any direction. And thanks to MIME, anything really. And face it, isn't almost all of our e-mail in hypertext nowadays? So HTTP and SMTP may have a lot in common, except HTTP has seen a lot more evolution as far as I know, both in design and in support by hardware and software.

How would it work? Just like an MX-record, something else (HTMX-record?) could point at a URL for the domain of an e-mail address. (And I mean full URL: http/https, (sub)domain, path, etc...) So the sender starts a request:

POST /incomingmail HTTP/1.1
Host: example.com
From: "John Doe" <john.doe@acme.us>
To: "James Day" <james.day@example.com>
Subject: Meeting invitation about some project
Date: Sat, 29 Sep 2012 15:38:11 +0000
Content-Type: text/html; charset="utf-8"
Content-Transfer-Encoding: deflate
Content-Length: 1234

At this point the server can respond with '100 Continue' or a suitable error code when spam detection or a blacklist does its job.

Same for POP3/IMAP: much like this REST thing that's getting so much attention, HTTP verbs GET and DELETE should be all you need to sift through the wad of timewasters people send you daily.

But, off course, it's just an idea. I've got lots of interesting stuff to work on before I'll put time in this probably, but if you think it's a good idea, let me know.

location: Opinions > Computer related > Internet
created: 30/09/2012 1:35:03 « modified: 30/09/2012 1:35:03 weight: 0
tokens:

"Even snel een login-procedure maken"...

Ik dacht 'ik bouw even snel een login-procedure op die website', niets van. Laat dat 'even snel' maar weg, en 'login-procedure' is volgens de regels van de kunst ook niet meer wat het was als je het vergelijkt met begin de jaren 90. Laat ik dan even snel even een exhaustieve lijst proberen op te stellen: (Als ik iets vergeet geef me een seintje!)

• Login form:
  • vakjes: "Login" (of "e-mail"?), "Wachtwoord"
  • knop: "Aanmelden"
  • checkbox "Aangemeld blijven"
  • CSRF bescherming op het form
  • een "Ik heb nog geen login" link (op de juiste manier!)
  • een "wachtwoord vergeten" link
  • (optioneel aanmelden met OAuth en links naar de usual suspects van tegenwoordig: Google,Facebook,Twitter...) [Dit heb ik nog nooit echt gedaan dus weet ik voorlopig niet wat dit verder inhoudt, vul ik mogelijk later nog aan]
• Login:
  • CSRF bescherming controleren, gepaste melding bij falen, (inbraakpoging melden/mailen/loggen?)
  • user data opzoeken aan de hand van login (of e-mail)
  • wachtwoord controleren, eerst met geschikte salt een hash maken
  • wachtwoord klopt:
    • sessie-user-data laden en doorsturen naar hoofdpagina, of originele URL als er naar het login-form werd doorgestuurd.
    • was "Aangemeld blijven" aangevinkt: token uitvinden en cookie zetten, toevoegen aan DB
    • (ergens tonen wat de vorige login op de account was)
  • klopt niet:
    • doorsturen naar login-form met de melding dat het niet klopt. (Hier is naar het schijnt één melding "Ongekende login of onjuist wachtwoord" beter, zodat niet kan worden nagegaan of iemand wel een account heeft.)
    • (klopt al een paar keer niet: tijdelijk toegang ontzeggen? inbraakpoging melding/mailen/loggen?)
• Nieuwe gebruiker form:
  • login, met script en call om te controleren of de login nog beschikbaar is
  • wachtwoord, twee keer, met script om te controleren of ze gelijk zijn
  • eventueel extra script met controle op kwalitelt: hoofletters en kleine letters en minstens een cijfer en/of leesteken, minimum lengte
  • (eventueel een CAPTCHA)
  • e-mail en script om te controleren of het wel 'x@x.x' is
  • e-mail nog eens tegen de schrijffouten
  • naam, adres? nog dingen? (en dan is er ook deze)
  • (wachtwoord-herinner-hint? zoals "de naam van je eerste huisdier/schoonmoeder/school/werk"...)
  • CSRF bescherming op het form
  • knop: toevoegen (altijd handig: onsubmit script om de knop disabled te zetten, tegen dubbel-posten)
• Nieuwe gebruiker maken:
  • CSRF bescherming controleren, gepaste melding bij falen, (inbraakpoging melden/mailen/loggen?)
  • (CAPTCHA controleren)
  • Gegevens aan de DB toevoegen, wachtwoord opslaan als een hash met geschikte salt.
  • (ofwel direct ook sessie-user-data laden, ofwel liever:)
  • e-mail sturen met een URL om de account te laten activeren
• URL specifiek om nieuwe accounts te activeren via link in mail met een specifieke lange random code
• Wachtwoord vergeten:
  • ofwel e-mail alleen en wachtwoord resetten met iets random (ook hier beter altijd zeggen dat een mail is verstuurd, ook als de e-mail helemaal niet in de DB zit) ,
    plus in de mail de uitleg wat te doen als dat ongevraagd is gebeurd
  • ofwel hier werken met de wachtwoord-herinner-hint [moet ik de details nog eens van opzoeken]
  • CSRF bescherming (eigenlijk gewoon iets globaal op alle forms)!
  • (eventueel CAPTCHA?)
• Bij nieuwe sessie (eerste bezoek aan de site):
  • Is er een "aangemeld blijven" cookie? Opzoeken in de DB, sessie-user-data laden en cookie vervangen met een nieuwe token, aanpassen in DB.
  • Geen cookie? Doorverwijzen naar login form (hou de eerste URL bij!)
  • (Of is er een 'anonymous user' account die je eerst kan laden tot iemand manueel inlogt?)
  • (In mijn geval was er ook een mogelijkheid om de gebruiker automatisch te herkennen als er met NTLM op IIS was aangemeld)
• log-off functie
  • log-off link met echte sessie-invalidatie
  • eventueel ook een keuze-optie om de automatic-login-cookie te verwijderen
• DB tabel user
  • login (controle uniek!)
  • wachtwoord (eigenlijk de hash van wachtwoord en salt)
  • e-mail adres
  • naam, adres? nog dingen?
  • wachtwoord-herinner-hint?
  • nog gegevens?
  • statistiek: originating IP, user-agent, aangemaakt op, gewijzigd op
• DB tabel 'user automatisch aanmelden' (er is duscussie over, maar ik denk dat een aparte tabel nodig is, ikzelf heb inderdaad thuis en op het werk aparte computers die ik wil ingelogd hebben en de rest niet)
  • user id
  • token (zoals verondersteld ook in cookie bij user)
  • statistiek: originating IP, user-agent, aangemaakt op, laatst gewijzigd op
• Beheer
  • lijst gebruikers, manueel toevoegen, wijzigen, verwijderen, wachtwoord resetten, (nog?)
  • lijst/controle automatisch aanmelden
  • wat doe je met stoute gebruikers (deze zeker eens lezen!)
• 'get my data': exporteren van alle data, zie http://www.dataliberation.org/

• 'delete my data','delete my account': alles wissen (of alleen de account disablen? anonymiseren?)

location: www.yoy.be > users > StijnSanders > IRL
created: 15/09/2012 16:32:15 « modified: 29/09/2012 11:29:56 weight: 0
tokens:

BSON and arrays

 Dear Mr. Sanders:

location: freeware > TMongoWire
created: 8/07/2012 7:50:12 « modified: 8/07/2012 7:50:12 weight: -100

Force Application.Run to skip the message loop (from within OnCreate event handler).

Warning: this is a very specific hack an may not apply to other situations.

For a number of projects that check for an update of the program executable on the central file server, from within the main form's OnCreate event handler, I was searching for a way to 'skip' Application.Run; when an update is found. I was using "raise EAbort.Create('Auto-update available.');" already to skip the remainder of the OnCreate event handler, but back in the project source (.dpr), Application.Run would start and perform the message loop. I used PostQuitMessage before, but that doesn't seem to always work, a better way would be to skip the message loop altogether.

I used "if SelfUpdateAvailable then Application.Run;" for some time, but in any new project that would use the auto-update mechanism, you would have to remember to put it in, or the support-calls after the first update for the program would remind you, or have you wondering first what's wrong with the auto-update this time. Anyway, it's better to leave the .dpr just the way Delphi hands it to you since it will modify it later when you add forms or data modules.

So I figured out I could disarm Application.Run by calling this from the 'start auto update' code:

  Application.ControlDestroyed(Application.MainForm);

This causes Application.MainForm to be unassigned, and Application.Run to skip starting the message loop, mission accomplished.

location: Application Development > Programming Languages > Object Pascal > Delphi
created: 10/05/2012 13:13:32 « modified: 10/05/2012 13:14:52 weight: 0
tokens:

MetaKeys

Download: MetaKeys_setup.exe ~672KB
MetaKeys is a resizable, customizable on-screen keyboard.

location: freeware
created: 17/04/2012 22:30:50 « modified: 26/02/2013 18:53:47 weight: 0
tokens: references:  

How to recreate 70's 'programming conditions'

When getting my batchelor CS, we were the last batch to get COBOL. (They replaced it with Java the next year. And Pascal with C++ as well, by the way.) It feels like I was the only one that understood the code width was limited to 72 characters and had to start at position 8, just to be sure it would fit on Hollerith cards. We had all the modern editors and compilers of the age, so I never worked with cards and tape.

I searched around a bit back then, and remember reading about how hard programming was back in the 70's (pre-dating my existance). COBOL was there just to make the process somewhat easier, and serve as a stepping-stone to a working result so you wouldn't have to do it all in raw processor-code. You still had to 'write' the program, prepare it as a stack of cards, get over the the card-reading office in time for when you're on the schedule (don't drop the cards!), wait for mainframe time to get around to having the compiler run on your code, and just hope and pray you finally would get something else back than a print-out of syntax errors. If the mail-boy didn't misfile it.

I remember even earlier on errors would arise because cards would get out of order (like I said, don't drop the stack, which regretfully unfortunately did happen), or even worse no compiler-errors arise and it only later gets apparent when the program behaved unexpectedly. (Did they even do debugging back then?) This was easily (...) solved by introducing code-line-numbers and have the (pre-)compiler order the lines from the input-file by number.

So I was wondering, in this day and age of virtual reality, advanced computing and online gamified educational experiences, would it be interesting to have something so us youngsters could appreciate how it was back then, by trying to recreate how it was to code. I'm not so much thinking about an emulated PDP-11 with a hall of tape stations. I'm more thinking of cubicles, internal mails, stacks of cards, print-outs, fighting for a few minutes of terminal access...

It's just an idea though. I'm afraid I don't have the time and skill to create a game like this.

location: www.yoy.be > users > StijnSanders > nice idea's but no time to spend on them
created: 16/04/2012 11:17:11 « modified: 16/04/2012 11:17:11 weight: 0
tokens:

MetaClick

Download: MetaClick_setup.exe ~677KB
MetaClick does mouse clicks for you when you're unable to click, or when clicking is an opeation that takes a lot of effort.

When the mouse pointer stops moving, MetaClick counts down a fixed interval and orchestrates a mouse click. This may cause you to click more than normally, but there's a lot of space to direct the click to when you don't need the click (e.g. the application caption bar), and if you think about it, in most cases you move to somewhere to click there. Switching modes enables double-clicks, drag operations, and rolling the scrolling wheel!

location: freeware
created: 12/04/2012 18:18:36 « modified: 20/02/2013 21:53:36 weight: 0
tokens: references:  

md5.pas

This is odd, it looks like there isn't an open source md5.pas unit. And by open source I mean under a permissive license or without copyright or licensing. So I set out to write my own and share it here. I based it on the original RFC, and even more the description than the reference implementation, because it uses a few of those C tricks I don't like. I hope it's performant enough, in case you're demanding performance of it. I've done some testing myself, but if you detect any kind of issue, please let me know.

md5.pas with MD5Hash for strings, sometimes used with passwords

md5Stream.pas with MD5HashFromStream which takes any kind of stream (TFileStream, TMemoryStream...), and optionally a preset number of bytes to take from the stream (from the current position!).

Enjoy. 

Update: since MD5 and SHA1 are really similar, I've done the same for SHA1 and added sha1.pas and sha1Stream.pas.
Update 2: since I needed it for something else, I've added RIPEMD160 as well. And while I'l at it SHA256 as well

md5.zip (12KB)

location: freeware
created: 16/02/2012 20:26:41 « modified: 14/03/2013 21:24:12 weight: 0
tokens:

COM/ActiveX objects and Windows Vista and newer

Applications that provide one or more ActiveX/COM automation objects, created with older versions of Delphi, running without administrative privileges, throw an EOleSysError when strarting up (typically from within the Application.Initialize;). This is because the application will try to register its type library and class registrations when it starts. Add this unit to the project to silent this error at run-time:

unit comFixW6;

interface

implementation

uses Windows, SysUtils, ComObj;

var
  SaveInitProc:pointer=nil;

procedure FixComInitProc;
begin
  try
    if SaveInitProc<>nil then TProcedure(SaveInitProc);
  except
    on e:EOleSysError do if e.ErrorCode<>TYPE_E_REGISTRYACCESS then raise;
  end;
end;

initialization
  SaveInitProc:=InitProc;
  InitProc:=@FixComInitProc;

end.

location: Application Development > Programming Languages > Object Pascal > Delphi > ActiveX / COM objects
created: 2/02/2012 21:55:51 « modified: 2/02/2012 22:01:41 weight: 0
tokens:

{x:{$gt:10}}

BSON(['x',BSON(['$gt',10])])

BSON([x,'[','$gt',10,']'])

>=, <= operators

Very nice, I'm trying it.

Is there a way to use >=. <= operators for quering objects? I know I should use &gt, but, how to use it with TMongoWireQuery?

location: freeware > TMongoWire
created: 2/02/2012 14:02:01 « modified: 2/02/2012 21:31:28 weight: -100
tokens:

Delphi 6: Sockets.pas doesn't call WinSock.closesocket!!!

I've made a strange discovery! The code in Delphi's default Sockets.pas doesn't call WinSock's closesocket! (At least Delphi 6, newer versions may have this fixed) Which causes a handle leak when you use TTCPClient and related classes. (At least in Delphi 6 and 7, I haven't been able to check newer versions.)
Update: I've found this item on edc's qc (from 2002!)

I've done extensive debugging to find out which would make the best work-around and this is what I came up with:

class
  TMyTCPClient = class(TTCPClient)
  public
    procedure Close; override;
  end;
 

procedure TMyTCPClient.Close;
var
  h:TSocket;
begin
  h:=Handle;
  inherited;
  if h<>INVALID_SOCKET then closesocket(h);//handle leak?
end;

You need to keep a local copy of the Handle value, since inherited performs shutdown-code, but also sets the socket handle value to INVALID_SOCKET without calling closesocket.

There appears to be an OnDestroyHandle event, but the socket's handle is no longer available by the time it gets called.

It's a nasty little bug that also only pops up unexpectedly after a long time running. It took me a pretty long while with intensive sleuthing now and them, but I'm glad I found this.

location: Application Development > Programming Languages > Object Pascal > Delphi
created: 30/01/2012 14:43:11 « modified: 2/02/2012 22:17:10 weight: 0

Printer.Canvas is not threadsafe!

What a strange discovery I made today. I was hunting down a weird exception we noticed in the logs of the live system.

It turns out that a 'global' callback procedure is being called when you use Printer.Canvas (Printer.Canvas.StretchDraw in my case) by the GDI subsystem. The default AbortProc in Printers.pas calls Application.ProcessMessages, which was causing trouble in my case.

There's a quick workaround:

function MyAbortProc(Prn: HDC; Error: Integer): Bool; stdcall;
begin
  Result := not FPrinter.Aborted;
end;

And then right after Printer.BeginDoc; call SetAbortProc(Printer.Canvas.Handle,MyAbortProc);

location: Application Development > Programming Languages > Object Pascal > Delphi
created: 26/01/2012 19:46:39 « modified: 26/01/2012 19:46:39 weight: -200
tokens:

Trajectmeting E17

Achthonderdduizend euro! Achthonderd duizend euro is al besteed aan een systeem om op twee punten langs een weg een poging te doen om je nummerplaat geautomatiseerd te lezen, en aan de hand van de tijd daartussen vast te stellen of de bestuurder zich hield aan de maximumsnelheid of niet. Eerst las ik dat er abnormaal zware voorwaarden waren gesteld om te blijven opereren in extreme condities zoals diepe vorst, maar daarna las ik dat er ernstige fouten zaten in zelfs de allerlaatste test-metingen. Het eerste is misschien storend, maar heb ik begrip voor, dat laatste is ronduit verschrikkelijk.

Ik vermoed, ook hier, dat er offertes zijn opgehaald bij precies drie bedrijven (omdat het er minimum drie moeten zijn), eentje belachelijk duur, eentje terecht duur, maar te duur in vergelijking met de derde en goedkoopste. Ik schreef bijna belachelijk goedkoop, maar achthonderdduizend blijft een bedrag dat ik wel eens graag bij de lotto zou willen winnen (minimum natuurlijk). Ik hoef u er waarschijnlijk niet bij te vertellen welke twee van de drie het beste voor-onderzoek voor hebben gedaan.

Het grappige aan dit alles is dat ik laatst op het werk een proof-of-concept opstelling heb opgesteld om met een minimum aan middelen 'barcodes in de verkeerde richting' te scannen langs een transportband. Ik gebruikte open-source-software en een webcam die we als relatiegeschenk kregen en in de kast was beland. Als ik even mijn eigen bestede tijd niet reken, dan kom ik zelfs niet met een veelvoud van mijn budget aan het totaal van de offerte die we een professionele firma lieten opstellen, want alle veelvouden van nul zijn ook nul.

Misschien is dit niet helemaal te vergelijken met juridisch geldige trajectmeting op de openbare weg, maar volg even mee. Tijdens het familiale chaufferen van het voorbije oud-en-nieuw-weekend, speelde ik met het volgende in gedachten. De grootste materiaalkost zou moeten de beeldvormende toestellen zijn. Daar kan je niet rond. Ik lees dat er voor de trajectmeting op de E17 voor infra-rood werd gekozen, maar dit ernstige invloeden ondervind van wind en weer. Dit zou beter zijn om de tekst op nummerplaten waar te nemen, maar ik geloof dit niet echt. Een nummerplaat is nog altijd bedoeld om het best met het blote oog waar te nemen. Dus gebruiken we best 'gewone' camera's die zichtbaar licht meten. Dit zal ook de kost drukken want je vind ze nagenoeg overal tegenwoordig.

In een andere dimensie, bijvoorbeeld een waar ik het voor het zeggen zou hebben, zou de inrichtende macht gewoon kunnen opleggen dat elke nummerplaat moet magnetisch of radiografisch reageren op een elektronische lus in het wegdek met een digitale code die de belettering van de nummerplaat reproduceert, maar dit ligt waarschijnlijk zowel politiek als inzake privacy best gevoelig.

Dan, eenmaal je beeld kan vastleggen, moet je op zoek naar de nummerplaat. Er bestaat waarschijnlijk wel open-source OCR software (of er zou er moeten bestaan), maar die zou ik niet zomaar loslaten op het rauwe beeldmateriaal. Meeste nummerplaten zijn van dezelfde grootte, en dus zou je moeten kunnen snel op zoek gaan in het beeld naar een rechthoek van deze verhouding. Nummerplaten hangen meestal horizontaal, da's ook handig. Zelfs als je geen nummerplaat kan waarnemen, ik denk aan bezoekers uit het buitenland of tijdelijke oplossingen achter de voorruit, dan zou ik er durven op wedden dat de specifieke verhouding van breedte en hoogte, en eventueel andere kenmerken van de omtrek, van alle auto's die tegelijk op het stuk trajectmeting aanwezig zijn, een behoorlijk hoge graad van uniciteit vertoont (een beetje zoals deze).

Deze gegevens moeten allemaal nog verwerkt worden, maar veel moet dat niet kosten. Tegenwoordig worden rekeneenheden niet alleen veel kleiner maar ook veel goedkoper. (Ken je deze?) En iets anders kiezen dan 'gewone' STP netwerkkabels zoals ze overal al liggen zou ik ook niet doen.

Dit alles zou toch veel minder moeten kosten dan wat nu al weer is verdwenen van de staatsrekeningen? Toegegeven, er kruipt nog een hoop werk in. Tegen weer en wind de dingen gaan ophangen. Uitgebreid testen, finetunen, controleren... Maar net dat zijn ze nu waarschijnlijk ook aan het doen. Al maanden lang.

location: Opinions > ".be"-related
created: 2/01/2012 8:29:04 « modified: 2/01/2012 8:30:29 weight: 0
tokens: