Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)
-   -   Delphi Multithreading DLL (https://www.delphipraxis.net/79828-multithreading-dll.html)

Aya 29. Okt 2006 13:35


Multithreading DLL
 
Hi,

ich habe ein programm mit DLLs..

Ich habe in Delphi eine DLL geschrieben, welche eine Klasse exportiert, bzw eine funktion welche eine neue instanz der Klasse erstellt.

Das ganze sieht etwa so aus:

Delphi-Quellcode:
TDLLClass = class
public
  function loadImage(filename: PChar): Longword;
end;

function createClass: TDLLClass;
begin
  Result:=TDLLClass.Create;
end;

exports
  createDLL;
die funktion loadImage lädt ein Bild in den speicher (Speicher wird reserviert mit GetMem) und gibt dann einen Pointer auf den Speicherbereich zurück.

Das ganze klappt wunderbar, allerdings nur solange nur ein Thread gleichzeitig läuft.
Wenn ich nun also 2 Threads gleichzeitig laufen lasse welche loadImage aufrufen, schmiert irgendwann (komischerweise nicht sofort, sondern erst nach einiger zeit) das programm ab...

Die Zeit nach der es abschmiert ist immer etwa gleich (ca~ nach 20 Bildern).

Es liegt 100%ig nicht daran das irgendwo auf gleiche variablen zugegriffen wird, denn:
Wenn ich den Code der DLL einfach in das Hauptprogramm kopiere und so den DLL aufruf umgehe, funktioniert es selbst mit 10 Threads fehlerfrei.

Auch wenn ich für jeden Thread eine neue klasse der DLL erstelle funktioniert es nicht... es muß also irgendwo an der schnittstelle zwischen Programm/DLL liegen.

Hat da jemand eine Idee?

Au'revoir,
Aya~

Aya 29. Okt 2006 21:58

Re: Multithreading DLL
 
Nach langer sucherei und tausenden dingen die ich ausprobiert hab, hat Olli mir diesen Tip gegeben:

System.IsMultiThread:=True;

einfach in EXE + DLL und fertig, klappt :wall:

*Olli knuddel*

Aya~

Olli 29. Okt 2006 23:03

Re: Multithreading DLL
 
Da war dann noch ein Problem.

Aya hat die MM-Funktionen Delphi-Referenz durchsuchenGetMem() und Delphi-Referenz durchsuchenFreeMem() benutzt um Speicher anzufordern und freizugeben. Allerdings hat er einmal in der DLL angefordert und versucht in der EXE freizugeben. Das sollte man nicht machen.

Man muß sich das so vorstellen, daß es zwei "Instanzen" des MM gibt. Einmal in der DLL und einmal in der EXE. Beide arbeiten unabhängig voneinander und verwalten ihre Speicherblöcke. Während ein Delphi-Referenz durchsuchenCopyMemory() noch problemlos geht, ist das bei Delphi-Referenz durchsuchenFreeMem() und Delphi-Referenz durchsuchenGetMem() nicht mehr gegeben - zwei verschiedene MM-Instanzen bedeuten hier, daß der MM welcher einen Block anfordert diesen auch freigeben muß. Man muß sich den MM wie einen Buchhalter vorstellen. In unserem Fall zwei Buchhalter. Beide führen Buch über die ausgegebenen Speicherblöcke und über die, welche zurückgegeben wurden. Aber sie können nicht miteinander kommunizieren - daher wissen sie nicht von den Speicherblöcken des jeweils anderen oder können gar in dessen "Buchhaltung" eingreifen.

Die beste Methode ist, wenn die DLL ihre eigenen Funktionen mitbringt um Speicher zu allozieren und freizugeben. Dadurch wird die Aufgabe an den "DLL-Buchhalter" delegiert, wenn es denn notwendig ist. Und schwuppdi gibt es keine ungültigen Zeigeroperationen mehr ;)

Alternativ kann man die Heap-Manager-Funktionen ala MSDN-Library durchsuchenLocalAlloc(), MSDN-Library durchsuchenGlobalAlloc(), MSDN-Library durchsuchenHeapAlloc() usw. mit ihren jeweiligen Counterparts benutzen. Der Heap-Manager ist prozess-spezifisch und somit nicht abhängig vom aktuellen Modul.

Kann mir vorstellen andere haben auch diesen Denkfehler, denn Aya ist ja nicht gerade Anfänger - daher mein Kommentar! ...

Nachtrag:
Im Falle von MSDN-Library durchsuchenHeapAlloc() und MSDN-Library durchsuchenHeapFree() gilt die Aussage natürlich nur bei Verwendung von MSDN-Library durchsuchenGetProcessHeap(). Ansonsten könnte man natürlich schon modulspezifische Heaps angeben.


Alle Zeitangaben in WEZ +1. Es ist jetzt 02:34 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz