Direkt auf Desktop zeichnen

[teamO]

Hi,

Wie der Betreff schon sagt versuch ich gerade was direkt (also ohne Fenster oder so) auf dem Desktop zu zeichnen (zb. so wie mit 2d-Drawing auf Fenstern und Screens). Ich hab schon die Forensuche bemüht, und hab auch einen kleinen Beispielcode von Stargate gefunden:

Code: Alles auswählen

Global DesktopOutput_Memory = AllocateMemory(1024)
Procedure.l DesktopOutput()
PokeL(DesktopOutput_Memory, 1)
ProcedureReturn DesktopOutput_Memory
EndProcedure
StartDrawing(DesktopOutput())
Repeat
  Plot(Random(1023), Random(767), RGB(Random(255), Random(255), Random(255)))
Until GetAsyncKeyState_(27)
StopDrawing() 

Der Produziert bei mir aber nur IMAs...

hat jemand ne idee, warum? oder wie ich das anders lösen könnte?
ich benutze PB 4.5

[NicknameFJ]

Hallo TeamO,

Du musst

Code: Alles auswählen

StartDrwaing()
Plot(...)
Stopdrawing()

direkt hintereinander in der Schleife haben.

Also z.B. so: (an Deinen Code angelehnt):

Code: Alles auswählen

Global DesktopOutput_Memory = AllocateMemory(1024)

Procedure.l DesktopOutput()
  PokeL(DesktopOutput_Memory, 1)
  ProcedureReturn DesktopOutput_Memory
EndProcedure


  Repeat
    StartDrawing(DesktopOutput())
    Plot(Random(1023), Random(767), RGB(Random(255), Random(255), Random(255)))
    StopDrawing()
    Delay(10)
  Until GetAsyncKeyState_(27)

Grüße
NicknameFJ

[teamO]

Danke, hatte ich übersehen.
Der Invalid Memory Access Error kommt aber auch im verbesserten code...

[NicknameFJ]

Oops,

hatte da wohl was anderes im Gedächtnis, nämlich, dass wenn man sich über API ein Handle für Drawing zu einem Fenster holt, dieses nur im gleichen MainLoop Durchlauf gültig ist.

Hatte meinen Code mit 4.10 getestet, da geht es

mit 4.4 geht´s nicht mehr.

Sry.

[Thorium]

Ich verstehe nicht wirklich wie das funktioniert mit dem Desktop und warum du da 1024 Byte allozierst.
Zeichnest du in DesktopOutput_Memory rein?
Dann ist klar das du IMA's bekommst, den allozierst du nur mit 1024 Byte. Laut deinem Random-Code greifst du aber auf 1024 * 767 * 3 = 2356224 Byte zu, möglicherweise noch mehr, wenn der Pitch > 1024 * 3

[Fluid Byte]

Dieser Trick funktioniert nicht mehr seitdem die Drawing-Lib aktualisiert wurde.

Benutze einfach API:

Code: Alles auswählen

hdcDesktop = GetDC_(GetDesktopWindow_())

Repeat
  SetPixel_(hdcDesktop,Random(1023), Random(767), RGB(Random(255), Random(255), Random(255)))
Until GetAsyncKeyState_(27)

ReleaseDC_(0,hdcDesktop)

[teamO]

Danke für die Antworten!

@NicknameFJ:

Hatte meinen Code mit 4.10 getestet, da geht es mit 4.4 geht´s nicht mehr.

Kann das das sein, was Fluid Byte gemeint hat? Mit der Aktualisierung der Drawing-Lib?

@Thorium:
Ich versteh auch nicht was da gemacht wird.
Wie gesagt: Ich hab den Code von Stargate kopiert...

@Fluid Byte:
Das funktioniert bei mir irgendwie auch nicht.
es gibt zwar keine Fehlermeldung, aber halt auch keine Ausgabe....
ich muss aber auch zugemen, dass ich nicht versteh, was du da machst.
SetPixel_(...) ist ja relativ vielsagend, aber was macht die erste Zeile?

Achso, ich nutze noch XP. Kann es daran liegen?

[NicknameFJ]

Kann das das sein, was Fluid Byte gemeint hat? Mit der Aktualisierung der Drawing-Lib?

Ja, glaube auch dass die LIB dazwischen geändert wurde.

ich muss aber auch zugemen, dass ich nicht versteh, was du da machst.
SetPixel_(...) ist ja relativ vielsagend, aber was macht die erste Zeile?

In der ersten Zeile holst Du dir ein Handle zum DeviceContext des Desktop(Fensters), in der zweiten findet das Drawing auf diesen DeviceContext statt und in der letzten gibst Du den Context wieder frei.

Habe XP, kann bestätigen dass das Prog von Fluid hier auch nicht klappt

Grüße NicknameFj

[bobobo]

nochmal mit textausgabe

Code: Alles auswählen

hdc = GetWindowDC_(GetShellWindow_())
text$ = "Kacke nee "
SetTextColor_(hdc,#Cyan)
SetBkColor_(hdc,#Red)
TextOut_(hdc,0,0,text$,Len(text$))
ReleaseDC_(GetShellWindow_(),hdc)

der fette nachteil ist hier die platformabhängigkeit

[teamO]

cool, funktioniert!
Danke!

Jetzt kommt mir noch ne andere Idee: Gibt es ne möglichkeit über alles, sozusagen direkt hinter dem "Glas" des Monitors, zu zeichnen?
wenn nicht, würde ich es mit einem unsichtbaren Fenster machen, das immer im Vordergrund ist, aber dann müsste ich noch den rgb wert eines beliebigen Pixels auszulesen (in der vordersten Ebene, also entweder auf einem Fenster oder dem Desktop)

hat jemand ne idee?

Grüße,
TeamO