Hi,
Ich habe eine Funktion in einer
DLL
Delphi-Quellcode:
Function company_exist(
Query: TZQuery;
DB: PChar): Boolean;
stdcall;
begin
Query.SQL.Text:='
SHOW TABLES';
Query.Open;
result := false;
while not (
Query.EOF
or result)
do
begin
result := AnsiLowerCase(
Query.Fields[0].AsString) = AnsiLowerCase(
DB);
Query.Next;
end;
Query.Close;
end;
wird im Hauptprogramm so aufgerufen:
if company_exist(QueryLogin, PChar(DB)) then
Funktioniert auch alles soweit, jedoch wenn ich meine Anwendung beende bekomm ich 2 Fehler:
1.Exception der Klasse EAccessViolation .... Zugriffsverletzung bei Adresse ... in Modul uxtheme.dll
2.Exception der Klasse EAccessViolation .... Zugriffsverletzung bei Adresse ... in Modul libmysql.dll
Wenn ich jedoch die gleiche Funktion im Programm ausführe, funktioniert es ohne jegliche Fehler.