BUG: Build 532 - Fehlermeldung

Archive mAirList 3.x (English)
1

Hi Torben

I have follow Script load in Build 498. The first time the script runs.
I run the script again. mAirList crashes

No info from mAirList.map

Michel

[code]var
dpi: IDummyPlaylistItem;
pi: IPlaylistItem;

begin
CurrentPlaylist.LoadFromFile(‘C:\Dokumente und Einstellungen\Administrator\Desktop\test.mld’);
CurrentPlaylist.ErrorCheck;
dpi := Factory.CreateDummyPlaylistItem;
pi := IPlaylistItem(dpi);

pi.SetTitle('Playlist ’ + FormatDateTime(‘DD.MM.YYYY_18’, now) + ‘:00 wurde erfolgreich eingefügt.’);
pi.SetColor($0080FF80);
pi.SetColored(true);
CurrentPlaylist.Insert (0,pi);
end.[/code]

2

Scripting is possibly broken at the moment. I need to re-import all the interface code.

3

Habe gestern meine bestehenden Script erweitert:

Lasse ich bei meinem Script die var deklaration weg, passiert folgendes:

var dpi: IDummyPlaylistItem; pi: IPlaylistItem;

  1. Aufruf über Öffnen -> Script ausführen (OKAY)

mAirList

Error running script: [Fehler] (5:3): Unknown identifier ‘dpi’

OK

  1. Aufruf über das Action-Menü (BUG)

[Fehler] (3:3): Unknown identifier ‘dpi’

Montag, 30. März 2009, 20:58:20

Program Version 3.0.0 Build 532

Call stack:

[00734718] mAirListScript.TScriptWrapper.Compile (Line 151, “mAirListScript.pas” + 10) + $F
[00696618] InstanceData.TInstanceData.RunScript (Line 703, “InstanceData.pas” + 3) + $5
[00704D30] RunScriptAction.TRunScriptAction.Execute (Line 40, “RunScriptAction.pas” + 1) + $10
[0061DF53] Main.TMainForm.ActionClick (Line 931, “GUI\Main.pas” + 1) + $20
[0046777B] Menus.TMenuItem.Click + $A7
[00468C7F] Menus.TMenu.DispatchCommand + $13
[00469DDE] Menus.TPopupList.WndProc + $82
[00469D2D] Menus.TPopupList.MainWndProc + $1D
[0042F6A4] Classes.StdWndProc + $14
[00490430] Forms.TApplication.ProcessMessage + $FC
[0049046A] Forms.TApplication.HandleMessage + $A
[0049068A] Forms.TApplication.Run + $96
[007AD9D9] CoreGUIMainWindows.TBasePlayoutMainWindowClass.DoRun (Line 102, “CoreGUIMainWindows.pas” + 46) + $7
[00402F68] System.@GetMem + $4
[007ADADD] CoreGUIMainWindows.TPlayoutMainWindowClass.Run (Line 118, “CoreGUIMainWindows.pas” + 1) + $8
[00979778] mAirList.MainWindow (Line 86, “C:\projects\mAirList\trunk\mAirList.dpr” + 13) + $C
[0098520C] mAirList.mAirList (Line 103, “” + 13) + $5

Michel

4

Klassischer Fall von nicht abgefangener Exception. Danke!

5

Immer wieder gerne.