Screenshot Anzeigen

[kaitec]

Hallo, ich will das dieser kleine test Client den vom Server gemachten Screenshot in einem Fenster anzeigt! Aber das Laden und Anzeigen von screenshot.png läzft nicht!
Er zeigt mir das Bild nicht mehr an!

Code: Alles auswählen

;-DriverLoading
UsePNGImageEncoder()
InitNetwork()

ConnectionID = OpenNetworkConnection("localhost", 8888)

x = 0
#Image = 0
ddhg = IsImage(#Image)
If ddhg <> 0
FreeImage(#Image)
EndIf

;Ergebnis = ImageID()
;Ergebnis = UseImage(#Image)

If OpenWindow(0, 10, 10, 680, 520, #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget, "SERVER-Screenshot")
;CreateGadgetList(WindowID())
;ImageGadget(33, 0, 0, 680, 529, 1)
;-Main Loop
Repeat
Delay(200)
Ergebnis = NetworkClientEvent(ConnectionID)

If Ergebnis = 3
ReceiveNetworkFile(ConnectionID, "screenshot.png")
x = 1
EndIf

If x = 1
LoadImage(#PB_Any, "screenshot.png")
Egs = IsImage(#Image)
If Egs = 0
MessageRequester("ERRO", "BILDERRO")
EndIf

;Ergebnis = ImageID()
;Ergebnis = UseImage(1)
;SetGadgetState(33, 1)
UseImage(#Image)
StartDrawing(WindowOutput()) 
DrawImage(#Image,0,0)
Locate(460, 460)
DrawText("kaitec - Network-technik")
StopDrawing()  
EndIf


    EventID.l = WindowEvent() 
    If EventID = #PB_Event_CloseWindow 
      Quit = 1 
    EndIf
    Until Quit = 1
    
EndIf

Wäre für hlife echt dankbar...
MFG

[Green Snake]

Du must den DEcoder verwenden

also:

Code: Alles auswählen

UsePNGImageDecoder()

[kaitec]

So, habs geändert, geh trotzdem nicht...
Er zeig mir das Bild nicht im Fenster an!?

Code: Alles auswählen

;-DriverLoading
UsePNGImageEncoder()
UsePNGImageDecoder()
InitNetwork()

ConnectionID = OpenNetworkConnection("localhost", 8888)

x = 0
;#Image = 0
;ddhg = IsImage(#Image)
;If ddhg <> 0
;FreeImage(#Image)
;EndIf

;Ergebnis = ImageID()
;Ergebnis = UseImage(#Image)

If OpenWindow(0, 10, 10, 680, 520, #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget, "SERVER-Screenshot")
;CreateGadgetList(WindowID())
;ImageGadget(33, 0, 0, 680, 529, 1)
;-Main Loop
Repeat
Delay(200)
Ergebnis = NetworkClientEvent(ConnectionID)

If Ergebnis = 3
ReceiveNetworkFile(ConnectionID, "screenshot.png")
x = 1
EndIf

If x = 1
LoadImage(1, "screenshot.png")
;Egs = IsImage(#Image)
;If Egs = 0
;MessageRequester("ERRO", "BILDERRO")
;EndIf

;Ergebnis = ImageID()
;Ergebnis = UseImage(1)
;SetGadgetState(33, 1)
;UseImage(#Image)
StartDrawing(WindowOutput()) 
DrawImage(1,0,0)
Locate(460, 460)
DrawText("kaitec - Network-technik")
StopDrawing()  
EndIf


    EventID.l = WindowEvent() 
    If EventID = #PB_Event_CloseWindow 
      Quit = 1 
    EndIf
    Until Quit = 1
    
EndIf

[edel]

DrawImage(1,0,0) -> DrawImage(useimage(1),0,0)