FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Problema con TMemoryStream
Hola a todos,
mi problema es el siguiente: estoy trabajando en una aplicación que precisa de MemoryStream's para almacenar cierto tipo de datos, la información que se introduce en cada uno no supera los 100 bytes (algunos integer, double y strings de tamaño limitado), pero se hace uso de un gran número de TMemoryStream simultáneamente, y aquí es donde surge el problema. Al cargar todos los MStream estos consumen una cantidad de memoria muy superior a la esperada, por lo que acaban dejando al sistema sin recursos. Por ejemplo, el código siguiente, compilado con D7 y sobre W2000, incrementa la memoria consumida por el ejecutable en unos 80MB, procedure TForm1.Button1Click(Sender: TObject); var ms: TMemoryStream; nI,nAux: integer; begin nAux:=69; for nI:=0 to 10000 do begin ms:=TMemoryStream.Create; ms.SetSize(SizeOf(integer)); ms.Write(nAux,SizeOf(integer)); end; end; con lo cual, si echamos cuentas vemos como para cada MStream se asignan unos 8KB!!!, un número que está muy por encima del espacio que realmente haría falta para almacenar esta información. Lo curioso es que esta candidad es indiferente con respecto al número de bytes que escribimos, lo mismo le da que escribamos 4 que 4000 bytes; si por el contrario nos limitamos a crear el objeto sin escribir nada en él (sólo el ms:=TMemoryStream.Create; dentro del bucle), el incremento d memoria para los 10000 MStreams se limita únicamente a poco más de 200KB. La función SetSize parece no tener ningún efecto. De momento esto es todo, si alguien puediera echarme un clable y decirme como reducir el tamaño del TMemoryStrean al justamente necesario... Gracias y un saludo, Vicente |
|
|
|