SIGSEGV bei öffnen einer SQL-Query

[muli]

Danke für die schnelle Antwort. Ich habe nun die Formularvariable lokal deklariert, wie von Dir vorgeschlagen. Der Fehler beim Create und wird nicht vom Programm erzeugt, sondern es kommt ein kommentarloses SIGSEGV vom Betriebssystem. Daher funktioniert das abfangen mit try auch nicht. Create und destroy sind im Formular wie folgt deklariert:

Delphi-Quellcode:

public
{ public declarations }
constructor Create (AOwner : TComponent ; AConnection : TMyConnection;
                AUser: TMyUser) ; reintroduce ;
destructor destroy; override;

Destroy deshalb, weil die Transactions eine abgeleitete Klasse von TSQLTransaction sind und zur Laufzeit erzeugt (create des Formulars) werden. Das war nötig, weil bei Lazarus die originale Transaction buggy ist und ein Speicherleck hinterlässt, wenn nicht CloseTrans explizit aufgerufen wird. Bin noch immer ratlos. Wie kann ich herausbekommen, ob Speicher irgendwo nicht wieder freigegeben wird?

[muli]

Habe jetzt etwas umgebaut. Das Fenster wird nun bereits in der Programmdatei (myprog.lpr) erzeugt.

Application.CreateForm(Tfrm_MyTermin, frm_myTermin); In meinem Hauptfenster wird nun eine frm_MyTermin.Init aufgerufen, die MyDatabase (TMysql51Connection) und mein Userobject MyUser an das Fenster übergiebt und meine Querys und Transactions entsprechend setzt. Anschließend zum (modalen) Anzeigen des Fensters wieder frm_MyTermin.execute.

Das SIGSEGV kommt noch immer, aber erst nach viel mehr Aufrufen des Fensters.

Ich bin zu blöd den Fehler zu finden!

[shmia]

Zur Sicherheit solltest du als Owner des modalen Formulars nil angeben:

Delphi-Quellcode:

frm_MyTermin:=Tfrm_MyTermin.Create(nil {<=nicht self}, MyDatabase, MyUser);
try
  frm_MyTermin.execute(s);
finally
  frm_MyTermin.Free;
end;

Übergibt man einen Owner, dann hat das im Hintergrund viele Aufrufe von TComponent.Notification() zur Folge, was manchmal zu sehr seltsamen Effekten führen kann.

[muli]

Vielen Dank für den Hinweis. Hat aber leider auch nix gebracht. Beim 20. Aufruf des Fensters kommt "External SIGSERV". Der Aufrufstack sieht wie folgt aus:

Delphi-Quellcode:

#0 SYSTEM_SMALLFORWARDMOVE_3 at :0
#1 MYSQL51CONN_TCONNECTIONNAME_$__MYSQLWRITEDATA$crc1AADA6FD at :0
#2 MYSQL51CONN_TCONNECTIONNAME_$__LOADFIELD$TSQLCURSOR$TFIELDDEF$POINTER$BOOLEAN$$BOOLEAN at :0
#3 SQLDB_TCUSTOMSQLQUERY_$__LOADFIELD$TFIELDDEF$POINTER$BOOLEAN$$BOOLEAN at :0
#4 BUFDATASET_TCUSTOMBUFDATASET_$__LOADBUFFER$PCHAR$$TGETRESULT at :0
#5 BUFDATASET_TCUSTOMBUFDATASET_$__GETNEXTPACKET$$LONGINT at :0
#6 ?? at :0
#7 DBCTRLS_TDBLOOKUP_$__FETCHLOOKUPDATA at :0
#8 DBCTRLS_TDBLOOKUP_$__INITIALIZE$TFIELDDATALINK$TSTRINGS at :0
#9 DBCTRLS_TDBLOOKUP_$__ACTIVECHANGE$TOBJECT at :0
#10 DBCTRLS_TFIELDDATALINK_$__ACTIVECHANGED at :0
#11 DB_TDATALINK_$__CHECKACTIVEANDEDITING at :0
#12 ?? at :0
#13 DB_TDATASET_$__SETACTIVE$BOOLEAN at :0
#14 SQLDB_TCUSTOMSQLQUERY_$__SETACTIVE$BOOLEAN at :0
#15 ?? at :0
#16 MEN_TERMINEDITCLICK(0x1, 0x4c7947d) at frm_main.pas:386
#17 CONTROLS_TCONTROL_$__DBLCLICK at :0
#18 GRIDS_TCUSTOMGRID_$__DBLCLICK at :0
#19 CONTROLS_TCONTROL_$__WMLBUTTONDBLCLK$TLMMOUSE at :0
#20 SYSTEM_TOBJECT_$__DISPATCH$formal at :0
#21 CONTROLS_TCONTROL_$__WMXBUTTONDOWN$TLMMOUSE at :0
#22 CONTROLS_TWINCONTROL_$__WNDPROC$TMESSAGE at :0
#23 GRIDS_TCUSTOMGRID_$__WNDPROC$TMESSAGE at :0
#24 DBGRIDS_TCUSTOMDBGRID_$__WNDPROC$TMESSAGE at :0
#25 LCLMESSAGEGLUE_DELIVERMESSAGE$TOBJECT$formal$$LONGINT at :0
#26 WIN32INT_WINDOWPROC$LONGWORD$LONGWORD$LONGINT$LONGINT$$LONGINT at :0
#27 USER32!GetDC at :0
#28 ?? at :0
#29 USER32!GetDC at :0
#30 WIN32INT_DISPOSECOMBOEDITWINDOWINFO$TCUSTOMCOMBOBOX at :0
#31 USER32!GetWindowLongW at :0
#32 ?? at :0

Hilft Euch das weiter? Seltsam bei #1 finde ich, daß dort MYSQLWRITEDATA$ steht. Ich schreibe gar keine Daten in die Datenbank. Habe das Fenster jeweils mit Cancel beendet.

[muli]

Nochmals vielen Dank für die Hilfe. Nach vielen Tests habe ich herausgefunden, daß das Problem nicht die SQLQuery war, sondern die TDBLookupComboBox. Die kommt mit den etwa 2000 Einträgen (manchmal) nicht klar, die die Query lieferte. Bei Begrenzung auf 100 Einträge trat der Fehler nicht mehr auf. Der Absturz trat immer dann auf (seltsamerweise wie beschrieben erst nach mehrfachem Aufruf des Fensters), wenn ich der Listsource die Datasource zugewiesen habe. Ich habe nun die LookupCombobox durch eine einfache Combobox ersetzt. Es scheint so, als wäre der Fehler nun behoben.

Damit können wir das Thema (vorerst) hoffentlich erst einmal abschließen. Auch wenn ich das eigentliche Problem nicht verstehe.....

[JamesTKirk]

Würdest du eventuell bitte einen Bug im Free Pascal/Lazarus Bugtracker melden? Auf diese Weise kann der Bug in einer zukünftigen Version behoben werden. Am besten versuchst du den Bug mit einem möglichst einfachen Beispielprogramm nachvollziehbar zu machen.

Gruß,
Sven