PureBoard

Code: Alles auswählen

InitNetwork()
If  CreateNetworkServer(0, 6700)<>0
  OpenWindow(0, 0, 0, 200, 20, "", #PB_Window_BorderLess)
  ProgressBarGadget(0, 0, 0, 200, 20, 0, 0)
  Repeat
    Delay(10)
    windowevent=WindowEvent()
    serverevent=NetworkServerEvent()
    If  serverevent=#PB_NetworkEvent_Connect
      Debug "Client connected"
    EndIf
    If  serverevent=#PB_NetworkEvent_Data
      Debug "Daten empfangen"
      result = ReceiveNetworkData(EventClient(), @Size, 4)
      Debug "Empfangene Bytes (Größe der Long (müssten 4 sein)): "+Str(result)
      Debug "Empfangene Bytes (Größe des Screenshots): "+Str(Size)
      If result = 4 And Size > 0
        SetGadgetAttribute(0, #PB_ProgressBar_Maximum, Size)
        ;Allokiere Speicher in dieser Größe
         *MemBuffer = AllocateMemory(Size)
         errorcounter = 0 
         ReceivedBytes = 0
         Repeat
           SetGadgetState(0, ReceivedBytes)
           ;Speicher die Anzahl der geladenen Bytes                                 {noch zu laden}
          result = ReceiveNetworkData(EventClient(), *MemBuffer + ReceivedBytes, Size - ReceivedBytes)
          If result = -1
           Delay(1) 
           errorcounter + 1
          Else
           ReceivedBytes + result
           errorcounter = 0
          EndIf
        Until ReceivedBytes = Size Or errorcounter > 6000 ; Abbruch nach 6 Sekunden
      EndIf
      If Size > 0 And ReceivedBytes = Size
        screenshot$=GetHomeDirectory()+"Screenshot "+FormatDate("%hh-%ii-%ss", Date())+".bmp"
        If  CreateFile(0, screenshot$)
          WriteData(0, *MemBuffer, Size)
          CloseFile(0)
          FreeMemory(*MemBuffer)
        Else
          Debug "datei konnte nicht erstellt werden"
        EndIf
      Else
        Debug "screenshot konnte nicht heruntergeladen werden"
      EndIf
    EndIf
    If  serverevent=#PB_NetworkEvent_Disconnect
      Debug "Client disconnected"
    EndIf
  Until windowevent=#PB_Event_CloseWindow
Else
  Debug "server konnte nicht erstellt werden"
EndIf

Code: Alles auswählen

Procedure MakeDesktopScreenshot(ImageNr,x,y,Width,Height)
   hImage = CreateImage(ImageNr,Width,Height) 
   hDC    = StartDrawing(ImageOutput(ImageNr)) 
   DeskDC = GetDC_(GetDesktopWindow_()) 
      BitBlt_(hDC,0,0,Width,Height,DeskDC,x,y,#SRCCOPY) 
   StopDrawing() 
   ReleaseDC_(GetDesktopWindow_(),DeskDC) 
   ProcedureReturn hImage 
EndProcedure
Procedure CopyImageToMem(Img.l, mem.l)
  Protected bmi.BITMAPINFO
  Protected w.l, h.l, hBmp.l, hDC.l

  w = ImageWidth(Img)
  h = ImageHeight(Img)
  hBmp = ImageID(Img)
 
  bmi\bmiHeader\biSize        = SizeOf(BITMAPINFOHEADER)
  bmi\bmiHeader\biWidth       =  w
  bmi\bmiHeader\biHeight      = -h
  bmi\bmiHeader\biPlanes      =  1
  bmi\bmiHeader\biBitCount    = 32
  bmi\bmiHeader\biCompression = #BI_RGB
 
  hDC  = StartDrawing( ImageOutput(Img) )
  If GetDIBits_(hDC, hBmp, 0, h, mem, bmi, #DIB_RGB_COLORS)
    StopDrawing()
    ProcedureReturn #True
  Else
    StopDrawing()
    ProcedureReturn #False
  EndIf
EndProcedure

InitNetwork()
verbindung=OpenNetworkConnection("localhost", 6700)
If  verbindung<>0
  ExamineDesktops()
  MakeDesktopScreenshot(0, 0, 0, DesktopWidth(0), DesktopHeight(0))
  ResizeImage(0, 800, 600)
  *mem=AllocateMemory(ImageWidth(0)*ImageHeight(0)*4)
  If  CopyImageToMem(0, *mem)=0
    Debug "copy image to mem fail"
  Else
    Size.l=MemorySize(*mem)
    Debug "Größe vom Reservierten Speicher: "+Str(Size)
    x=SendNetworkData(verbindung, @Size, 4)
    Debug "Gesendete Bytes (Größe der Long (müssten 4 sein)): "+Str(x)
    y=SendNetworkData(verbindung, *mem, Size)
    Debug "Gesendete Bytes (Größe des Screenshots): "+Str(y)
    FreeMemory(*mem)
  EndIf
Else
  Debug "verbindung fehlgeschlagen"
EndIf