SQLConnection in Konsolenanwendung

[I_need_help]

Hallo zusammen,

da ist wieder ein Pferdefuß in meinem Prog, der mich nicht weiterkommen lässt:

Ich hab eine kleine Konsolenanwendung geschrieben, die eine Verbindung zur Oracle-DB öffnen soll und dort Tabellen auslesen und deren Inhalt in Dateien schreiben soll. Alles soweit sogut, bis auf das "Ding mit der Datenbank".

Per SQLConnection versuche ich, auf die DB zu kommen, erhalte beim Kompilieren allerdings schon die Warnung, dass SQLConnection eventuell nicht richtig initialisiert ist. Folgendes hab ich geschrieben:

SQLConnection := TSQLConnection.Create(SQLConnection); Create will hier ja eine Komponente haben, nur weiß ich an der Stelle leider nicht, welche (deshalb steht bei mir auch SQLConnection in der Klammer).

Beim Ausführen knallt das Programm dann auch an dieser Stelle und wirft eine EAccessViolation (Speicherzugriffsfehler).

Wo ist der Fehler??

Gruß von i_need_help

[Bernhard Geyer]

SQLConnection := TSQLConnection.Create(nil); Du kannst deine neu erzeugte Komponente nicht selbst als Owner angeben.
Abschließend mußt Du selbst mittels
SQLConnection.Free; wieder für die Freigabe sorgen.

[I_need_help]

Hatte ich mir fast gedacht...

Danke, werd es ausprobieren!!

[I_need_help]

Funktioniert! Danke!

Die Warnung im Compiler ist zwar immer noch da (zeigt jetzt auf SQLConnection.Free), aber das Programm läuft ohne Fehler durch und macht auch genau das, was es soll. Das ist erst einmal die Hauptsache.

DANKE DANKE

Gruß i_need_help

[Bernhard Geyer]

Zitat von I_need_help:

Die Warnung im Compiler ist zwar immer noch da (zeigt jetzt auf SQLConnection.Free), aber das Programm läuft ohne Fehler durch und macht auch genau das, was es soll. Das ist erst einmal die Hauptsache.

Etwas Code bitte.

Ich denke Du wirst SQLConnection evtl. in einem if-Zweig anlegen und free auserhalb dieses. Deshalb gibt es auch einen Ausführungszweig, welcher SQLConnection nicht initalisiert.

Falls Du try..finally-Blöcke verwendest

Delphi-Quellcode:

  try
    SQLConnection := TSQLConnection.Create(nil);  <- Außerhalb von try...finally-Block!!
    try
      ...
    finally
      SQLConnection.Free;
    end;
  except
    ...
  end;

[I_need_help]

Es stand in der Tat an ungünstiger Stelle. Doch nun hab ich die Angelegenheit gleich noch viel "eleganter" gelöst: Ich hab den kompletten Datenbank-Connect in eine extra Unit geschrieben. Die Fehlermeldung ist weg!