Hab ich vergessen ebend mitzuschicken. Also in der MainForm wird die Initialisierungsfunktion (public-Funktion in der Klasse) aufgerufen, welche die Verfügbarkeit der Verschiebetischklasse prüft.
Hier der Quellcode für die Verfügbarkeit und Aufruf der DLLFunktionen_laden-Funktion:
Delphi-Quellcode:
function TV_Tische.Verfuegbarkeit: boolean;
begin
Protokoll.Protokolleingang('
Verschiebetisch', '
Verfügbarkeit');
try
if (DLLHandle_zuweisen = true)
and (DLLFunktionen_laden = true)
// Funktionsaufruf für laden der DLL-Funktionen
and (ComPort_ermitteln = true)
then result := true
else
begin
Fehlermeldung(107);
result := false;
end
except
Fehlermeldung(108);
result := false;
end;
Protokoll.Protokollausgang('
Verschiebetisch', '
Verfügbarkeit');
end;
Wie gesagt, bei allen anderen Funktionen, die mit der Funktion geladen werden, ist alles ok und sie geben keine Fehlermeldung beim Aufruf.
2. Account Sero