1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

 //CLient befehl

//screenshot machen (Originalcode, und schon getestet, da ist kein Fehler mehr drin)
procedure MakeScreenShot(const ATarget: TBitmap);
var
  DesktopDC: HDC;
begin
  DesktopDC := CreateDC('DISPLAY', nil, nil, nil);
  try
    ATarget.PixelFormat := pfDevice;
    ATarget.Width := Screen.Width;
    ATarget.Height := Screen.Height;

    BitBlt(ATarget.Canvas.Handle, 0, 0, Screen.Width, Screen.Height, DesktopDC, 0, 0, SRCCOPY);
  finally
    DeleteDC(DesktopDC);
  end;
end;
//////Buttonclick
type
testrecord=record
screen:TBitmap;
end;
var
Varscreen: TBitmap;{} sendscreen:Testrecord;
begin
                       varscreen := TBitmap.Create;
                       MakeScreenShot(Varscreen); 
                       with sendscreen do begin screen:=Varscreen; end;  
                       Clientsocket1.Socket.SendBuf(Varscreen,SizeOf(Sendscreen)); end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

 ///Server Reaktion
//onread-Befehl

type
testrecord=record
screen:TBitmap;
end;
var
receivetext: string;
screnVar:TBitmap; incomScreen:testRecord;

   socket.receivebuf(incomScreen, SizeOf(incomScreen)) ;
   with incomScreen do begin
   screnVar:=screen;
   end;
  // Image1.Picture.Assign(screnvar);   nicht sicher ob man das brauch
   image1.Picture.Bitmap:=screnVar;

   QueryMemo.Lines.Add(DateTimeToStr(Now)+' Uhr:mess: Bild erhalten');