[fixed] BUG: Build 504 - mAirList - Drag&Drop from DB to Cartwall

Meldung kommt, wenn ich ein Element aus der Datenbanksuche in die Cartwall ziehe.

Michel

SQL Error: database is locked

Donnerstag, 13. November 2008, 22:20:56

Program Version 3.0.0 Build 504

Call stack:

[008D34BE] ZDbcSqLiteUtils.CheckSQLiteError (Line 229, “ZDbcSqLiteUtils.pas” + 14) + $3D
[008E66A7] ZDbcSqLiteStatement.TZSQLiteStatement.ExecuteQuery (Line 181, “ZDbcSqLiteStatement.pas” + 12) + $12
[008AF855] ZDbcStatement.TZEmulatedPreparedStatement.ExecuteQuery (Line 1984, “ZDbcStatement.pas” + 1) + $16
[008AF979] ZDbcStatement.TZEmulatedPreparedStatement.ExecuteQueryPrepared (Line 2025, “ZDbcStatement.pas” + 1) + $19
[0098A187] DBConnection.TmAirListDB.CreatePlaylistItem (Line 293, “DBConnection.pas” + 5) + $8
[006ACBC5] DatabaseTreeView.AddNode (Line 250, “DatabaseTreeView.pas” + 3) + $28
[00547CDA] VirtualTrees.TBaseVirtualTree.GetFirstSelected (Line 24570, “VirtualTrees.pas” + 1) + $5
[006ACC76] DatabaseTreeView.TDatabaseTreeView.GetSelection (Line 263, “DatabaseTreeView.pas” + 4) + $4
[0062D362] InteractivePlayer.TInteractivePlayer.DragOver (Line 183, “InteractivePlayer.pas” + 4) + $C
[00472A50] Controls.TControl.DoDragMsg + $A4
[00479017] Controls.TWinControl.CMDrag + $27
[004732EB] Controls.TControl.WndProc + $2BB
[0040F503] SysUtils.AppendFormat + $477
[0040F80A] SysUtils.AppendFormat + $77E
[00402F68] System.@GetMem + $4
[00405890] System.@NewAnsiString + $C
[004058D3] System.@LStrFromPCharLen + $23
[0040F88C] SysUtils.DateTimeToString + $48
[0047714D] Controls.TWinControl.WndProc + $499
[0048D3AA] Forms.TCustomForm.CMActionUpdate + $3A
[0047714D] Controls.TWinControl.WndProc + $499
[004732EB] Controls.TControl.WndProc + $2BB
[00472F78] Controls.TControl.Perform + $24
[00423D68] Classes.TThreadList.UnlockList + $4
[0043BBB4] Graphics.FreeMemoryContexts + $98
[004768D8] Controls.TWinControl.MainWndProc + $2C
[004768ED] Controls.TWinControl.MainWndProc + $41
[00476DDF] Controls.TWinControl.WndProc + $12B
[0042F814] Classes.StdWndProc + $14
[0047714D] Controls.TWinControl.WndProc + $499
[00423D68] Classes.TThreadList.UnlockList + $4
[0043BBB4] Graphics.FreeMemoryContexts + $98
[004768D8] Controls.TWinControl.MainWndProc + $2C
[00423D68] Classes.TThreadList.UnlockList + $4
[0043BBB4] Graphics.FreeMemoryContexts + $98
[004768D8] Controls.TWinControl.MainWndProc + $2C
[0042F814] Classes.StdWndProc + $14
[0046F571] Controls.DragMessage + $45
[0046F68D] Controls.DoDragOver + $2D
[0046F893] Controls.DragTo + $157
[0046ECDC] Controls.TDragObject.WndProc + $80
[0046EDD5] Controls.TDragObject.MainWndProc + $1D
[0042F814] Classes.StdWndProc + $14
[0043008E] Contnrs.TComponentList.GetItems + $A
[00490920] Forms.TApplication.ProcessMessage + $FC
[0049095A] Forms.TApplication.HandleMessage + $A
[00490B7A] Forms.TApplication.Run + $96
[007A8AD1] CoreGUIMainWindows.TBasePlayoutMainWindowClass.DoRun (Line 102, “CoreGUIMainWindows.pas” + 46) + $7
[00402F68] System.@GetMem + $4
[007A8BC9] CoreGUIMainWindows.TPlayoutMainWindowClass.Run (Line 118, “CoreGUIMainWindows.pas” + 1) + $8
[0099CAC0] mAirList.MainWindow (Line 86, “C:\projects\mAirList\trunk\mAirList.dpr” + 13) + $C
[009A766E] mAirList.mAirList (Line 104, “C:\projects\mAirList\trunk\mAirList.dpr” + 14) + $5

seems to work. Thank you torben