Resourcen und LoadFromStream

[Jelly]

Also irgendwie hab ich ein merkwürdiges Verhalten beim Schliessen einer Form. Deshalb mal hier meine Bitte, sich den Code anzuschauen. Ich lade aus einer Resource einen einfachen Text, in diesem Fall eine Datenbank Skript, und möchte dies ausführen. Das tuts auch, jedoch beim Schliessen der Form krige ich eine Schutzverletzung... Hier mal der Code, wo ich ziemlich sicher bin, daß der mit dem Problem zusammenhängt:

Delphi-Quellcode:

     res := TResourceStream.Create(hinstance,'emptydb', RT_RCDATA);
     try
        res.Position := 0 ;
        qryNewDB.SQL.LoadFromStream(res);
     finally
        res.free ;
     end ;

In qryNewDB steht anschliessend eigentlich das korrekte Skript drin, und wird auch korrekt ausgeführt. Die Schutzverletzung tritt erst auf, wenn ich die Form schliesse. Auch, wenn ich das Skript aus der Resource lade, und es NICHT ausführe, sondern einfach wieder das Form schliesse, kommts zur Fehlermeldung. Lasse ich den geposteten Code weg, so klappts.

Wo liegt denn da der Haken. Gehe ich falsch mit den Resourcen um, oder wie?

[marabu]

Hi Tom,

Zitat von Jelly:

Hier mal der Code, wo ich ziemlich sicher bin, daß der mit dem Problem zusammenhängt

der gezeigte Code verursacht den Fehler wohl nicht. Ich verwende ihn auch so - bis auf das Setzen von Position, da es überflüssig ist.

Grüße vom marabu

[ichbins]

Probier's mal mit except statt finally.

Ich hab mal folgenden Code probiert:

Delphi-Quellcode:

var
  f:file;
begin
  try
    erase(f);
    erase(f);
  finally
    showmessage('fertig');
  end;
end;

Zuerst zeigt er die Meldung FERTIG und dann eine Fehlermeldung.

Wenn ich

Delphi-Quellcode:

var
  f:file;
begin
  try
    erase(f);
    erase(f);
  except
    showmessage('fertig');
  end;
end;

nehme, zeigt er nur FERTIG.

[MaBuSE]

Zitat von Jelly:

Wo liegt denn da der Haken. Gehe ich falsch mit den Resourcen um, oder wie?

Sieht eigentlich ganz gut aus, das sollte so keine Probleme machen.

Bist Du sicher, das es an den Resourcen liegt?
Kommentier mal die Zeilen aus und mach ein ...sql.loadfromfile('blabla.sql');
Tritt der Fehler dann immer noch auf, ist es definitiv kein Resourcen Problem.

Evtl. interessiert Dich auch folgendes Tutorial:

Tutorial: SQL-Dateien als Resource einbinden

[MaBuSE]

Zitat von ichbins:

Probier's mal mit except statt finally.

Nein !

try ... finally ... end; wird verwendet um auf jeden Fall ein mit ...Create(...); erzeugtes Objekt wieder mit Free aus dem Speicher zu entfernen. Das ist schon richtig an dieser Stelle.

Schau mal in der Onlinehilfe bei Try nach, dort steht das auch noch mal ausführlich.

[Jelly]

Also nach noch weiterem Rumtesten liegt es wohl doch nicht nur an den Resourcen. Meines Achtens wurden zuviele weitere Units crosslinked, und das scheint wohl irgendwie die eine oder andere Schutzverletzung auszulösen. Ich hab jetzt mal die Unit als eine eigensatändiges Projekt kompiliert, und alle überflüssigen Units rausgeschmissen, und jetzt scheints zu klappen. Naja, verstehe wer will. Denn, die Schutzverletzung trat auch erst auf, nachdem ich von den Zeos Komponenten zu den MyDAC Komponenten umgestiegen bin. In irgendeiner Form scheints auch daran gelegen zu haben.