Ich habe heute mal etwas Zeit gefunden, mich noch einmal mit dem Problem zu beschäftigen. Es ist mir tatsächlich gelungen den code auch innerhalb der
dll laufen zu lassen (zum test einfach mal eine simple procedure exportiert:
Delphi-Quellcode:
procedure paral_for;
var
l: Tlist<Boolean>;
pc: Iprimecheck;
const
N = 5000;
var
Indicator: Tindicatorthread;
Pool: TThreadPool;
begin
l := Tlist<Boolean>.Create;
pc := Tfactory.New<Iprimecheck>;
Indicator := Tindicatorthread.Create(False);
Indicator.FreeOnTerminate := True;
Logger.Add('checking the first ' + inttostr(N) + ' primes.Multithreaded.');
try
Pool := TThreadPool.Create;
Pool.SetMaxWorkerThreads(3);
Pool.SetMinWorkerThreads(3);
TParallel.For(0, N,
procedure(I: Integer)
begin
l.Add(pc.Checkprime(inttostr(I)));
end, Pool);
finally
Pool.Free;
Indicator.Terminate;
for var B in l do
Writeln(B);
l.Free;
end;
end;
//..
paral_for name 'checkprime_paralFor',
In der main app lasse ich die dann laufen, wie gewünscht:
Delphi-Quellcode:
//loadlibrary(..);
Tester.Test(
procedure
begin
@paral_for_external := getprocaddress(module,
Pchar('checkprime_paralFor'));
if Assigned(@paral_for_external) then
paral_for_external;
end, 'external Parallel for loop');
//..
//freelibrary(..);
Zwei (prominente) dinge habe ich am setup geändert:
-Jetzt arbeite ich an einem anderen PC - Gleiche Delphi-Version 10.4 comm.
- KEINE nutzung von Sharemem.pas (dem Memorymanager). Die war irgendwie in der
DLL aktiv, komischerweise nicht aber in der exe.
Ich würde mal auf die Kausalität mit letzterem tippen. Kann das sein? Es war ja der Fall, dass es mir die
IDE ja nicht mal erlaubt hat, in den Funktionskörper der Tparalell.for ().. zu springen, sondern sie hat an der Stelle immer direkt gehangen.
Lange rede, kurzer Sinn:
Ich denke ich habe das / ein kritisches Problem gefunden und beheben können. Zumindest in einem Testcase macht der code-Abschnitt jetzt was er soll. Ich bin gespannt, wie es aussieht, wenn ich das auf den originalcode anwende.
BTW: *darf* man ungeschützt innerhalb der paralel-loop auf eine gemeinsame liste zugreifen (sprich brauche ich hier eine CS oder macht der das in dem Fall selber?). Im allgemeinen würde ich das ja nicht so machen.