Hi DPler
Ich hab ein großes Problem. Ich ein Programm geschrieben das auf die Datenbank zugegriffen hat. Alles wunderbar. Bis ich mich entschied alles in eine
DLL zu packen. Naja jetzt ist alles in der
DLL und er bringt nur noch Fehler. Ich habe ja nichts vom Code geändert ist jetzt alles was die Datenbank angeht in die
DLL gepackt. Jetzt kommt der Witz dabei der Fehler tritt auf nachdem er die procedure SQLBefehl 8-10 durch hat. Es ändert sich der
SQL befehl nicht einmal. Und wo des ganze im Programm war hat alles wunderbar funktioniert
Delphi-Quellcode:
procedure SQLBefehl(
SQL :
String);
stdcall;
begin
ADOQuery.Active := false;
ADOQuery.SQL.Clear;
ADOQuery.SQL.Add(
SQL); <--- Hier kommt der Fehler. Im Anhang
ADOQuery.Active := true;
end;
function QueryData(FeldName :
String) : Variant;
stdcall;
begin
result := ADOQuery[FeldName];
end;
exports SQLBefehl, QueryData;
begin
ADOQuery := TADOQuery.Create(
nil);
ADOConnection := TADOConnection.Create(
nil);
ADOQuery.Connection := ADOConnection;
ADOConnection.ConnectionString := cADOConnectionString;
ADOConnection.Mode := cmShareExclusive;
ADOConnection.Provider := '
MSDASQL.1';
end.