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

procedure TForm1.bildSocketConnect(Sender: TObject; Socket: TCustomWinSocket);
var
  scr:TBitmap;
  FStream: TFileStream;
begin
  scr:=TBitmap.Create;
  //Screenshot machen
  MakeScreenshot(scr);
  //Screenshot speichern
  scr.SaveToFile(ExtractFilePath(paramstr(0))+'\scr.bmp');
  //Als Jpeg
  BmpToJpg(ExtractFilePath(paramstr(0))+'\scr.bmp',1);
  //In den Stream einbinden
  FStream := TFileStream.Create(ExtractFilePath(paramstr(0))+'\scr.jpg', fmOpenRead);
  //und verschicken
  Socket.SendStream(FStream);
  //Dannn Socket deaktivieren, womit im Server bild geladen wird ...
  bildSocket.Active:=False;
  //Bitmal löschen
  DeleteFile(ExtractFilePath(paramstr(0))+'\scr.bmp');
end;                    

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:

//Die Empfangen Prozedur 
procedure TForm1.BildSocketClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
  FStream: TFileStream;
  SizeOfFile: Integer;
  pBuffer: Pointer;
begin
  //Stream erstellen;
  FStream := TFileStream.Create(ExtractFilePath(paramstr(0))+'\scr.jpg', fmOpenWrite);
  //Zum füller Dateigröße empfangen
  SizeOfFile := Socket.ReceiveLength;
  //in den Buffer packen
  GetMem(pBuffer, SizeOfFile);
  //empfangen
  try
    Socket.ReceiveBuf(pBuffer^, SizeOfFile);
    FStream.Write(pBuffer^, SizeOfFile);
  finally
    FreeMem(pBuffer);
    FStream.Free;
  end;
end;

//Und zum Bild anzeigen
procedure TForm1.BildSocketClientDisconnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  Image1.Picture.LoadFromFile(ExtractFilePath(paramstr(0))+'\scr.jpg');
end;