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:

procedure tform1.dateiSenden(filename:string);
var fs:tfilestream;
stream:TIdStreamVCL;
begin
with IdTCPClient1 do
  begin
    host:=serverip;
    fs := TFileStream.Create(filename, fmOpenRead or fmShareDenyWrite); //Datei in FileStream einlesen
    stream := TIdStreamVCL.Create(fs,true);
    Connect;  //und Verbindung herstellen
    try
      IOHandler.WriteBufferOpen; //stellt sicher, dass alle Daten versendet werden
      try
        IOHandler.Write(stream, 0, true); {das 2. true ist wichtig!, da es bewirkt, dass die Größe des Streams mittels WriteInteger zuerst verschickt wird}
        IOHandler.WriteBufferClose;
      except
        IOHandler.WriteBufferCancel;
        raise;
      end;
    finally
      Disconnect;
      fs.Free;
    end;
  end;
end;                    

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

procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
var
  fs: TFileStream;
  stream: TIdStreamVCL;
  SizeOfIncomingStream: integer;
begin
  fs := TFileStream.Create('datei.endung', fmCreate or fmShareExclusive);
  stream := TIdStreamVCL.Create(fs);
  with AContext.Connection do
    try
      SizeOfIncomingStream := IOHandler.ReadInteger; //Größe des Streams empfangen
      IOHandler.ReadStream(stream, SizeOfIncomingStream); //und übergeben
    finally
      Disconnect;
      fs.Free;
    end;
end;                    

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

try
      IOHandler.WriteBufferOpen; //stellt sicher, dass alle Daten versendet werden
      try     // TStringStream
        IOHandler.write('test.txt',8,true);
        IOHandler.Write(stream, 0, true); {das 2. true ist wichtig!, da es bewirkt, dass die Größe des Streams mittels WriteInteger zuerst verschickt wird}
        IOHandler.WriteBufferClose;
      except