Hello,

i would like to present my own library which can be used as single thread to multithread application move.

Some description is on my github url :
https://github.com/tomas-raul/MultiTask

For example, you have simple methods like

LoadImage(Fn : string);

and this method you run over and over - for some image tranformation f.e. with this :

for i := 1 to 100 do
  LoadImage(ItToStr(i)+'.jpg');

With my library (and the precompiler) - you can do the same with multithread like :

for i := 1 to 100 do

  LoadImage_MT_LOW(ItToStr(i)+'.jpg'); // this run this method in

MultiTask environment with LOW priority (this is not thread priority, but place in task queue).

Today update is - integrated precompiler, which you can run from before build event and it create adekvate methods, and somethink else..

Precompiler show you help by -h param :D

Precompiler adds :

procedure Load_Image_MT( const id : integer;  const item : iSuperObject;
const fn : string);
  procedure Load_Image_MT_Last( const id : integer;  const item :
iSuperObject;  const fn : string);
  procedure Load_Image_MT_Low( const id : integer;  const item :
iSuperObject;  const fn : string);
  procedure Load_Image_MT_Normal( const id : integer;  const item :
iSuperObject;  const fn : string);
  procedure Load_Image_MT_High( const id : integer;  const item :
iSuperObject;  const fn : string);
  procedure Load_Image_MT_ASAP( const id : integer;  const item :
iSuperObject;  const fn : string);
  procedure Load_Image_MT_Unique( const id : integer;  const item :
iSuperObject;  const fn : string);
  procedure Load_Image_MT_Unique_Last( const id : integer;  const item :
iSuperObject;  const fn : string);
  procedure Load_Image_MT_Unique_Low( const id : integer;  const item :
iSuperObject;  const fn : string);
  procedure Load_Image_MT_Unique_Normal( const id : integer;  const item
: iSuperObject;  const fn : string);
  procedure Load_Image_MT_Unique_High( const id : integer;  const item :
iSuperObject;  const fn : string);
  procedure Load_Image_MT_Unique_ASAP( const id : integer;  const item :
iSuperObject;  const fn : string);

For your code :

tIQDeploy_v4 = class(TObject) {class_MT}
    published
    {$I MT_onNewWork.inc}
     procedure Load_Image(const id: integer; const item: iSuperObject;
const fn: string); {gen_MT}
   {$I MT_def.inc}
   end;
implementation
{$I MT_impl.inc}

Tomas

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus/attachments/20170329/debc60d2/attachment-0001.html>