PureBoard

Verfasst: **17.12.2005 16:26**

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

Verfasst: **17.12.2005 16:33**

Du must den DEcoder verwenden

also:

Code: Alles auswählen

UsePNGImageDecoder()

Verfasst: **17.12.2005 16:45**

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

Verfasst: **17.12.2005 17:03**

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

PureBoard

Screenshot Anzeigen

Screenshot Anzeigen

Screenshot Anzeigen