Hello Martin.

OK, the conversion (seems) done.
There are no more errors, crashs nor warnings.
But there is no sound too.  ;-(

I do not catch what to do with the main-procedure-loop of the mse thread.

With a fpc TThread, the main-procedure-loop is the published "Execute" 
procedure.
So the one has to override it to use it.

Here what I did for mse:

Tmymsethread = class(tmsethread)
ExecuteLoop: threadprocty;
hasstarted: boolean ;
procedure start;
constructor create(const athreadproc: threadprocty;
                const afreeonterminate: boolean = false;
                const astacksizekb: integer = 0);
end;


constructor Tmymsethread.create(const athreadproc: threadprocty;
                const afreeonterminate: boolean = false;
                const astacksizekb: integer = 0);
   begin
   hasstarted := false;
   inherited Create(executeloop, true, astacksizekb);
   end;

// The Main Loop Procedure
function Tmymsethread.ExecuteLoop : threadprocty;
begin
while hasstarted = false do sleep(10); // this because there is no 
CreateSuspended mse parameter.

while // here the big loop
...
end;

// to start the big loop:
procedure start;
begin
hasstarted := true;
end;

But after start, nothing appends.

Other thing.
I use RTLEvent for pausing threads.
Does msethreads accept it ?

Thanks.

Fre;D

------------------------------------------------------------------------------
Check out the vibrant tech community on one of the world's most
engaging tech sites, Slashdot.org! http://sdm.link/slashdot
_______________________________________________
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Reply via email to