XProfan 11 Sub 15 Problem mit hPicCopy

Andreas G., 06.03.2008 19:37: Hi
Habe ein Problem mit hPicCopy nach einen aufruf vom ca 3325 mal von hPicCopy bekomme ich die fehlermeldung "Bitmap nicht ladbar: hPicCopy"
Weis vielleicht jemand woran das liegen könnte ?

Declare ENDE&,bitmaphandle&,count&
cls
whilenot ENDE& = 1
   count& = count& + 1
   locate 0,0
   print count&
   DeleteObject bitmaphandle&
   bitmaphandle& = create("hPicCopy", "&DSKBMP", 0,690, 130, 100)
   DrawPic bitmaphandle&, 0, 0;0
endwhile
MfG
Andreas

Jac, 06.03.2008 20:04: Versuch mal die wieder freizugeben. Du verschwendest eine Menge Speicher damit!

Frank Abbing, 06.03.2008 20:12: Kann ich bestätigen, bei 3325 steigt das Programm aus.
Jac, er gibt die Handle doch frei! Ich denke, da muss Roland nochmal ran...

Jac, 06.03.2008 20:19: Ach, uh, oh, Asche und noch ein paar andere Sachen auf mein Haupt. Das habe ich glatt unterschlagen.

Jac, 06.03.2008 20:20: Hehe, bei mir ists 3322.

Re: XProfan 11 Sub 15 Problem mit hPicCopy

RGH, 06.03.2008 20:50:   Zitat von ""Andreas Gaida"": „Hi
Habe ein Problem mit hPicCopy nach einen aufruf vom ca 3325 mal von hPicCopy bekomme ich die fehlermeldung "Bitmap nicht ladbar: hPicCopy"
Weis vielleicht jemand woran das liegen könnte ?“
Ja, ich!
Die Funktion create("hPicCopy",...) ist noch ein einziger Bug!
Auch Dein Programm enthält einen Fehler: Der erste Parameter muss ein Bitmaphandle sein und kein String! Dass es trotzdem funktioniert liegt an einem Bug, der völlig unabhängig vom ersten Parameter immer das Hintergrundbild benutzt! Und dieser Bug führt auch dazu, dass ein Devicekontext nicht freigegeben wird und es dann irgendwann halt keinen Devicekontext mehr gibt.
So sollte es dann funktionieren (und wird es ab der nächsten Subscriptionsversion auch tun):

Declare ENDE&,bitmaphandle&,count&,hBmp&
cls
' hBmp& = create("hPic", -1, "F:/RGH4.JPG")
hBmp& = create("hPic", 0, "&DSKBMP")
whilenot ENDE& = 1
   count& = count& + 1
   locate 0,0
   print count&
   DeleteObject bitmaphandle&
   bitmaphandle& = create("hPicCopy", hBmp&, 0,0, 130, 100)
   DrawPic bitmaphandle&, 100, 100;0
endwhile
Gruss
Roland

Andreas G., 06.03.2008 22:52: Hi!
Thx für die Hilfe .
MfG
Andreas

Re: XProfan 11 Sub 15 Problem mit hPicCopy

Sebastian K., 07.03.2008 09:45: Hallo Roland,
Zitat von ""RGH"": „Dass es trotzdem funktioniert liegt an einem Bug, der völlig unabhängig vom ersten Parameter immer das Hintergrundbild benutzt!“
Ist das auch der Grund dafür, dass in der Schleife immer ein Bild des aktuellen Desktops ins Fenster gezeichnet wird und nicht immer das gleiche Bild, wie es vor der Schleife mit Create("hPic",...) angelegt wurde?
MfG
Sebastian

Re: XProfan 11 Sub 15 Problem mit hPicCopy

RGH, 07.03.2008 10:19: Zitat von ""Sebastian König"": „Hallo Roland,
Zitat von ""RGH"": „Dass es trotzdem funktioniert liegt an einem Bug, der völlig unabhängig vom ersten Parameter immer das Hintergrundbild benutzt!“
Ist das auch der Grund dafür, dass in der Schleife immer ein Bild des aktuellen Desktops ins Fenster gezeichnet wird und nicht immer das gleiche Bild, wie es vor der Schleife mit Create("hPic",...) angelegt wurde?
MfG
Sebastian“
Genau. Derzeit ist völlig egal, was im ersten Parameter steht. Es wird immer der aktuelle Desktop benutzt. Wie gesagt, bei der nächsten Subscriptionslieferung funktioniert es korrekt. Ausserdem wird es in dem Zusammenhang geben:
hBild& = create("hNewPic", dx%, dy%, farbe&) : Erzeugt ein neues Bild in der gewählten Farbe
StartPaint hBild& : Als Parameter zu Startpaint kann nun auch ein bitmaphandle angegeben werden.
Gruss
Roland

Re: XProfan 11 Sub 15 Problem mit hPicCopy

David Strutz, 07.03.2008 11:07: Zitat von ""RGH"": „ Ausserdem wird es in dem Zusammenhang geben:
hBild& = create("hNewPic", dx%, dy%, farbe&) : Erzeugt ein neues Bild in der gewählten Farbe
StartPaint hBild& : Als Parameter zu Startpaint kann nun auch ein bitmaphandle angegeben werden.
Gruss
Roland“
Jau!
Ich sag's mal "frei Schnauze": XProfan wird immer *eiler!

Nico Madysa, 07.03.2008 13:45: Zitat von ""RGH"": „ Ausserdem wird es in dem Zusammenhang geben:
hBild& = create("hNewPic", dx%, dy%, farbe&) : Erzeugt ein neues Bild in der gewählten Farbe
StartPaint hBild& : Als Parameter zu Startpaint kann nun auch ein bitmaphandle angegeben werden.
Gruss
Roland“
Kann es sein, dass damit die bereits mehrmals gewünschte "variable Anzahl von memory-Bitmaps" erfüllt worden ist? Das würde iFs Freude ziemlich einfach erklären.

David Strutz, 07.03.2008 14:06: @Nico: Ich glaube das kann sein.

Dies ist die Offlinevariante vom Thread [XProfan 11 Sub 15 Problem mit hPicCopy].