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

    if text='SendFile'
     then begin
      Socket.SendText('StreamComming');
      Sleep(300);
      Fstream:=TFileStream.Create('C:\datei.txt', fmOpenRead);
      Socket.SendStream(FStream);
     end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

    if('StreamComming' = copy(text,0,13)) then begin
     Fstream:=TFileStream.Create('C:\Datei2.txt', fmOpenWrite);
     SizeofFile:=Socket.ReceiveLength;
     GetMem(pBuffer, SizeofFile);
     try
      Socket.ReceiveBuf(pBuffer^,SizeofFile);
      Fstream.Write(pBuffer^,SizeofFile);
       finally
        FreeMem(pBuffer);
        FStream.Free;
       end;
      end;					

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

    if text='GetFile'
     then begin
      socket.SendText('ScreenComming');
      socket.SendText(GRÖßE DES STREAMS DA!)
      FStream := TFileStream.Create('C:\screenshot.bmp', fmOpenRead);
      socket.SendStream(Fstream);
    end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

     if('ScreenComming' = copy(text,0,length(text))) then
     begin
      repeat
       pBuffer:=@Buffer;
       SizeofBuffer:=Socket.ReceiveBuf(pBuffer^, 4096);
       FileStream.Write(pBuffer^, SizeofBuffer);
       Inc(AlreadyReceived, SizeofBuffer);
       Socket.Sendtext(InttoStr(AlreadyReceived));
      until
       GrößedesStreams:='Streamgröße';
     end;					

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

function Dateigroesse (Datei : String) : Integer;
var SRec: TSearchRec;  
begin  
  Result := -1;  
  if FindFirst(Datei, faAnyFile, SRec) = 0 then  
  try Result := SRec.Size finally FindClose(SRec) end;  
end;