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

    Str := TMemoryStream.Create;
    if Str <> nil then
    begin
      SaveScreen(Str);
      Str.Seek(0,soFromBeginning);
    end;
    Socket.SendText('ready for screen? ' + IntToStr(SizeOf(Str)) + '$END$') // $END$ ist Teil des Protokolls falls mal 2 Strings gleichzeitig ankommen sollten..                    

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:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
  RecievedText: String;
  Speicher: String;
  i: Integer;
  Txt: Textfile;
  Buf   : String;
  MsgLen, LenReceived : Integer;
begin
  i := M_Clients.Items.IndexOfObject(Socket);
  RecievedText := Socket.ReceiveText;

  if Mode = 1 then
  repeat
    if ...
    else if Copy(RecievedText, 0, 17) = 'ready for screen?' then
    begin
      FileSize := StrToInt(Copy(RecievedText, 19, Pos('$END$', RecievedText) - 19));
      ShowMessage(IntToStr(FileSize));
      Mode := 2;  
      RecievedSize := 0;  // Globale Variable
      Socket.SendText('send screen');
    end
    else if Copy(RecievedText, 0, 10) = 'Screen end' then
      LoadJpegStream(MS)
    else ...
  until Pos('$END$', RecievedText) = 0
  else
  begin
    //showmessage(inttostr(msglen));
    SetLength(Buf, MSgLen);
    LenReceived := Socket.ReceiveBuf(Buf[1],MsgLen);
    MS.Write(Buf[1],Length(Buf));
    Application.ProcessMessages;
    RecievedSize := RecievedSize + Socket.ReceiveLength;
    if RecievedSize >= FileSize then
    begin
      Mode := 1;
      FileSize := 0;
      RecievedSize := 0;
      LoadJpegStream(MS); // Steam in JPEG umwandeln.. funktioniert eigendlich, doch gibt er mir in diesem
                          // fall einen error, das liegt jedoch an den empfangenen daten da es sonst geht
    end;
  end;
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:
31:
32:
33:
34:
35:
36:
37:
38:
39:

var
  rL: Integer;
begin  
  if not Recording then //Normalen Text auswerten
  else 
  begin
    rL := Socket.ReceiveLength;
  
    if rL = 0 then Exit;
  
    if Stream.Position + rL > Options.ReceiveSize then
    begin
      Socket.ReceiveBuf(Pointer(Int64(MyStream.Memory) +
        MyStream.Position)^,
        ReceiveSize - MyStream.Position);//ReceiveSize Globale Vaialbe.. hier hat der client die Dateigröße mitgeteilt
    end
    else if MyStream.Position < ReceiveSize then
      Socket.ReceiveBuf(Pointer(Int64(MyStream.Memory) +
        MyStream.Position)^, rL)
    else  //übertragungsfehler
    begin
      MyStream.Clear;
      ReceiveSize := 0;
      Recording := False; //wieder als text auswerten
  
      Exit;
    end;
  
    if MyStream.Position + rL > ReceiveSize then
      MyStream.Position := ReceiveSize
    else MyStream.Position := MyStream.Position + rL;
 
  
  if MyStream.Position = ReceiveSize then //Stream vollständig übertragen:
  begin
    //hier datei speichern oder so...
    Recording := False;
  end;
end;