Zwei Threads wollen etwas in die Queue stopfen

**TiGü**

Hallo miteinander,

ich habe wieder ein merkwürdiges Problem und suche jemanden, der mir den Knoten im Kopf löst.
Ich habe mein Problem auf ein kleines Testprojekt reduzieren können (siehe Anhang). Es besteht aus einen Formular mit einen Start-Button und einen Memo.
Es ist mit DX erstellt, sollte sich aber so auch in jeder Version größer XE2 öffnen lassen?!

Problembeschreibung:
In einer DLL laufen zwei Threads, die Daten produzieren und per Callback an das Hauptprogramm übertragen.
Da die Callback im Kontext des Threads aufgerufen wird, verbietet sich hier natürlich der direkte Zugriff auf Member des VCL-Mainthreads.
Daher stopfe ich die übergebenden Daten per TThread.Queue in die Warteschlange.

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TDataConsumerFrm.Notify(const AData: Pointer; const ADataCount: Cardinal);

var

  LArray: TArray<Integer>;

begin

  FLock.Enter; 

  try

    if Assigned(AData) and (ADataCount > 0) then

    begin

      LArray := Copy(TArray<Integer>(AData), 0, ADataCount);

      TThread.Queue(nil,

        procedure

        begin

          ShowData(LArray);

        end);   

    end;

  finally

    FLock.Leave;

  end;

end;

Nach kurzer Laufzeit erhalte ich dann merkwürdige Zugriffsverletztungen, die ich mir so nicht erklären kann, da es ja eine zeitlang gut geht.

markieren

Code:

			Project QueueTestProject.exe raised exception class $C0000005 with message 'access violation at 0x00000000: read of address 0x00000000'.

Project QueueTestProject.exe raised exception class EInvalidPointer with message 'Invalid pointer operation'.

Callstacks:

markieren

Code:

			System._IntfCopy(???,???)

:0040cfbd @IntfCopy + $9

QueueFrm.TDataConsumerFrm.Notify($2D828E8,4)

QueueDLL.{Data.Producer.Impl}TDataProducer<System.Integer>.SendNotify

...

System.TObject.Create

QueueDLL.{Data.Producer.Impl}TDataProducer<System.Integer>.SendNotify

QueueDLL.{Data.Producer.Impl}TDataProducer<System.Integer>.Produce

...

System.SysGetMem(???)

:00405571 SysGetMem + $3D

:0116d3b6 {Data.Producer.Impl}TDataProducer<System.Integer>.SendNotify + $86

...

:7502c42d KERNELBASE.RaiseException + 0x58

System._Dispose(???,???)

System.ErrorAt(92,$40B05C)

System.Error(reInvalidPtr)

System._Dispose(???,???)

:0040b05c @Dispose + $C

Vcl.Forms.TApplication.WndProc((0, 0, 0, 0, 0, 0, (), 0, 0, (), 0, 0, ()))

System.Classes.StdWndProc(14223452,0,0,0)

:758862fa ; C:\Windows\syswow64\USER32.dll

...

Irgendwie klappt irgendwann das umkopieren der empfangenden Daten in das lokale LArray nicht mehr. Fragmentiere ich den Speicher zu sehr?
Über jeden Denkanstoß wäre ich dankbar.

Zwei Threads wollen etwas in die Queue stopfen

Zwei Threads wollen etwas in die Queue stopfen

Forumregeln