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