[maurici0]

En efecto, viendo la pagina que me dices, esta lo que necesito, solo que la instrucción TIdStreamVCL no la tengo, nose si cambie en alguna versión o algo asi, he revisado mi libreria y si tengo el archivo TIdStreamVCL.dcu, y he buscado cual es la que sustituye a esa y no encuentro nada, espero alguien me pueda ayudar, gracias!

Código Delphi [-]
procedure TForm1.Button3Click(Sender: TObject);
var
 LWrapper : TIdStreamVCL;
 LStreamSize : int64;
begin
 IdTCPClient1.Connect;
 try
   LWrapper := TIdStreamVCL.Create(TFileStream.Create('c:\test.txt',fmOpenRead), True);
   try
      {Récupérer la taille du flux original}
      LStreamSize := LWrapper.VCLStream.Size;
      {Envoyer la taille}
      IdTCPClient1.IOHandler.Write(LStreamSize);
      {Envoyer le flux}
      IdTCPClient1.IOHandler.Write(LWrapper, 0);
   finally
      FreeAndNil(LWrapper);
   end;
 finally
   IdTCPClient1.Disconnect;
 end;
end;