yoy - “Why-O-Why”

» frame | home browse filter search | refresh | log on

  printed vrijdag 24 mei 2013 16:19:03 from www.yoy.be

Building query...

filter...

"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:

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:

"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:

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:

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:

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:

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:

Safari Mobile: no focus from load or timed events

On one website, I'm using jQuery to load a form into a cell of a table to edit a value on that row, and set focus to the edit field, so the user can edit or overwrite the value rightaway.

On an iPad (not sure which version it was on), the keyboard doesn't show, and the field doesn't get the focus. It takes another click onto the field to give it focus and get the keyboard to show.

Sleuthing around, it appears that this is by design! Because showing the keyboard is slow and/or intrusive?! I disagree. I think this is a clever way of degrading the user experience of using an interactive website with Safari Mobile in such a way it would get interesting to create a specific iPhone/iPad app.

Though other sources tell me this is a bug and could get fixed in future versions...

location: Application Development > Platforms > iOS
created: 30/07/2011 2:01:14 « modified: 30/07/2011 2:01:14 weight: 0
tokens:

SQLite, a foreign key and its referential integrity...

Hmm, I guess this will take a lot more getting used to than I thought... Consider this code:

create table tbl1 (
id integer primary key autoincrement,
name varchar(50) not null
);
create table tbl2 (
id integer primary key autoincrement,
tbl1_id int not null,
name varchar(50) not null,
constraint FK_tbl1_tbl2 foreign key (tbl1_id) references tbl1 (id)
);
insert into tbl1 (id,name) values (1,'test1');
insert into tbl2 (id,tbl1_id,name) values (2,1,'test2');
insert into tbl2 (id,tbl1_id,name) values (3,2,'test3');
update tbl1 set id=id+100;
select * from tbl1;
select * from tbl2;

This works on SQLite3 without errors! Not on the inserts, setting an autoincrement field, not on updating the id field(s) that are in use by a foreign key, which actually breaks referential integrity between the two tables! Or have I stumbled upon a fault/bug/incorrectness in SQLite3?

location: Application Development > Data Storage > SQLite
created: 2/04/2011 0:03:07 « modified: 2/04/2011 0:04:27 weight: 0
tokens:

bitcoin: digital currency of the people (be your own bank)

I've been asked if I accept donations for the freeware I make available over this website, but I don't. I don't have a legal entity to my name to accept any funds for work done, and frankly I don't even care for checking if and how I could get this in the clear with the tax services.

Today I read about http://www.bitcoin.org/ and this looks like exactly what I need. It's not that hard to set up, and the fact that no institute like a bank is envolved is really interesting. Even the 'funds' itself actually measures in 'mathematical solids in the digital world', so if I were to amass e certain amount of it, it would get financially interesting to check out these aforementioned tax issues (perhaps by an accountant...)

So, if anyone wants to wire me anything (even 0.01BTC just to check if it works) here's a bitcoin address:

1Q5omBMcpRQkx7WqPpHceM37ZBqpCgyrDB

location: spotted on the net > legal issues > financial
created: 23/03/2011 16:45:07 « modified: 23/03/2011 16:45:07 weight: 0
tokens:

TSQLite

An alternative SQLite3.dll wrapper

location: freeware
created: 14/12/2010 15:23:58 « modified: 14/12/2010 15:23:58 weight: 0
tokens:

TMongoWire

Delphi MongoDB Driver

A Delphi driver to access a mongoDB server.
It maps variables onto Delphi variables of type OleVariant, which resembles the loose typing of JavaScript a lot.
There are two main units and three main object to enable access to a mongo DB server:

bsonDoc.pas
  TBSONDocument = class(TInterfacedObject, IBSONDocument, IPersistStream)

• Holds the data of a 'document', the basic unit mongoDB works with.
• Implements an IBSONDocument interface which allows it to be referenced by an OeVariant variable, and this embedded documents.
• Implements the IPersistStream to enable loading from and saving to BSON, the internal binary storage specification used by mongoDB.

  function BSON:IBSONDocument; overload;
  function BSON(x:array of OleVariant):IBSONDocument; overload;

• Creates a BSON document object ready for use.
• Optionally pass a sequence of key-value pairs, e.g.: BSON(['x',5,'y',7]);
• Use '[' and ']' to created embedded documents, e.g.: BSON(['x','[','$gt',7,']']);

mongoWire.pas
  TMongoWire=class(TObject)

• A connection to a mongoDB server. Supports getting single items, performing inserts, updates and deletes.

  TMongoWireQuery=class(TBSONDocumentsEnumerator)

• A query to a mongoDB server, handles the cursor and subsequent requests to the server to get more data when needed.

Additional tools

bsonUtils.pas
  function BsonToJson(Doc:IBSONDocument):WideString;
    Converts a BSON document into a JSON string.
  function JsonToBson(jsonData:WideString):IBSONDocument;
    Converts a JSON string into a BSON document.
  procedure JsonIntoBson(jsonData:WideString;doc:IBSONDocument); overload;
    Parses a JSON string and adds any keys to an existing BSON document, overwriting the value if a key already exists.
  procedure JsonIntoBson(jsonData:WideString;doc:IBSONDocument;var EndIndex:integer); overload;
    Parses only the first JSON object from a string into an existing BSON document, and returns the index into the string where the JSON object ends.
    Use this method to iterate over a list of JSON strings. (See also IBSONDocument.Clear)

location: freeware
created: 2/12/2010 10:05:35 « modified: 24/06/2012 21:39:02 weight: 0
tokens: references:      

How to set the thread display name for the thread list debug window

This little trick appears to work in the Delphi debugger also! Use this code to set the debug display name for the current thread:

interface
 

function IsDebuggerPresent: BOOL; stdcall;
 
implementation
 

uses Windows;

 
function IsDebuggerPresent; external 'kernel32.dll';
  
procedure SetThreadName(ThreadDisplayName:AnsiString);
var
  ThreadInfo:record
    dwType:LongWord;
    szName:PAnsiChar;
    dwThreadID:LongWord;
    dwFlags:LongWord;
  end;
begin
  if IsDebuggerPresent then
    begin
      ThreadInfo.dwType:=$1000;
      ThreadInfo.szName:=PAnsiChar(ThreadDisplayName);
      ThreadInfo.dwThreadID:=LongWord(-1);//calling thread
      ThreadInfo.dwFlags:=0;
      try
        RaiseException($406D1388,0,SizeOf(ThreadInfo) div SizeOf(LongWord),@ThreadInfo);
      except
        //
      end;
    end;
end;

location: Application Development > Programming Languages > Object Pascal > Delphi > Debugging
created: 5/11/2010 0:25:47 « modified: 5/11/2010 0:45:47 weight: 0
tokens:

Programmeren met het middellangetermijngeheugen.

Ik heb net een raar idee. Zou het kunnen zijn dat ik programmeer met mijn middellangetermijngeheugen? (Wat een lang woord.) Dingen die je in je op neemt verwerk je in je kortetermijngeheugen, en als ze daar even blijven gaan ze over naar het middellangetermijngeheugen. Wat daar een tijdje zit maakt het langetermijn zo'n beetje zijn keuze in wat die gaat bijhouden. (Daarom lijkt het achteraf altijd alsof de tijd voorbij is gevlogen, maar da's een ander verhaal.)

Wat er veel gebeurt bij programma's schrijven is lezen! Lezen, lezen en lezen, en onderwijl onthouden wat er precies allemaal gebeurt in veel, zoniet alle mogelijke gevallen. Dat wordt soms wel eens een hele hoop, maar al die dingen lezen (en herlezen, en herlezen...) bouwt op in het kortetermijngeheugen, tot de hele structuur zo'n beetje kant en klaar in je hoofd in het middellangetermijngeheugen zit, en dan pas kan je verder met te veranderen aan die complexe structuur van logica. En je aanpassingen testen en zo.

Als je dat dan een paar dagen niet meer gebruikt, dan verdwijnt het. Bij mij toch. Als ik er dan een paar weken of maandan later nog eens op moet terug komen, dan komen de grote lijnen wel terug (ik vermoed uit het langetermijngeheugen), maar lang niet alles. Dus wordt het weer lezen en lezen...

t'Is natuurlijk maar een idee.

location: www.yoy.be > users > StijnSanders > IRL
created: 8/10/2010 16:12:15 « modified: 8/10/2010 16:12:15 weight: 0
tokens:

Flash is dood, ander en beter

http://www.theregister.co.uk/2010/04/10/adobe_man_on_apple/

Kom, kom, kom. Ik kan ze heel goed begrijpen. Het is tijd voor een nieuw tijdperk, en dat merk je aan alle groten der aarde, niet alleen Apple en Google, maar zowat alle nieuwelingen: Facebook, Twitter, Youtube. Java en plugins in browsers allerhande zijn nodig geweest om vanop een soort gefragmenteerd platform weg te kunnen bij het grote publiek die met allerhande metaal en verbindingen van bemerkelijke kwaliteit zaten. We hebben er eigenlijk maar van kunnen uitgaan dat het bij de meeste een beetje werkte.

Maar de nieuwe wind die waait, blaast in twee richtingen. Misschien een beetje vreemd om te volgen voor de buitenstaander, maar in de onderste lagen gaat het naar de windrichting van de pure techniek. Schrijf code, maar heel weinig, en direct voor een processor. Er blijven er maar een paar soort meer over, en dan is het te doen om ze elk specifiek te bedienen (x86, ARM...). Er is dus geen nood meer aan tussenstapjes, logica die onderweg ergens rondslingert, zoals SQL of Java. Of Flash. Alleen het zuivere spul.

Vanboven stuurt de wind je naar een virtuele wereld. Of toch zo lijkt het, want er draaien gewoon nog altijd instructies op een rekeneenheid. Alleen is er net voorbij de grens van het uitdeinende universum van threads, processen en het OS, een laagje bij die geruisloos wappert tussen je huidige illusie van werkelijkheid en het hoopje metaal dat de kleur van de lichtpuntjes voor je ogen aanstuurt.

Het wordt dus aanpassen geblazen aan veel rekenkracht, veel geheugen, en veel mogelijkheden waar het allemaal kan zitten. In je broekzak, in een kantoorgebouw ergens, of allemaal tesamen.

Klinkt allemaal wel mooi. Maar toch is er iets dat niet goed onder het dak van mijn luchtkasteel lijkt te passen: JavaScript. (Die trouwens nog weinig met Java te maken heeft, zeg en schrijf maar JavaScript, mocht er een leek meeluisteren, maar lees ECMAScript.) Even leek het of het ook in de mist van de geschiedenis zou verdwijnen, maar dankzij XMLHttpRequest staat het nu vooraan om de hemel mee te kleuren. Het is naar verluid een drukkende kracht die het web naar nieuwe hoogten brengt. En blijkbaar niet alleen het web, als ik het zo bij Palm en Apple zie. En Mozilla.

Ik denk dat de grote verdienste is dat je in Javascript zo alles lekker vaag kan laten. Is het een object? Een functie? Doe maar iets. Je ziet wel of je er iets uit krijgt. Je browser is slim genoeg om zelf uit te zoeken wat in machine-instructies kan. Is het een string? Een stuk van de pagina? Misschien wel. Als niet iets anders het heeft vervangen met dezelfde naam en interface. Mash-ups allerhande schijnen al aan de horizon. We kunnen er virtueel nu al virtueel al ons virtueel werk mee doen. (Ik wist niet goed waar het woord 'virtueel' in te planten, dus laat ik ze alledrie staan, kies zelf maar.)

location: Opinions > Computer related > Development
created: 12/04/2010 21:38:46 « modified: 12/04/2010 21:42:29 weight: 0
tokens:

Programming the Commodore 64

http://developers.slashdot.org/story/10/03/13/2316217/Programming-the-Commodore-64-the-Definitive-Guide

Jaja, toen kon je nog een OS zelf beginnen. Tegenwoordig word ik uitgelachen.

(Hoewel deze wel de moeite is: http://wiki.osdev.org/ )

location: spotted on the net > IT-related > development related
created: 14/03/2010 13:03:11 « modified: 14/03/2010 13:03:11 weight: 0
tokens:

Encryption Export Regulation

Ja miljaar wat een boterham:

This project DOES incorporate, access, call upon or otherwise use encryption. Posting of open source encryption is controlled under U.S. Export Control Classification Number "ECCN" 5D002 and must be simultaneously reported by email to the U.S. government. You are responsible for submitting this email report to the U.S. government in accordance with procedures described in:http://www.bis.doc.gov/encryption/PubAvailEncSourceCodeNotify.htmland Section 740.13(e) of the Export Administration Regulations ("EAR") 15 C.F.R. Parts 730-772.

Eeuh? Ik denk het niet zeker? (via http://yro.slashdot.org/story/10/02/08/1620238/SourceForge-Removes-Blanket-Blocking)

location: Application Development > Application Lifetime Management > SourceForge
created: 8/02/2010 23:51:43 « modified: 8/02/2010 23:51:43 weight: 0
tokens:

Isometric perspective

Mijn eerste stapjes in doe-het-zelf isometrisch perspectief, schoon he?

Voor wie het zich afvraagt, de onderste helft bevat XYZ coordinaten in de RGB planes, de schakeringen in het zwart zie je met het blote oog niet, maar de negatieve coordinaten zie je wel mooi in het groen, rood en met zowel X en Y in het negatief geel.

location: www.yoy.be > users > StijnSanders > IRL > Nostalgia
created: 21/01/2010 23:05:42 « modified: 21/01/2010 23:07:29 weight: 0
tokens:

Chrome fast boot

hahaha! hun schema loopt bovenaan over! hahaha!

location: Information > Technology > Companies > Google > Google Chrome > Google Chrome OS
created: 27/11/2009 15:35:33 « modified: 27/11/2009 15:35:33 weight: 0
tokens:

Go

Google Go... heeft al bij al nog lang geduurd!

location: Application Development > Programming Languages
created: 12/11/2009 15:35:57 « modified: 12/11/2009 15:35:57 weight: -210
tokens:

steverefethen.com

dit is handig, ik kende er een paar van deze lijst nog niet:
http://www.stevetrefethen.com/blog/DelphiIDEWisdom.aspx

location: Application Development > Programming Languages > Object Pascal > Delphi > Delphi Websites
created: 20/09/2009 23:20:43 « modified: 20/09/2009 23:20:43 weight: 0
tokens:

Installers upgraded to Setups!

I've (finally) re-done the 'installers' on a few of my freeware applications, thanks to InnoSetup:

• SideSwitch
• TreeBrowse
• AllSorts
• AutoClick

They are a bit bigger now, but look much better, and have a full uninstaller and an entry listed in the 'add remove programs' control panel list.

location: www.yoy.be > users > StijnSanders
created: 28/08/2009 0:03:41 « modified: 28/08/2009 0:07:14 weight: 0
tokens: references:          

2009-2010 ICT Jaarboek: 'Delphi programma's draaien op een (niet gratis) runtime.'

Zeveraars! Uit het "2009-2010 ICT Jaarboek":

"Heel wat bedrijven gebruiken nog met success de zogenoemde 4GL-omgevingen uit de jaren '90. [...] Voorbeelden zijn Delphi, [...] Die programma's draaien alleen in hun eigen runtime-omgeving, en die is niet gratis."

Zeveraars! Een referentie naar hun bron moest je zo toch al niet verwachten, maar ze halen daarenboven RAD-omgevingen met 4GL-talen door elkaar! En programma's gemaakt met Delphi hebben helemaal geen run-time nodig!

Trouwens, hun link naar het jaarboek werkt niet eens!
En al hun 'nieuws' wist ik al lang... (en dan zwijg ik nog over dat ik ze niet eens in Google vond)
http://www.itprofessional.be/

location: Application Development > Programming Languages > Object Pascal > Delphi
created: 20/08/2009 15:55:19 « modified: 20/08/2009 15:55:19 weight: 0
tokens:

Colin Winson's Delphi Website

location: Application Development > Programming Languages > Object Pascal > Delphi > Delphi Websites
created: 6/08/2009 14:00:35 « modified: 6/08/2009 14:00:35 weight: 0
tokens:

u+263A: Have a nice day!

(via http://www.unicode.org/charts/PDF/U2600.pdf)

location: spotted on the net > technology
created: 9/07/2009 11:58:32 « modified: 9/07/2009 11:58:32 weight: 0
tokens:

NoSQLers plannen Boston Tea Party?!

http://www.computerworld.com/action/article.do?command=viewArticleBasic&articleId=9135086

Ah, leuk om te horen dat er al zoiets bestaat als "NoSQLers", maar afschaffen is allemaal gemakkelijk. Wat komt er voor in de plaats?

"[NoSQL] aren't relevant right now to mainstream enterprises," Oskarsson said. Awel ja, voor mij ook niet. Ik geloof het allemaal wel dat die grote jongens meer kunnen doen met een plattere 'object storage' (of nog erger: 'key-value storage'), maar toch lijkt het me dat ze later nog op verrassingen gaan stoten als ze van hun oceaan aan data plots nog een andere index nodig gaan hebben dan ze al hebben... Dan wordt het even werk inhalen voor hun!

location: Application Development > Programming Languages > SQL
created: 3/07/2009 9:28:52 « modified: 3/07/2009 9:29:02 weight: 0
tokens:

Table's zijn slecht voor layout!

Ik ben altijd blij als ik op het net iets vind dat proper en overtuigend staat uitgelegd, waar ik zelf wel eens niet in slaag om over te brengen:
http://phrogz.net/CSS/WhyTablesAreBadForLayout.html
In de lijn ligt ook een discussie over frames, maar daar heb ik al weer een hele tijd niets meer over gehoord, misschien zijn de mensen daar wel van overtuigd geraakt dat het slecht is (en was daar een hoop vieze virussen voor nodig...)

location: spotted on the net > IT-related > development related
created: 27/06/2009 11:13:42 « modified: 27/06/2009 11:13:42 weight: 0
tokens:

Vreemd gedrag van dec() met Int64...

Tiens, wat ik hier nu plots ontdek... Ik ben aan xxmGecko bezig, een firefox-plugin-nsIProtocolHandler. Die werkt intern dus wel eens met een stream, en om echt grote streams te kunnen ondersteunen, gebruik je dus Int64's voor Size en Position...

Nu gebruik ik ook veel inc en dec. Waarschijnlijk een overblijfsel uit mijn (heel beperkte) assemblerjeugd. Dus dacht ik dat die ook wel veilig zijn om te gebruiken met Int64's.

Nu, kreeg ik tijdens het debuggen plots dingen die vastlopen en waardes in de buurt van 4294967295 in die Int64's! Voor wie het getal niet herkent, je krijgt het als je de laagste 32 bits op 1 zet. En alle bits die op 1 springen gebeurt wel eens als je een negatief cijfer krijgt.

Dat er een negatief cijfer komt in een stream position, is nog een ander probleem dat ik moet uitzoeken, maar waarom die Int64 maar de helft van de bits gekeerd krijgt inplaats van alle 64 (en dus echt een negatief cijfer zou weergeven) lijkt me een slecht bijverschijnsel van dec te gebruiken met Int64's.

Alle dec(A,B); vervangen met A:=A-B; dus vanaf nu!

location: Application Development > Programming Languages > Object Pascal > Delphi > Debugging
created: 25/06/2009 23:04:42 « modified: 25/06/2009 23:04:42 weight: 0
tokens:

Programmeer-annectodes over sex...

Teju, als ze mijn proxy log greppen op "sex" dan hang ik er aan natuurlijk:

One amusing example: [...] For a long time "xx" was used as a code for "unknown" but the actual code-book declared "xx" to be the code for sex. So a lot of stories would go out under our sex topic that had absolutely nothing to do with it until we built heuristics to tell if the reporter really meant sex with their xx code. (The sex newsgroup was, for some reason, one of the most popular.)

(via http://www.templetons.com/brad/clarinet-history.html)

location: spotted on the net > IT-related > development related
created: 9/06/2009 11:23:39 « modified: 9/06/2009 11:24:36 weight: 0
tokens:

~594ms [anonymous@yoy.be]