Icons laden geht nicht - 11.2a Free

[Jonathan]

Hallo,

in XProfan 11.2a Free ist mir aufgefallen, dass ich mit @Create("hIcon"... einfach keine Icons laden konnte. Egal wie ich es gemacht habe, es kam immer die Fehlermeldung "Icon nicht gefunden". Ist das auch bei euch so oder nicht? Und ist der Bug bereits gefixt?

Gruß
Jonathan

[ts-soft]

Es wäre wesentlich einfacher, wenn Du den nicht funktionierenden Code posten würdest!

Cls
Create("ICON", %hWnd, "A", 50, 50)
WaitKey

funktioniert hier einwandfrei.

[Frabbing]

Ich denke, ohne deinen Code kann man nichts dazu sagen. Wahrscheinlich hast du beim Pfad was nicht beachtet (versehentlich Ersatzzeichen eingebaut?).
Bei mir funktionierte das immer.

[Jonathan]

Oh, hab ich vergessen... Also zum Beispiel:

Var Icon& = @Create("hIcon", "Icon.ico", 0)

Das erzeugt bei mir immer die Fehlermeldung "Icon nicht gefunden", obwohl der Pfad stimmt und die Datei auch vorhanden ist. Genauso auch ohne das "..., 0".

Gruß
Jonathan


EDIT: Ups, habe ich da oben etwa @Create("Icon" geschrieben??? Ich meinte natürlich @Create("hIcon" !!! Sorry!!!

[_Joerg_]

Naja - im Moment sehe ich da keinen Pfad...
Das funktioniert hier jedenfalls

Cls
Var i& = Create("hIcon",Par$(0),0)
print i&
Waitinput

[Jonathan]

Das funktioniert bei mir auch, nur aus einer externen Datei (mit Pfadangabe oder ohne) geht es nicht... Kommt immer eine "Icon nicht vorhanden"-Meldung...

[Frabbing]

Hast du denn die richtige Iconnummer genommen? Am besten einfach mal mit einem Resource-Tool nachsehen, ob sie überhaupt existiert.

[_Joerg_]

Poste doch einfach mal ein lauffähiges Beispiel. So können wir nur rumstochern. Der Fehler muß ja irgendwo in
Deinem Code sein, wenn unsere Beispiele funktionieren.

[Jonathan]

Hier ist was, wo es nicht geht:

'µPlayer
'-------
'
'Tray-Icon Musikplayer
Declare hTrayIcon%, Ende%, File$, Info%, StartZeit&, TempFile$
Declare DWM_BLURBEHIND#, dwmapi&
Dim DWM_BLURBEHIND#, 16
dwmapi& = @UseDLL("dwmapi.dll")
@ImportFunc(dwmapi&, "DwmEnableBlurBehindWindow", "")
Long DWM_BLURBEHIND#, 0 = 7
Byte DWM_BLURBEHIND#, 5 = 1
WindowStyle 8 + 16
WindowTitle "µPlayer 1.0 Alpha"
Window 128, 64 - 640, 128
CLS 0
DrawPic "uPlayer.bmp", 0, 0; -1, 0
DwmEnableBlurBehindWindow(%hWnd, DWM_BLURBEHIND#)
@ShowWindow(%hWnd, 0)
hTrayIcon% = @Create("hIcon", "uPlayer.ico", 0)
@TrayIcon("Add", %hWnd, 0, hTrayIcon%, "µPlayer 1.0 Alpha")
UserMessages 16
StartZeit& = &GetTickCount
WhileNot Ende%
  Sleep 100
  If @TrayIcon("Msg", 0) = $204
    CreateMenu
      AppendMenu 102, "PopUp &schließen"
      AppendMenu 100, "&Beenden"
      Separator
      AppendMenu 103, "&Info"
      AppendMenu 101, "Datei &laden"
      CheckMenu 103, Info%
      @TrackMenu()
    If %MenuItem = 100
      Ende% = 1
      SetMenuItem 0
    Elseif %MenuItem = 101
      TempFile$ = @LoadFile$("Musikdatei auswählen - µPlayer 1.0 alpha", "WAV-Dateien|*.WAV")
      IfNot TempFile$ = ""
        File$ = TempFile$
        PlaySound File$, 9
        CLS 0
        StartZeit& = &GetTickCount
      Endif
      SetMenuItem 0
    Elseif %MenuItem = 103
      Info% = NOT(Info%)
      @ShowWindow(%hWnd, Info%)
      SetMenuItem 0
    Endif
  Endif
  If File$ = ""
    StartZeit& = &GetTickCount
  Endif
  DrawPic "uPlayer.bmp", 0, 0; -1, 0
  TextColor @RGB(255, 255, 255), 0
  DrawText 0, 48, "Aktuell gespielte Datei: " + File$
  DrawText 0, 64, "Das Lied läuft seit: " + @Str$((&GetTickCount - StartZeit&) / 1000 \ 3600) + ":" + @Str$((((&GetTickCount - StartZeit&) / 1000 / 60) MOD 60) \ 1) + ":" + @Str$((((&GetTickCount - StartZeit&) / 1000) MOD 60) \ 1) + @If((&GetTickCount - StartZeit&) > 900000, " - Sehr monoton...", "") + "   "
EndWhile
FreeDLL dwmapi&
Dispose DWM_BLURBEHIND#
WindowStyle 8 + 16
UserMessages 16
@TrayIcon("Delete", %hWnd, 0)

Gruß
Jonathan

[Frabbing]

Kann ich hier derzeit auf XP nicht testen, wegen der Vista-Dll-Funktion.

Edit: Ok, hab mal die Dll-Sachen rausgenommen und eigene Bitmap und Icon eingesetzt. Das Bild wurde im Fenster angezeigt und das Icon als Trayicon. Klappt also, liegt nicht am Code oder XProfan. Poste doch mal das Icon, sicher ist was damit nicht in Ordnung.

[THFR]

Auf den ersten Blick (ungetestet) würde ich den Fehler hier vermuten

hTrayIcon% = @Create("hIcon", "uPlayer.ico", 0)
@TrayIcon("Add", %hWnd, 0, hTrayIcon%, "µPlayer 1.0 Alpha")

Geht's auch mit : % ?
Gruß Thomas

[ts-soft]

Zitat von THFR

Geht's auch mit : % ?
Gruß Thomas

Ja, geht auch mit : %

[_Joerg_]

Ich vermute ja immer noch, daß mit dem Pfad was nicht stimmt. Wo liegt denn das Icon? Hast Du schonmal den kompletten Pfad mit angegeben?

[THFR]

@Thomas, das % von Profan² bis X2 geht ist mir im Prinzip klar. Mach ich, bzw. mein Editor, wenn ich ihn per Doppelklick eine Funktion einfügen lasse (wird dann, oh wie alt, let %=CreateIcon(%,$,%,%) ) und ist halt heute noch OK.
Die Frage bezog sich mehr auf den Anfang

in XProfan 11.2a Free ist mir aufgefallen

und XProfan 11.2a Free hatte ich nicht drauf. Jetzt ja und es geht auch da einwandfrei, so dass der Fehler beim Pfad, Name (Schreibweise) oder Typ zu suchen ist.

Gruß Thomas

[Jonathan]

Hm, komisch... Den Dateinamen habe ich gefühlte 0x3e8 mal geprüft, mit und ohne Pfad geschrieben, auch mal DLLs benutzt... Und das komischste ist ja: andere XProfan-Funktionen finden das Icon... Kann das eventuell auch an meinem System (Win 7 Home Premium 32-Bit) liegen??