Warum stützt mein Programm mit dynamischer DLL ab?

[Olli]

Danke, sakura!

Zitat:

Zitat von Aurus

Delphi-Quellcode:

Hier ein ausschnitt aus der DLL:

  uses
  SysUtils,
  Classes,
  DLLLizCheck in 'DLLLizCheck.pas';


function Abgleich(DD:PChar; DatGr: Longint):PCHar; export
// [...]

function Inhalt(A:Integer):String;export
// [...]

Function DLLCSCheck(A:PCHar):PChar;export
// [...]

exports
  Abgleich,
  Inhalt,
  DLLCSCheck;

begin
end.

Wir haben hier mehrere Probleme.

1. Inhalt hat einen String-Parameter, aber die entsprechende Unit ist nicht in die DLL eingebunden (für's Memory-Management mit Strings).
2. Abgleich() und DLLCSCheck() haben verschiedene Parameter, aber im oberen Beitrag steht
   Delphi-Quellcode:

         FuncPtr   := GetProcAddress(Hauptansicht.CSDLLHandle,'DLLCSCheck'); 
         FuncPtr   := GetProcAddress(Hauptansicht.CSDLLHandle,'Abgleich');

   was in mir doch das Gefühl aufkommen läßt, daß hier dieselbe Funktionspointervariable für verschiedene Funktionspointer benutzt wird/werden könnte.

Aurus, als erstes solltest du immer Funktionstypen erzeugen und dann Variablen dieser Typen benutzen, denen du den jeweiligen Funktionspointer zuweist. Das dient nicht nur der Übersichtlichkeit. Die eine Stackvariable wird dein Code sicher auch noch verkraften ;)

[Aurus]

Hallo zusammen.

Ich habe nur probiert die Fehler zu verbessern.
Die angehängte Datei beinhaltet ein Beispiel mit DLL.

Ich öffen die DLL Funktion 1+2 gehen. Wenn ich aber die 3. Funktion teste kommt mal keine Fehlermeldung aber wenn ich danach das Programm schliesse.


Was mache ich falsch?

Falls noch jemand einen unschönen Code sieht bitte nur sagen.


Gruss

Aurus