1:
2:
3:
4:
5:
6:
7:

Screencapture(bmp); // Funktion, die den Bildschirminhalt in den String bmp speichert
bmp.SaveToFile('C:\temp\screenshot.bmp'); // Datei wird zwischengespeichert
bmp.Free; // Zugriff freigeben

Socket.SendStream(TFileStream.Create('C:\temp\screenshot.bmp', fmOpenRead or fmShareDenyWrite)); // Datei als Stream an den Client senden

DeleteFile('C:\temp\screenshot.bmp'); // Zwischengespeicherte Datei löschen                    

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

procedure TForm1.ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
var
FStream: TFileStream;
SizeOfFile: Integer;
pBuffer: Pointer;

begin

FStream := TFileStream.Create('C:\datei2.bmp', fmOpenWrite); // Zieldat. zum Schr. öffnen

  SizeOfFile := Socket.ReceiveLength; //Länge emfangen (Liegt dort der Fehler?)
  GetMem(pBuffer, SizeOfFile); // .... könnt ihr euch nun selber denken
  try
    Socket.ReceiveBuf(pBuffer^, SizeOfFile);
    FStream.Write(pBuffer^, SizeOfFile);
  finally
    FreeMem(pBuffer);
    FStream.Free;
       
  end;
  end;                    

1:

Socket.SendStream(TFileStream.Create('C:\temp\screenshot.bmp', fmOpenRead or fmShareDenyWrite)); // Datei als Stream an den Client senden                    

1:

procedure TForm1.ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);                    

1:

SizeOfFile := Socket.ReceiveLength; //Länge emfangen (Liegt dort der Fehler?)