Virtual Piano

[Namenloser]

Also ich habe mein Antiviren-Problem inzwischen behoben, aber deine Exe hängt sich beim Start immer noch auf, sowohl die mit Versionsprüfung als auch die ohne.

Ich habe gerade noch mal die alte Version getestet, die noch im Download-Ordner war → funzt. Also irgendwas muss sich bei der neuen Version geändert haben...

[EWeiss]

Zitat von NamenLozer:

Also ich habe mein Antiviren-Problem inzwischen behoben, aber deine Exe hängt sich beim Start immer noch auf, sowohl die mit Versionsprüfung als auch die ohne.

Ich habe gerade noch mal die alte Version getestet, die noch im Download-Ordner war → funzt. Also irgendwas muss sich bei der neuen Version geändert haben...

Bei Interesse schicke ich mal den Source Code vom Programm zu.
In D2006 geschrieben.

Ich kann von hier aus nicht sagen was es ist.
Zumindest bei lbccaleb läufts.

gruss

[Namenloser]

Kannst du gerne machen, solange es sich unter TDE kompilieren lässt.

[lbccaleb]

Zitat von NamenLozer:

Kannst du gerne machen, solange es sich unter TDE kompilieren lässt.

Da er ja komplett nonVCL Coded sollte das eigentlich kein Problem sein

Edit:

Achja...

@Emil, da ich ja nun sehe dass du offensichtlich das Problem mit der ListBox und dem Neuzeichnen gelöst hast (wenn vllt auch noch net ganz zu 100%) kannst du ja vllt. auch deine Kompo überarbeiten, die da ja noch so halb offen rumliegt

Zur erinnerung: http://www.delphipraxis.net/129129-translistbox.html

[EWeiss]

Zitat:

@Emil, da ich ja nun sehe dass du offensichtlich das Problem mit der ListBox und dem Neuzeichnen gelöst hast (wenn vllt auch noch net ganz zu 100%) kannst du ja vllt. auch deine Kompo überarbeiten, die da ja noch so halb offen rumliegt

Kann ja mal schaun..

@NamenLozer
Kann über Private Nachrichten keine Dateien verschicken..
Hmm das ist neu.

Was mir noch einfällt du hast genügend Rechte die im Ordner Config
liegende Textdateien zu öffnen ?

gruss

[Namenloser]

Also ich bin mal mit dem Debugger durchgesteppt, und der Fehler scheint bei den Listboxen zu liegen. Er tritt auf in der Unit uControls ab Zeile 793:

Delphi-Quellcode:

    InstrumentList := CTRL_ListBoxCreate(hMain, PAnsiChar(SKAERO_FOLDER + 'Midi.png'),
      150, 67, 585, 257, ID_INSTRUMENTLIST, False, 18, SKAERO_INACTIVECAPTION);
    InstrumentList.SetFont(SKAERO_CAPTIONFONTHEIGHT, PAnsiChar(SKAERO_TEXTFONT),
      SKAERO_ACTIVECAPTION, SKAERO_INACTIVECAPTION, TRUE, 2, 0);
    SKAERO_SetAnchorMode(InstrumentList.Handle, ANCHOR_HEIGHT_WIDTH);
    SKAERO_SetZorder(InstrumentList.Handle, HWND_TOP);

    DrumList := CTRL_ListBoxCreate(hMain, PAnsiChar(SKAERO_FOLDER + 'Midi.png'),
      150, 67, 585, 257, ID_DRUMLIST, False, 18, SKAERO_INACTIVECAPTION);
    InstrumentList.SetFont(SKAERO_CAPTIONFONTHEIGHT, PAnsiChar(SKAERO_TEXTFONT),
      SKAERO_ACTIVECAPTION, SKAERO_INACTIVECAPTION, TRUE, 2, 0);
    SKAERO_SetAnchorMode(DrumList.Handle, ANCHOR_HEIGHT_WIDTH);
    SKAERO_SetZorder(DrumList.Handle, HWND_TOP);

    EffectList := CTRL_ListBoxCreate(hMain, PAnsiChar(SKAERO_FOLDER + 'Midi.png'),
      150, 67, 585, 257, ID_EFFECTLIST, False, 18, SKAERO_INACTIVECAPTION);
    InstrumentList.SetFont(SKAERO_CAPTIONFONTHEIGHT, PAnsiChar(SKAERO_TEXTFONT),
      SKAERO_ACTIVECAPTION, SKAERO_INACTIVECAPTION, TRUE, 2, 0);
    SKAERO_SetAnchorMode(EffectList.Handle, ANCHOR_HEIGHT_WIDTH);
    SKAERO_SetZorder(EffectList.Handle, HWND_TOP);

    VLList := CTRL_ListBoxCreate(hMain, PAnsiChar(SKAERO_FOLDER + 'Midi.png'),
      150, 67, 585, 257, ID_VLLIST, False, 18, SKAERO_INACTIVECAPTION);
    InstrumentList.SetFont(SKAERO_CAPTIONFONTHEIGHT, PAnsiChar(SKAERO_TEXTFONT),
      SKAERO_ACTIVECAPTION, SKAERO_INACTIVECAPTION, TRUE, 2, 0);
    SKAERO_SetAnchorMode(VLList.Handle, ANCHOR_HEIGHT_WIDTH);
    SKAERO_SetZorder(VLList.Handle, HWND_TOP);

    Trackbar := CTRL_TrackbarCreate(hMain, (SKAERO_FOLDER + 'BTN_TrackL.png'),
      735, 67, 20, 257, ID_TRACK_VSCROLL, 1, 0, 1, SKAERO_TRACKHICOLOR, SKAERO_TRACKPROGRESSCOLOR);
    SKAERO_SetAnchorMode(Trackbar.Handle, ANCHOR_RIGHT);
    SKAERO_SetZorder(Trackbar.Handle, HWND_TOP);

Und zwar beim Aufruf von InstrumentList.SetFont und (wenn man dieses auskommentiert) SKAERO_SetZorder. Dabei springt er nämlich beim endgültigen Funktionsaufruf offensichtlich statt zur gewollten Adresse zu irgendeiner Junk-Adresse, sodass sinnlose Bytes ausgeführt werden, was zu einer Zugriffsverletzung führt.

Es scheint irgendein Problem mit dem Interface zu sein. Genaueres kann ich leider nicht rausfinden, da ich nicht den Source von der DLL habe.

[EWeiss]

Die Frage ist warum tritt der fehler nicht bei mir auf.
Hmmm...

gruss